XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei: Datei(en) mit API-Funktion kopieren
PRFellow-Vorlage
Autor: Thomas Hölzer
Datei(en) mit API-Funktion kopieren
Vorteile gegenüber dem Profan-Befehl Copy:
a: Die Funktion meldet Erfolg oder Mißerfolg
b: Option, ob vorhandene Zieldatei überschrieben werden darf
1. Parameter: Bereichsvariable mit Quelldatei
2. Parameter: Bereichsvariable mit Zieldatei
3. Parameter:
0 = Vorhandene Zieldatei wird überschrieben
1 = Bei vorhandener Zieldatei findet keine Kopieraktion statt
Rückgabe: Ungleich 0 bei Erfolg
Nähere Informationen liefert GetLastError
Def CopyFile(3) !KERNEL32,CopyFileA
Def DeleteFile(1) !KERNEL32,DeleteFileA
Beispiel
Declare quelle#,ziel#,erfolg&,txt$
Dim quelle#,255
Dim ziel#,255
String quelle#,0=C:AUTOEXEC.BAT
String ziel#,0=C:AUTOEXEC.123
Let erfolg&=CopyFile(quelle#,ziel#,1)  kein Überschreiben
Dispose quelle#
Dispose ziel#
Let txt$=Kopieraktion

If Neq(erfolg&,0)

    Let txt$=txt$,erfolgreich

Else

    Let txt$=txt$,gescheitert

EndIf

MessageBox(txt$,Ergebnis von CopyFile,64)