ciao a tutti,
sono alle prime esperienze VB6 e mi sto cimentando con la lettura del file ini .
ho scaricato un esempio da internet tutto abbastanza chiaro, ma non riesco a gestire un errore in lettura cioe quando richiamo il valore di una chiave in funzione della Sezione mi restituisce il percorso del file???? mentre sul file la chiave ha il valore corretto.
potete aiutarmi?codice:'accesso alla libreria Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long 'funzione di lettura Private Sub cmdApri_Click() Dim ValoreDiRitorno As Long Dim NomeFile NomeFile = "c:\test.ini" Dim StringaDiRitorno As String * 50 ValoreDiRitorno = GetPrivateProfileString(txtSezione, txtChiave, NomeFile, StringaDiRitorno, Len(StringaDiRitorno), NomeFile) If ValoreDiRitorno = 0 Then MsgBox "Si è verificato un errore!", vbExclamation Else txtValore.Text = Trim(StringaDiRitorno) End If End Sub
Grazie ciao

Rispondi quotando