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
 
   'Quelle: www.dbwiki.net oder www.dbwiki.de
 
   Const MoeglicheLW As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 
   Dim lw As String
   Dim i  As Long
 
   On Error Resume Next
 
   For i = 1 To Len(MoeglicheLW)
      lw = Mid$(MoeglicheLW, i, 1)
      Call Dir$(lw & ":\" & DateiName)
      If Err.Number = 0 Then LW_Suchen = lw: Exit For
   Next
 
End Function

Aufruf

   Debug.Print LW_Suchen("einVerzeichnis\testdatei.txt")
Wiki hinweis.png

Anmerkung: Es muss der Dateiname und eventuell auch noch der Unterordner übergeben werden. Die Konstante MoeglicheLW sollte auf die vorhandenen Laufwerk-Buchstaben eingeschränkt werden, um die Laufzeit zu optimieren.