Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 130 fois - Téléchargée 37 fois
Dim FileBuffer1 As String Function ReadTxT(Chemin As String, Fichier As String) Dim VarBuffer As String ' Création de l'objet FSO Dim ObjetText As New FileSystemObject ' Variable type fichier Dim Fil As File ' Variable TextStream du FSO Dim TStreamText As TextStream Set ObjetText = CreateObject("Scripting.FileSystemObject") ObjetText.OpenTextFile (Chemin + Fichier) Set Fil = ObjetText.GetFile(Chemin + Fichier) Set TStreamText = Fil.OpenAsTextStream(ForReading) ' Copie la totalité du fichier dans un string (retour chariot et saut de ligne compris) VarBuffer = TStreamText.ReadAll ' Ferme le fichier TStreamText.Close ' Efface la valeur précédente de la fonction ReadTxT ReadTxT = vbNullString ' Renvoie le texte complet du fichier ReadTxT = VarBuffer End Function Private Sub Lecture ' Utilisation de la fonction lecture FileBuffer1 = ReadTxT("C:\", "BootLog.txt") End Sub
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
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
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
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.