LECTURE FICHIER TEXTE AVEC OBJET FSO (FILE SYSTEM OBJECT)
stevebelgium
Messages postés
180
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
7 juin 2003
-
30 mai 2003 à 12:13
EvilGost Messages postés 235 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 mai 2011 - 23 janv. 2006 à 13:23
EvilGost Messages postés 235 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 mai 2011 - 23 janv. 2006 à 13:23
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7272-lecture-fichier-texte-avec-objet-fso-file-system-object
https://codes-sources.commentcamarche.net/source/7272-lecture-fichier-texte-avec-objet-fso-file-system-object
23 janv. 2006 à 13:23
19 avril 2004 à 09:44
30 mai 2003 à 13:17
serait-il possible d'avoir également le code de suppression.
Tout cela serait bien si tu pouvais mettre un exemple zippé sur le site.
Merci
30 mai 2003 à 12:15
Pour lire des fichiers sans boucles c'est encore plus facile comme ca :
Function ReadTxT(Chemin As String, Fichier As String) As String
Open Chemin & Fichier For Input As #1
ReadTxT = Input(LOF(1), #1)
Close #1
End Function
Private Sub Lecture()
Dim FileBuffer1 As String
FileBuffer1 = ReadTxT("C:", "BootLog.txt")
End Sub
30 mai 2003 à 12:13
Function ReadTxT(Chemin As String, Fichier As String) As String
Open Chemin & Fichier For Input As #1
ReadTxT = Input(LOF(1), #1)
Close #1
End Function
Private Sub Lecture()
Dim FileBuffer1 As String
FileBuffer1 = ReadTxT("C:", "BootLog.txt")
End Sub