XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - Datei-Erweiterung umbenennen
Umbenennen der Dateierweiterung
hier mal eine Beispiel wo wirklich umbenannt werden könnte
muss man natürlich selbst übernehmen.
Autor Dieter Zornow
free
DEF PathRenameExtension(2) ! SHLWAPI,PathRenameExtensionA

proc RenameExt Rename Fileendung, Punkt mit angeben .prf

    parameters Pfad$,ext$
    Declare Result#,result$,ext#
    Dim ext#,len(ext$)+1
    Dim Result#,261
    string result#,0 = pfad$
    string ext#,0 = ext$
    PathRenameExtension(result#,addr(ext$))
    result$ = string$(result#,0)
    Dispose result#
    Dispose ext#
    return result$

endproc

cls
declare file$
file$ = RenameExt(c:\Temp\test.prf,.inc)
print file$
Assign #1,C:\Temp\Test.prf
Rename #1,file$
waitinput