Seite 1 von 1
Dos-Dateinamen (8.3) erzeugen
Verfasst: 10.10.2004 15:32
von 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??
Verfasst: 10.10.2004 16:11
von GPI
Falls das Leerzeichen in Namen probleme macht:
In Anführungsstriche setzen!
chr(34)+"C:\Meine Dateien\Diese Lied.wav"+chr(34)
Verfasst: 10.10.2004 16:14
von 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
Verfasst: 10.10.2004 16:44
von 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.