CreateFile()

Syntaxe

Resultat = CreateFile(#Fichier, NomFichier$ [, Options])
Description
Crée un fichier vide.

Arguments

#Fichier Le numéro du nouveau fichier.

#PB_Any peut être utilisé pour générer automatiquement ce numéro.
NomFichier$ Le nom et le chemin vers le nouveau fichier.
Si le nom de fichier ne contient pas de chemin complet alors le chemin courant sera utilisé.
Options (optionnel) Peut être une combinaison de:
  #PB_File_SharedRead : Le fichier ouvert par un processus peut être lu par un autre processus (Windows uniquement).
  #PB_File_SharedWrite: le fichier ouvert par un processus peut être écrit par un autre processus (Windows uniquement).
  #PB_File_NoBuffering: Le système interne de mise en mémoire tampon de PureBasic sera désactivé pour ce fichier. 
                        FileBuffersSize() ne peut pas être utilisé sur ce fichier.
combiné avec l'une des valeurs suivantes (les options suivantes affectent le comportement de WriteString(), WriteStringN(), ReadString(), ReadCharacter() et WriteCharacter()):
  #PB_Ascii  : Toute opération de lecture/écriture des chaînes de caractères utilisera le mode ASCII
               (Par défaut pour les exécutables compilés en mode ASCII).
  #PB_UTF8   : Toute opération de lecture/écriture des chaînes de caractères utilisera le mode UTF-8
               (Par défaut pour les exécutables compilés en mode Unicode).
  #PB_Unicode: Toute opération de lecture/écriture des chaînes de caractères utilisera le mode Unicode.

Valeur de retour

Renvoie une valeur non nulle si le fichier a été créé avec succès, zéro sinon.
Si #PB_Any a été utilisé comme paramètre #Fichier alors le nouveau numéro généré est retourné en cas de succès.

Remarques

Si le fichier existe déjà, il sera remplacé par un fichier vide !

La fonction FileSize() peut être utilisée pour déterminer si un fichier existe avant de l'écraser.

Pour ouvrir un fichier existant en lecture et en écriture, utilisez la fonction OpenFile().
Pour ouvrir un fichier en lecture seule, utilisez ReadFile().

Exemple

  If CreateFile(0, "Text.txt")         ; création d'un nouveau fichier texte...
    For a=1 To 10
      WriteStringN(0, "Ligne "+Str(a)) ; écriture de 10 lignes (suivies du code 'Fin de Ligne')
    Next
    For a=1 To 10
      WriteString(0, "Chaîne"+Str(a))  ; ajoute 10 chaînes sur la même ligne (le code 'Fin de Ligne' n'est pas ajouté)
    Next
    CloseFile(0)                       ; ferme le fichier précédemment ouvert et enregistre les données
  Else
    MessageRequester("Information","Impossible de créer le fichier!")
  EndIf

Voir aussi

OpenFile(), ReadFile(), CloseFile()

OS Supportés

Tous

<- CloseFile() - File Index - Eof() ->