Dos-Dateinamen (8.3) erzeugen

[blbltheworm]

Hallo zusammen,
ich bin gerade dabei zur Übung ein kleines Frontend für Lame zu schreiben.
Jetzt steh ich vor dem Problem, dass ich des Lame.exe den Dateinamen+Pfad im Dosformat (8.3) übergeben muss.
Wie kann ich meine Pfad/Dateinamen umwandeln??

[GPI]

Falls das Leerzeichen in Namen probleme macht:
In Anführungsstriche setzen!

chr(34)+"C:\Meine Dateien\Diese Lied.wav"+chr(34)

[Danilo]

Code: Alles auswählen

;
; by Danilo, 10.10.2004 - german forum
;
Procedure.s ShortFileName(File$)
  ;
  ; converts a long path/filename to 8.3 format
  ;
  len = Len(File$)
  ShortName$ = Space(len)
  If GetShortPathName_(File$,ShortName$,len)
    ProcedureReturn ShortName$
  Else
    ProcedureReturn ""
  EndIf
EndProcedure

File$ = OpenFileRequester("Filename","","*.*",1)
If File$
  Debug File$
  Debug ShortFileName(File$)
EndIf

[blbltheworm]

Danke, genau das hab ich gesucht.
Ich hatte die VB-Variante dieses Codes, wusste jedoch nicht, wie ich sie nach PB bekomme.
Also nocheinmal Dankeschön.