Osobne by som použil FSO. Nastav si referenciu na Microsoft Scripting Runtime a uprav si kód, vzor ktorého prikladám:
Sub kopiruj()
'rutina skopiruje vsetky subory txt, ktorych nazov má na konci SAP plus 2 znaky
'z adresara C:\Documents and Settings\al\Desktop\
'do adresara C:\Documents and Settings\al\Desktop\novy\
'pozor, cielovy adresar musi byt pred spustenim kodu uz vytvoreny
Dim myObject As Scripting.FileSystemObject, mySourceFolder As Scripting.Folder
Dim myFile As Scripting.File
Set myObject = New Scripting.FileSystemObject
Set mySourceFolder = myObject.GetFolder("C:\Documents and Settings\al\Desktop\") 'nastav si zdrojovy adresar
For Each myFile In mySourceFolder.Files
If myFile.Name Like "*SAP??.txt*" Then 'nastav si masku napr: "??_14_###.xls*", "???.pdf", "*.pdf" alebo aku potrebujes
myFile.Copy "C:\Documents and Settings\al\Desktop\novy\" & myFile.Name, True 'nastav cielovy adresar
End If
Next myFile
End Sub
to True tuná:
myFile.Copy "C:\Documents and Settings\al\Desktop\novy\" & myFile.Name, True existujúci súbor prepíše, pokiaľ chceš zachovať pôvodný, zmeň na False
citovat