[email protected]
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Dateisystem · Dateien allgemein   |   VB-Versionen: VB4, VB5, VB631.03.01
Ermitteln des kurzen Dateinamens einer Datei

Dieser Tipp verrät, wie man aus dem langen Dateinamen den entsprechenden kurzen DOS-Dateinamen ermittelt.

Autor:   Dieter OtterBewertung:  Views:  14.746 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

Seit Windows 95 gibt es sie - die langen Dateinamen. Diese lassen sich jedoch immer noch mit ihrem kurzen Dateinamen (8.3) "ansprechen". Die Windows-API GetShortPathName übernimmt hierbei die automatische Umwandlung.

' zunächst die benötigten API-Deklarationen
Private Declare Function GetShortPathName Lib "kernel32" _
  Alias "GetShortPathNameA" ( _
  ByVal lpszLongPath As String, _
  ByVal lpszShortPath As String, _
  ByVal cchBuffer As Long) As Long
 
' Ermittelt den kurzen Dateinamen
Public Function GetShortName(ByVal longName As String) _
  As String
 
  Dim ShortName As String
  Dim sLen As Long
 
  ShortName = Space$(256)
  sLen = GetShortPathName(longName, ShortName, Len(ShortName))
  ShortName = Left$(ShortName, sLen)
 
  GetShortName = ShortName
End Function

Beispiel:

' Langer Dateiname
longName = "c:\Eigene Dateien\VB\MeinProjekt.vbp"

shortName = GetShortName(longName)
' --> c:\eigene~1\vb\meinpr~1.vbp"



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen [email protected]  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren [email protected]!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2022 [email protected] Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.