Manuel du langage de script Desktop Management › Fonctions › Fonctions de contenu du fichier › OpenFile – Ouvrir un fichier

OpenFile – Ouvrir un fichier

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

La fonction OpenFile ouvre un fichier en vue de sa lecture ou de son écriture.

Format de la fonction :

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

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

nom_fichier

Indique le nom du fichier à ouvrir.

accès

Spécifie comment ouvrir le fichier. Le paramètre access peut être l'une des constantes prédéfinies suivantes :

O_READ

(valeur 0) Ouvert pour lecture O_WRITE.

O_WRITE

(valeur 1) Créé pour écriture. Cette valeur remplace le fichier s'il existe.

O_APPEND

(valeur 2) Ouvert pour écriture à la fin du fichier. Un fichier est créé s'il n'existe pas.

O_UPDATE

(valeur 3) Ouvert pour lecture et écriture.

mode

Indique un paramètre facultatif pour spécifier le mode binaire. Le paramètre mode peut être l'une des constantes prédéfinies suivantes :

O_TEXT

Valeur 0 ; mode texte

O_BINARY

Valeur 1 ; mode binaire

Si le paramètre de mode est omis, le mode texte est utilisé.

Si la fonction réussit, la valeur de retour est un entier non négatif qui correspond au descripteur de fichier. Si la fonction échoue, elle renvoie la valeur -1.

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: