Ich habe eine Code geschrieben, um Bilder in einem Ordner zu suchen und dann in einem neuen Ordner zu kopieren, aber ich kriege Error von Code zum Kopieren.
kann jemand mir sagen, wie ich die code zum Kopieren schreiben soll?
Sub InhaltAnzeigen()
Dim Z: Z = 2
Dim MyObj As Object, MySource As Object, file As Variant
Dim newDir As String, newPath As String, oldPath As String
oldPath = ("C:\Fazel\Bilder") ' alte Speicherort von Bildern
newDir = "Newfolder"
MkDir ("C:\Fazel\" & newDir)
newPath = ("C:\Fazel\Newfolder") ' neuer Speicherort
Set MyObj = CreateObject("scripting.FileSystemObject")
Set MySource = MyObj.GetFolder("C:\Fazel\Bilder")
For Each file In MySource.Files ' Bilder werden gesucht
If InStr(file.Name, Cells(Z, 15)) > 0 Then
MyObj.copyfile ,oldPath , newPath ' Fehldermeldung von dieser Code
End If
Z = Z + 1
Next
End Sub
Grußfazel