Ecriture et lecture d'un fichier

Soyez le premier à donner votre avis sur cette source.

Vue 4 686 fois - Téléchargée 308 fois

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+++

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
295
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
24 janvier 2014
1
Tu l'as pas trop dur de recopier toutes tes sources dans le manuel VB6 de Micro Application ? ... Tu sais pauvre tache que les rédacteurs de Micro Application peuvent te poursuivre pour ça ?
Messages postés
150
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
27 avril 2007

Vive les commentaire...

Comme disais un type sur ce site, si c'est pas pour noté des conneries personnes ne dit rien, enfin bon... joyeux noel quand meme mdr
Messages postés
150
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
27 avril 2007

y semble qui merde ton site nix j'arrive pas a mettre un autre projet!

Y coute combien le fameu cd de vbfrance? lol

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.