Habe ein Problem:
Ich möche Zellen aus ener Tabelle mit Dateinamen aus einem Ordner und Unterordnern vergleichen und sollten sie übereinstimmen wird die Datei in einen Zielordner kopiert. Das Beispiel aus dem Netz fuktioniert auch soweit und konnte auf meine Bedürfnisse umgeschrieben werden.
Wie beziehe ich in diesem Beispiel mögliche Unterordner ein? Wenn eine Name der Liste nicht als Datei vorhanden ist soll er nicht aus dem Programm aussteigen, sondern die Liste weiter abarbeiten!
Den Quell- und Zielpfad habe ich für mich so gestaltet, dass er von einer Range, zB. C8 übernommen wird. das funzt auch! Hier ist das leicht geänderte Beispiel, das ich nicht so hinbekomme, also Unterordner abgleichen und bei nicht vorhandener Datei weiter abarbeiten
Es wäre super wenn mir jemand helfen könnte! DANKE!
Sub Test()
Dim i As Long
Dim myFSo As Object
Dim sPath As String
Dim sPath2 As String
sPath = Worksheets("TEST").Range("C8")
sPath2 = Worksheets("TEST").Range("C9")
With Worksheets("NEU")
Const sSpalte As Long = 1
For i = 1 To Cells(Rows.Count, sSpalte).End(xlUp).Row
'ist zelleninhalt vorhanden
If Cells(i, sSpalte) > "" Then
'ist datei im angegebenen Ordner vorhanden
If Dir(sPath & Cells(i, sSpalte)) > "" Then
Set myFSo = CreateObject("Scripting.FileSystemObject")
myFSo.CopyFile sPath & Cells(i, sSpalte) sPath2 & Cells(i, sSpalte) , True
End If
End If
Next i
End With
End Sub
|