Name: GetShortPathnameFunktion: 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 IntegerPublic Function GetShortname(ByVal LongPathName As String) As StringDim strShort ...
Verfasst am: 17.04.2008, 13:40 Aufrufe: 670
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)
strShortNam ...