Langen Dateinamen ermitteln Mittels der Dir$(..)-Funktion lässt sich auf ganz einfache Weise der lange Dateinamen zu einem bekannten kurzen Dateinamen ermitteln...
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  14.174
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 8 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Manchmal ist es notwendig zu einem kurzen Dateinamen im DOS-Format 8.3 den entsprechenden langen Dateinamen zu ermitteln. Dies erfolgt auf ganz einfache Weise:

' langen Dateinamen aus kurzen Dateinamen ermitteln
Dim lngFilename As String
lngFilename = Dir$(shortFilename)

Anmerkung:
Die meisten kennen die VB-Funktion Dir$(..) nur in Verbindung mit der Prüfung, ob eine Datei existiert oder z.B. zum Ermitteln aller Dateien eines Ordners. Da aber bekanntlich die Dir-Funktion den Dateinamen aufgrund der übergegebenen Suchmaske zurückgibt, lässt sie sich eben genau für den o.g. Zweck einsetzen.

Beispiel:

Dim shortFilename As String
Dim longFilename As String
 
shortFilename = "c:\mein_d~1.txt"
longFilename = Dir$(shortfilename)  ' c:\mein_dokument.txt

Und noch etwas:
Die geschilderte Vorgehensweise lässt sich natürlich auch auf Verzeichnisnamen anwenden.

' auch auf Verzeichnisnamen anwendbar
shortFilename = "c:\eigene~1"
 
' c:\Eigene Dateien
longFilename = Dir§(shortFilename, vbDirectory)

Hierfür müssen Sie lediglich für den zweiten optionalen Parameter die Konstante vbDirectory angeben.