Desktop Management Scripting-Sprache › Funktionen › Funktionen für den Dateiinhalt › CloseFile - Schließen der Datei

CloseFile - Schließen der Datei

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

Die Funktion "CloseFile" schließt die Datei, die mit einem von einem OpenFile- oder CreateFile-Aufruf aufgerufenen Datei-Handle verknüpft ist.

Diese Dateiinhaltsfunktion hat das folgende Format:

CloseFile(handle as Integer) as Boolean

handle

Datei-Handle, das durch einen Aufruf von "OpenFile" oder "CreateFile" abgerufen wurde.

Bei erfolgreichem Abschluss gibt die Funktion TRUE (ungleich null) zurück. FALSE wird zurückgegeben, wenn die Funktion fehlschlägt (beispielsweise wenn "handle" nicht die Dateizugriffsnummer einer gültigen geöffneten Datei ist).

Beispiel: Funktion "CloseFile"

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: