Datein löschen
25.01.2017 16:09:40
Thomas
Ich möchte gern ein paar Dateien aus einem Ordner löschen.
Nun dachte ich mir ich liste erst mal alle Dateien auf und lösche Sie dann.
Der Hintergrund ist ich möchte nicht die Datei löschen von der aus ich das Makro gestartet habe
mit folgenden Code lese ich den Inhalt eines Ordners aus.
Sub Dateien_kill () Dim fs As Object Dim fVerz As Object Dim fDatei As Object Dim fdateien As Object Dim strDat As String Dim Zeile As Integer Set fs = CreateObject("scripting.FileSystemObject") Set fVerz = fs.getFolder(Quelle) Set fdateien = fVerz.Files For Each fDatei In fdateien If InStr(fDatei, "") > 0 Then Zeile = Zeile + 1 Cells(Zeile, 1) = fDatei.Name End If Next fDatei End Sub dies klappt auch sehr gut.
Weiss jemand wie ich diese nun löschen kann? jedoch nicht die Datei aus der ich dies angeschuppst habe.
kann mir jemand zeigen wie ich das machen könnte? Oder ein link wo ich ein Beispiel sehen könnte?
mfg thomas