Desktop Management Scripting-Sprache › Funktionen › Funktionen für den Dateiinhalt › OpenFile - Öffnen einer Datei

OpenFile - Öffnen einer Datei

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

Die Funktion "OpenFile" öffnet eine Datei für Lese- oder Schreibvorgänge.

Funktionssyntax:

OpenFile(filename as String, access as Integer, mode as Integer) as Integer

OpenFile(filename as String, access as Integer) as Integer

filename (Dateiname)

Gibt den Namen der zu öffnenden Datei an.

access

Legt fest, wie die Datei geöffnet wird. Für diesen Parameter können folgende vordefinierte Konstanten verwendet werden:

O_READ

(Wert 0) Zum Lesen geöffnet.

O_WRITE

(Wert 1) Zum Schreiben erstellt. Hierdurch wird eine eventuell vorhandene Datei überschrieben.

O_APPEND

(Wert 2) Zum Schreiben am Ende der Datei geöffnet. Wenn noch keine Datei vorhanden ist, wird eine erstellt.

O_UPDATE

(Wert 3) Zum Lesen und Schreiben geöffnet.

mode

Kennzeichnet einen optionalen Parameter, um den Binärmodus festzulegen. Für diesen Parameter können folgende vordefinierte Konstanten verwendet werden:

O_TEXT:

Wert 0: 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:

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: