Ecriture et lecture d'un fichier

Télécharger le projet
Commenter

Description

y a déjà surement un code sur le site mais v'la toujours celui-la
rien de tres compliquer la dedans

Source / Exemple : 


Option Explicit
Public fso As New FileSystemObject
Dim Noel As String

Private Sub cmdlire_Click()
Dim strm As TextStream
txtaffichage.Text = ""
Set strm = fso.OpenTextFile(Noel)
With strm
  Do
    txtaffichage.Text = txtaffichage.Text & .ReadLine & vbCrLf
    Loop Until .AtEndOfStream
    .Close
  End With
End Sub

Private Sub cmdquitter_Click()
'efface le fichier avant de quitter le programme
fso.DeleteFile Noel
Unload Me
End Sub

Private Sub Form_Load()
Dim strm As TextStream
With fso
  Noel = .BuildPath(.GetSpecialFolder(TemporaryFolder), "Text.txt")
  Set strm = .CreateTextFile(Noel, False)
End With
lblnomfichier.Caption = "Fichier : " & Noel
With strm
.Write "Ceci est un test. "
.WriteLine "Voici une fin de ligne..."
.WriteLine "suivie de 2 lignes vides :"
.WriteBlankLines 2
.WriteLine "Fin du fichier"
.Close
End With
End Sub

Conclusion :


+++Viva Canabissa+++
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_steven007)