Manuel du langage de script Desktop Management › Fonctions › Fonctions de contenu du fichier › CloseFile – Fermer le fichier

CloseFile – Fermer le fichier

Valide sur les plates-formes NetWare, Symbian OS, UNIX, Windows et Windows CE

La fonction CloseFile ferme le fichier associé à un descripteur de fichier obtenu à partir d'un appel de OpenFile ou CreateFile.

Format de la fonction :

CloseFile(handle as Integer) as Boolean

descripteur

Descripteur de fichier obtenu à partir d'un appel d'OpenFile ou de CreateFile.

En cas de réussite, la fonction renvoie True (non nulle). Si la fonction échoue, lorsque le descripteur n'est pas le descripteur d'un fichier ouvert valide, par exemple, la fonction renvoie la valeur False.

Exemple :

Cet exemple crée une copie de sauvegarde du fichier CONFIG.SYS.

Dim fIn, fOut as integer   ' Déclarez les descripteurs de fichier

Dim OneLine as string     ' Chaîne devant tenir sur une ligne

' Ouvrez d'abord le fichier d'entrée...

fIn=OpenFile("C:\CONFIG.SYS",O_READ)
if fIn<0 then
	MessageBox("Impossible d'ouvrir le fichier d'entrée","Erreur")
	Goto End
End if

' ...Ensuite, créez le fichier de sortie...

fOut=CreateFile("C:\CONFIG.BAK")
if fOut<0 then
	MessageBox("Impossible de créer le fichier de sortie","Erreur")
	Goto End

End if

' ...Copiez les lignes jusqu'à ce qu'il n'en reste plus...

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

' ...Refermez les fichiers et indiquez la réussite.

CloseFile(fIn)
CloseFile(fOut)
MessageBox("Une copie de sauvegarde du fichier CONFIG.SYS a été créée","MonScript")

end: