XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei kopieren  - Die eigene EXE-Datei sicher kopieren
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
Autor: Thomas Hölzer
Die eigene EXE-Datei kopieren
Hintergrund:
Bis 6.6 klappt Copy sonst nicht mit
schreibgeschützten Dateien.
Bei Profan 7.0 funktioniert Copy zwar,
aber FileMode wird nicht auf RW zurückgesetzt
Diese Prozedur ist ein Workaround für Beides
und klappt mit allen Versionen.
Parameter: Name der Zieldatei
Rückgabe in %(0):
Bei Erfolg 0, sonst %IOResult-Fehlerwert
Bitte 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$
    FileMode 2
    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