XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei: die eigene EXE-Datei kopieren
Beachten:
Im Interpreter-Modus wird PROFAN.EXE und bei
ungelinkter PRC-Datei PRFRUN32.EXE kopiert
(s. Profan²-Hilfe zu Par$)

Proc SelfCopy

    Parameters target$
    FileMode 0
    Copy Par$(0) > target$
    FindFirst$(target$)
    Return %IOResult

EndProc

Beispiel
Declare ziel$
Let ziel$=C:COPYTEST.EXE
Cls

If Equ$(FindFirst$(ziel$),)

    SelfCopy ziel$

    IfNot %(0)

        Print Par$(0),erfolgreich kopiert

    Else

        Print Fehler beim Kopieren von,Par$(0)

    EndIf

Else

    Print Zieldatei,ziel$,ist schon vorhanden

EndIf

WaitInput