| Rubrik: Dateisystem · Dateien allgemein | VB-Versionen: VB4, VB5, VB6 | 02.03.01 |
 Langen Dateinamen ermittelnMittels der Dir$(..)-Funktion lässt sich auf ganz einfache Weise der lange Dateinamen zu einem bekannten kurzen Dateinamen ermitteln... | ||
Autor:  Dieter Otter | Bewertung:   | Views: 13.538 |
| www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 |  Beispielprojekt auf CD |
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.
