Datei Kobieren (DOS)
03.05.2005 22:12:53
tino
möchte über diesen Code Bilder an ein anderen
Ort Kobieren. Aber es geht einfach nicht.
Was mache ich falsch?
Shell ("cmd.exe /c net xcopy " & ".FoundFiles(i) " & "d:\")
Sub neu()
Dim i As Long
Const verz = "D:\Bilder\"
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = "*.jpg" 'Datei Typ
.Execute
For i = 1 To .FoundFiles.Count
Shell ("cmd.exe /c net xcopy " & ".FoundFiles(i) " & "d:\")
Next i
End With
End Sub
Gruss
Tino
Anzeige