Wie kann die Dateien eines Verzeichnisses mit einem bestimmten Text(9903211000002)im Dateinamen in ein anderes Verzeichnis kopieren ohne diese Dateien zu öffnen.
Vielen Dank im Voraus !
mfg
Holger
Sub kopieren()
Dim fso As Object
Dim foQuell As Object
Dim foZiel As Object
Dim f As Object
Dim strSuchtext As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set foQuell = fso.getfolder("C:\") 'Quellverzeichnis anpassen
Set foZiel = fso.getfolder("C:\Temp") 'Zielverzeichnis anpassen
strSuchtext = "9903211000002" 'Suchtext anpassen
For Each f In foQuell.Files
If InStr(1, f.Name, strSuchtext) > 0 Then
fso.FileCopy f.Path, foZiel.Path & "\"
End If
Next 'f
End Sub
Gruß Ingolffso.CopyFile f.Path, foZiel.Path & "\" & f.Name
Gruß Ingolf