leggere da un file ini

[ivaapril]

Come faccio a leggere da un file ini con vb ?

[ladyBlu]

il codice che ti posto parte da un bottone su un form. Quando clicchi richiami la sub che legge nel file .INI, che sta nella stessa directory del progetto e si chiama mioFile.INI.

Dim MioFileIni As String
Dim mioRec As String * 10

Private Sub Command1_Click()

     MioFileIni = App.Path & "\mioFile.INI"
     LeggiFileINI
     
     MsgBox mioRec

End Sub

Public Sub LeggiFileINI()

On Error GoTo Errore

    Open MioFileIni For Random As #1 Len = Len(mioRec)
    
            Get #1, 1, mioRec

            Close #1   ' Chiude il file.

    Exit Sub
    
Errore:
    If Err.Number = 53 Then   'Impossibile trovare il file
         MsgBox "Impossibile trovare il file"
       Else
         MsgBox "Errore n. " & Err.Number & ": " & Err.Description
    End If
  
End Sub

Ciao...