Что касается выделения файлов, то меняем 20-27 строки на эти:
Code:
F = Trim(.ReadLine)
If F <> "" And FSO.FileExists(F) And StrComp(FSO.GetExtensionName(F),Ex) = 0 Then _
FSO.CopyFile File, FSO.GetParentFolderName(F) & "\" & FSO.GetBaseName(F) & "." & Ext, 0
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
