Manuel du langage de script Desktop Management › Fonctions › Fonctions de contenu du fichier › CreateFile – Créer un fichier

CreateFile – Créer un fichier

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

Remarque : Sous Windows 9x, n'utilisez pas cette fonction pour créer un fichier .ini. Le système d'exploitation Windows crée le fichier .ini spécifié d'une fonction WriteIniSection() ou WriteIniEntry().

La fonction CreateFile crée un fichier pour l'écriture.

Format de la fonction :

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

CreateFile(filename as String) as Integer

nom_fichier

Spécifie le nom du fichier.

mode

Spécifie le mode dans lequel créer le fichier. La valeur est l'une des constantes prédéfinies suivantes :

O_TEXT

(valeur 0, par défaut) 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: