Помимо похотливой девушки мне нужна помощь по Visual Basicу. Хотел написать на нём (6-й русифицированный, без хелпа) программу, чтобы перемещаться по папкам и при нажатии на кнопку, все файлы из текущей папки с расширениями "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