PureBasic Forums - English

Code: Select all

If CreateFile(0, "Test.txt")    ; Ouvre un fichier existant ou en crée un nouveau s'il n'existait pas
  FileSeek(0, Lof(0))           ; Place le pointeur à la fin du fichier en utilisant le résultat de Lof() 
  WriteLong(0,123456789)
  WriteStringN(0, "... une autre ligne à la fin du fichier.")
  CloseFile(0)
Else
  MessageRequester("Information","Impossible de créer le fichier!")
EndIf
If ReadFile(0, "Test.txt")   ; Si le fichier peut être lu , on continue...
  While Eof(0) = 0           ; Boucle tant que la fin du fichier n'est pas atteinte. (Eof = 'End Of File') 
    Debug ReadLong(0)        ; Affiche ligne par ligne le contenu du fichier
  Wend
  CloseFile(0)               ; Ferme le fichier précédemment ouvert
Else
  MessageRequester("Information","Impossible d'ouvrir le fichier!")
EndIf

Code: Select all

If CreateFile(0, GetTemporaryDirectory() + "Test.txt")
...

Code: Select all

Define UserPath.s = GetUserDirectory(#PB_Directory_Documents)
Define FileName.s = UserPath + "Text.txt"

Debug FileName