Public Function GetFirstFreeDriveLetter() As String
    Dim fso As Object
    Dim strDrive As Variant, i As Integer
    Set fso = CreateObject("Scripting.FileSystemObject")
    For i = Asc("D") To Asc("Z")
        strDrive = Chr$(i) & ":\"
        If Not fso.FolderExists(strDrive) Then
            GetFirstFreeDriveLetter = Chr$(i) & ":"
            Exit For
        End If
    Next i
    Set fso = Nothing
End Function

MsgBox "Erster freier Laufwerksbuchstabe: " & GetFirstFreeDriveLetter

• Dateien löschen mit Filter und Datumskriterium
• API: Datum- und Zeitangaben von Dateien manipulieren
• Auslesen und ändern von Datei-/Verzeichnisattributen
• Auslesen von Infos aller Laufwerke im System
• FSO: Datei löschen