Aufruf: Löscht eine Datei

BOOLEAN = EraseFile(tcFile1 AS STRING , tcFile2 AS STRING , tcFile3 AS STRING)

Rückgabe: Löscht eine Datei

Rückgabe der Funktion: BOOLEAN

Code: Löscht eine Datei

PROCEDURE EraseFile (tcFile1 AS STRING,tcFile2 AS STRING,tcFile3 AS STRING) AS Boolean;
		HELPSTRING "Löscht drei Dateien mit einmal."
	DO CASE
		CASE PCOUNT()=1
			RETURN My.Functions.Dateien.EraseFiles(m.tcFile1)
		CASE PCOUNT()=2
			RETURN My.Functions.Dateien.EraseFiles(m.tcFile1,m.tcFile2)
		CASE PCOUNT()=3
			RETURN My.Functions.Dateien.EraseFiles(m.tcFile1,m.tcFile2,m.tcFile3)
	ENDCASE
ENDPROC