Hallo,
habe alles nun versucht.
aber es funktioniert nicht.
In D:\123 kommt nichts an.
Shell ("cmd.exe /c xcopy " & .FoundFiles(i) & " D:\123")
Habe es noch anders versucht siehe unten.
Ergebniss war die Ordner waren nicht mehr sichtbar.
Vieleicht weis einer warum dies so ist.
Waren nur über "Start -- Ausführen" zu öffnen
Habe diese im DOS gelöscht.
Dim Quelldatei, Zieldatei
Const verz = "D:\VBA"
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.Filename = "*.txt" 'Datei Typ
.Execute
For i = 1 To .FoundFiles.Count
Quelldatei = .FoundFiles(i) ' Namen der Quelldatei festlegen.
d = Application.WorksheetFunction.Substitute(Quelldatei, "D:\Versuch", "D:\123")
Zieldatei = d ' Namen der Zieldatei festlegen.
FileCopy Quelldatei, Zieldatei
Next i
End With
Vieleicht kennt sich einer damit aus.
Gruss Tino