Visual Basic Forum

ZiG · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 421

Name: GetShortPathname
Funktion: Wandelt einen normalen String/Pfad in das alte Dos 8.3 Format um.
Rückgabe: Ein String. (Verkürzter Pfad)

Visual Basic: [code]Private Declare Function GetShortPathname Lib "kernel32" Alias "GetShortPathNameA" (ByVal strLongPath As String, ByVal strShortPath As String, ByVal intBufferLen As Integer) As Integer

Public Function GetShortname(ByVal LongPathName As String) As String
Dim strShortName As String, iLen As Integer

iLen = GetShortPathname(LongPathName, strShortName, 0)
strShortName = Space(iLen - 1)
Call GetShortPathname(LongPathName, strShortName, iLen)
GetShortname = strShortName

End Function[/code]
_________________