И еще возникает исключение, если во время выделения файлов выделить каталог. Пока не догнал как исправить.
Ошибка здесь:
Code:
StrFiles = TextStreamFL.ReadLine()
Set copyfilename = FSO.getfile(strfiles)
copyfilename.Copy strfolder
Сделай:
Code:
StrFiles = TextStreamFL.ReadLine()
If FSO.FileExists(StrFiles) Then
FSO.CopyFile StrFiles, strfolder
End If
If FSO.FolderExists(StrFiles) Then
FSO.CopyFolder StrFiles, strfolder
End If
А еще также хорошо-бы проверять, что strfolder - папка, а не файл.
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
