Hallo zusammen,

mit untenstehenden Code lösche ich Backupdateien von unserem Server.
Die Backups befinden sich alle in unterordner. Leider weiß ich nicht wie ich diese Unterordner löschen kann. Die Namen der Ordner sind variabel, da sich diese aus den Seriennummern der Rechner generieren.
Kann mir da jemand einen Tip geben wie ich ie Unterordner aus R:\pcsbkclt raus bekomme.

Dim i As Long
verz = "R:\pcsbkclt"
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
Kill .FoundFiles(i)
Next i
End With
End Sub

Vielen Dank vorab.

Gruß

Andi