Hallo.
Ich such mir grad einen ab, aber finde nichts an Windows APIs,
die mir einen langen Pfad (mit leerzeichen und so weiter) in einen gekürzten Pfad ( der mit ~ abgeschlossen ist z.b.) umwandelt

also diese "DOS" Pfad/Dateinamen.

gibt es da eine API die mir das umwandelt ?

Hi !
Falls Office installiert ist findest Du unter

"C:\Programme\Microsoft Office\Office\Samples\SAMPLES.XLS"

ein brauchbares Beispiel in VB.

zusammenfalten · markieren

Delphi-Quellcode:

Private Declare Function GetShortPathName Lib "KERNEL32.DLL" Alias "GetShortPathNameA" _
                                                            (ByVal lpctstrLongName As String, _
                                                            ByVal lptstrShortName As String, _
                                                            ByVal bufLen As Long) As Long

Sub Get_Short_Name()
    Dim LongStr As String, ShortStr As String
    Dim lStrLen As Long, lRet As Long
    
    'LongStr ist irgend ein langer Dateiname.
'ShortStr ist der hierzu definierte Name, der der
    ' DOS-Namenskonvention (8+3 Zeichen)genügt.

LongStr = ThisWorkbook.FullName
lRet = GetShortPathName(LongStr, ShortStr, lStrLen)
'Mit dem folgenden Befehl legen wir einen Puffer an,
    'der genauso lang ist wie die zurückgegebene Zeichenkette.
'Damit ersparen wir uns, die Zeichenkette links abschneiden
    'zu müssen.
ShortStr = String(lRet, " ")
lRet = GetShortPathName(LongStr, ShortStr, lRet)
MsgBox LongStr & " entspricht dem Kurzen Namen " & ShortStr
End Sub

ok vielen dank

aus der delphi hilfe:

markieren

Delphi-Quellcode:

DWORD GetShortPathName(

    LPCTSTR lpszLongPath,   // points to a null-terminated path string
    LPTSTR lpszShortPath,   // points to a buffer to receive the null-terminated short form of the path
    DWORD cchBuffer    // specifies the size of the buffer pointed to by lpszShortPath
   );