XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - Datei-Endung anhängen, falls keine existiert
Hängt eine Endung an falls keine existiert
bei übergabe eines 0 Strings wird automatisch .exe angehängt
Autor: Dieter Zornow
free
Def PathAddExtension(2) ! shlwapi,PathAddExtensionA

Proc AddExt

    parameters file$,ext$
    Declare file#
    Dim file#,261
    string file#,0 = file$
    PathAddExtension(file#,addr(ext$))
    file$ = string$(file#,0)
    Dispose file#
    return file$

endproc

cls
Print AddExt(C:TempTemp,.html)
waitinput