Lire, écrire dans un fichier très simplement

Télécharger le projet
Commenter

Description

Peut-être que cela est déjà présent sur ce site mais en cherchant vite fait j'ai pas trouvé (alors que j'en avais besoin à ce moment là)
J'ai laissé le code tel que je l'utilise dans mon appli, il faut bien sur changer le App.Path & "\\setting.ini" par le nom du fichier à lire ou écrire

Source / Exemple : 


'pour lire un fichier
Public Sub sReadSettingIni()
    Dim fsoIni As New FileSystemObject
    Dim fstIni As TextStream
    Dim strLine As String
    
    Set fstIni = fsoIni.OpenTextFile(App.Path & "\\setting.ini", ForReading, False)

    While Not fstIni.AtEndOfStream
        strLine = fstIni.ReadLine
        If Len(strLine) > 0 Then
            'utilisation de strLine
        End If
    Wend
    
    fstIni.Close

End Sub

'Pour écrire dans un fichier
Public Sub sWriteSettingIni()

Dim fsoIni As New FileSystemObject
Dim fstIni As TextStream

    Set fstIni = fsoIni.CreateTextFile(App.Path & "\\setting.ini", True)
    
    fstIni.WriteLine ("Ligne à écrire")  
    
    fstIni.Close

End Sub
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.