Hallo alle zusammen,
ich habe ein kleines Makro, welches alle Dateien deren Name in Spalte I komlpett geschrieben steht
aus dem Verzeichnis C:\Test\loeschen in das Verzeichnis c:\Test\aendern kopiert.
Sub Dateien_kopieren()
'kopiert die Dateien aus C:\Test\loeschen in das Verzeichnis C:\Test\aendern
Const quell As String = "C:\Test\loeschen\" 'Pfad der Quelldatei anpassen
Const ziel As String = "C:\Test\aendern\" 'Pfad der Zieldatei anpassen
Dim i As Integer, quelldat As String, zieldat As String
For i = Range("I65536").End(xlUp).Row To 2 Step -1
If Range("I" & i).Value <> "" Then
quelldat = quell & Range("I" & i).Value
zieldat = ziel & Range("I" & i).Value
FileCopy quelldat, zieldat
End If
Next
End Sub
Jetzt zu meinem Problem
Ich möchte jetzt mit dem Befehl kill genau diese Dateien nach den Kopieren im Ursprungsverzeichnis
C:\Test\loeschen wiklich killen.
Wie muß die Befehlszeile lauten? Irgendwie komme ich nicht weiter, auch die Suche im Archiv
konnte mir bisher leider nicht weiterhelfen.
Ich bitte um Eure Hilfe.
Danke
Gruß
Olaf