XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - relativen Pfad erstellen
erstellt einen relativen Pfad, die Attribute müssen nicht stimmen
Hiermit wird nur unterschieden ob Verzeichnis oder Datei
Laufwerk muss gleich sein
Autor Dieter Zornow
free
DEF PathRelativePathTo(5) ! SHLWAPI.DLL,PathRelativePathToA

proc MakePfadRelativeTo Startpfd, fileattr,endpfd,fileattr / fileattr = 16 is Folder, 32 ist filearchiv

    Parameters start$,Fa1&,end$,fa2&
    Declare Result#,result$
    Dim Result#,261
    PathRelativePathTo(result#,addr(start$),fa1&,addr(end$),fa2&)
    result$ = string$(result#,0)
    Dispose result#
    return result$

endproc

cls
print MakePfadRelativeTo(c:\temp,16,C:\WindowsWin.ini,32)
waitinput