Ich wollte über VBA Code Dateien im Papierkorb automatisch löschen lassen. Ich bekomme es leider nicht hin :-(
(Den Killbefehl habe ich erstmal rausgelassen. Wollte im ersten Schritt erstmal
die Dateien angezeigt bekommen.)
Können Sie helfen ?
Danke.
Gruß
J. Wöllner
Code:
Dim fs As Object
Dim Folder
Dim strList As String
Dim objDatei As Object
pfad = "C:\$Recycle.Bin\"
Set fs = CreateObject("Scripting.FileSystemObject")
Set Folder = fs.Getfolder(pfad)
For Each objDatei In Folder.Files
strList = strList & objDatei.Name & vbCr
dateiname = Left(strList, Len(strList) - 1)
a = a + 1
Cells(a, 1) = strList
strList = ""
Next