[Sonic]

HI!

Was genau ist dein Problem?
Das löschen von dateien ansich?

Das könnte in etwa so aussehen:

Public Sub DelAll(ByVal sDirectory As String)
    Dim sFile As String
    
    sDirectory = Trim(sDirectory)
    If Not Right(sDirectory, 1) = "\" Then sDirectory = sDirectory & "\"
    
    sFile = Dir(sDirectory)
    While Not sFile = ""
        On Error Resume Next
        Kill sDirectory & sFile
        On Error GoTo 0
        sFile = Dir
    Wend
End Sub

Einfach DelAll mit dem Verzeichnisspfad aufrufen.

lg