Desktop Management Scripting-Sprache › Funktionen › Funktionen für den Dateiinhalt › CreateFile - Erstellen einer neuen Datei

CreateFile - Erstellen einer neuen Datei

Gültig für NetWare, Symbian OS, UNIX, Windows und Windows CE.

Hinweis: Verwenden Sie diese Funktion nicht, um unter Windows 9x eine INI-Datei zu erstellen. In der Regel werden INI-Dateien unter Windows mit "WriteIniSection()" oder "WriteIniEntry()" erstellt.

Mit der Funktion "CreateFile" erstellen Sie Dateien für Schreibvorgänge.

Diese Dateiinhaltsfunktion hat das folgende Format:

CreateFile(filename as String, mode as Integer) as Integer

CreateFile(filename as String) as Integer

Dateiname

Gibt den Namen der zu erstellenden Datei an. Falls bereits eine Datei mit diesem Namen vorhanden ist, wird sie überschrieben.

mode

Gibt den Modus an, in dem die Datei erstellt werden soll. Der Wert ist eine der folgenden vordefinierten Konstanten:

O_TEXT:

(Wert 0, Standard) Textmodus

O_BINARY:

(Wert 1) Binärmodus

Wenn der Parameter "mode" nicht angegeben wird, wird der Textmodus verwendet.

Wenn die Funktion erfolgreich abgeschlossen wird, ist der Rückgabewert eine nicht negative Ganzzahl, die das Datei-Handle darstellt. Bei Fehlschlagen der Funktion wird -1 zurückgegeben.

Beispiel: Funktion "CreateFile"

In diesem Beispiel wird eine Sicherungskopie der Datei "CONFIG.SYS" erstellt.

Dim fIn, fOut as integer   ' Declare file handles

Dim OneLine as string     ' String to hold one line

' First open the Input file...

fIn=OpenFile("C:\CONFIG.SYS",O_READ)
if fIn<0 then
	MessageBox("Eingabedatei kann nicht geöffnet werden","Fehler")
	Goto End
End if

' ...Then create the output file...

fOut=CreateFile("C:\CONFIG.BAK")
if fOut<0 then
	MessageBox("Ausgabedatei kann nicht geöffnet werden","Fehler")
	Goto End

End if

' ...Copy lines until none left...

while Not(Eof(fIn))
	if ReadFile(fIn,OneLine) then WriteFile(fOut,OneLine)
wend

' ...Close Files, and signal success.

CloseFile(fIn)
CloseFile(fOut)
MessageBox("Eine Sicherungskopie der Datei CONFIG.SYS wurde erstellt","MyScript")

end: