Discussion :

[zalalus]

salut,

j'essaye de lire un fichier. ini qui ontient juste la chaine suivante

path="c:\dossier\base.mdb"

en utilisant ce bout de code j'ai tjrs une chaine vide

des idées??????????

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Public Const NomDBLog = "DBAPLCOL" 
Private 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 
 
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Function LireINI(Entete As String, Variable As String, Filename As String) As String
 
Dim Retour As String
Filename = Application.CurrentProject.Path & "\" & Filename & ".ini"
Retour = String(100, Chr(0))
LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable, "", Retour, Len(Retour), Filename))
End Function
 
Public Function methode_Link()
chaine = LireINI("path", "path", "chemin")
End Function

[LedZeppII]

Bonjour,

Il manque le nom de section dans ton fichier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
[Nom_Section]
Clé1 = Valeur1
Clé2 = Valeur2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
[path]
path="c:\dossier\base.mdb"

A+

[zalalus]

merci ça marche