Подскажите где скачать VB6.1

Дайте пожалуйста ссылочку, где можно скачать Visual Basic 6.1
Только 6.0 не давайте, ладно? Заранее благодарю!!!

0
7
Комментарии:  7
Ваш комментарий

http://www.progz.ru
www.devel.pnz.ru
http://rusdoc.df.ru
http://progers.net.ru
Посмотри на этих сайтах, может там есть.

Разве существует верия VB 6.1 ? По-моему есть только версия 6.0, для которой было выпущено несколько сервис паков, а после этого сразу последовала версия 7.0.

Alex Dyler спасибо за ссылочки!!! Благодарю!
Raptor существует, ведь если ставить рисунок на форме, а за тем разместить сверху фрейм, то фрейм будет закрывать рисунок. А в
6.1 нефига!!!

Программер из тебя хреновый... В 6.0 всё нормально!

Я так понял, что сюда заходят спецы по Visual Basicу. Мне нужна прога, чтобы шастать по папкам и нажимая на кнопку копировать все файлы по маске *.txt и *.doc и *.rtf из текущей папки в папку d:\hmm3rulez. Нет ли у кого-нибудь похожего текста?

На Бейсике не знаю, на Дельфи могу написать (когда у меня настроение будет).

-Raptor-, спасибо за отклик. Я сам ещё помучился. И вот: Надо перемещаться по папкам и при нажатии на кнопку, все файлы из текущей папки с расширениями "txt" и "doc" должны копироваться в папку d:\hmm3rulez. Но понял, что не смогу и стал писать, чтобы хотя бы один файл, на который я покажу копировался бы. Но тут возникли вопросы: 1). Почему иногда при копировании файлы копируются, но в папке d:\hmm3rulez оказываются пустыми (нулевого размера)? 2). Почему иногда при копировании файлы не копируются, а появляется ошибка: "Ошибка во время выполнения программы '53'"? 3). Почему при переходе на диск "С:" ВСЕГДА появляется 53-я ошибка?
Фрагмент программы:
Public TinyFileName As String
Dim PathSearch As String
Dim FileName As String
Dim DiskName As String
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
DiskName = Drive1.Drive
Dir1.Path = DiskName
File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
TinyFileName = File1.FileName
FileCopy TinyFileName, "d:\hmm3rulez\" & TinyFileName
End Sub

Новое на форуме