VBA Tipp: Laufwerksbuchstabe Datei ermitteln

Aus DBWiki
Wechseln zu: Navigation, Suche

Aufgabenstellung

Ich habe wechselnde Laufwerke und möchte herausfinden, auf welchem Laufwerk sich eine bestimmte Datei befindet

Lösung

Public Function LW_Suchen(DateiName As String) As String
    Dim MöglicheBuchstaben As String, i As Integer, SuchDatei As String
 
    MöglicheBuchstaben = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    For i = 1 To Len(MöglicheBuchstaben)
        SuchDatei = Mid(MöglicheBuchstaben, i, 1) & ":\" & DateiName
        On Error Resume Next
        LW_Suchen = Dir(SuchDatei)
        On Error Goto 0
        If LW_Suchen <> "" Then
            LW_Suchen = Mid(MöglicheBuchstaben, i, 1)
            Exit Function
        End If
    Next i
End Function

Aufruf

LW_Suchen("testdatei.txt")


Wiki hinweis.png Anmerkung: Es muss der Dateiname und eventuell auch noch der Unterordner übergeben werden. Der String "MöglicheBuchstaben" sollte auf die wirklich notwendigen Buchstaben eingeschränkt werden, um die Laufzeit zu optimieren.