cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 27 janv. 2004 à 15:36
Un fichier ini sert surtout à stocker des valeurs servant à l'initialisation d'un programme, comme leurs noms l'indique.
Qu'entends-tu par "placer des fichiers" ? Là j'avoue ne pas comprendre la question !
Pour savoir comment créer un fichier ini, il faut passer par les fonctions API pour y arriver rapidement et facilement. Tu trouveras de nombreuses sources sur ce sujet en faisant une recherche dans les sources de ce site !
DarK Sidious
[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]
cs_labout
Messages postés1356Date d'inscriptionsamedi 8 décembre 2001StatutMembreDernière intervention23 octobre 20068 27 janv. 2004 à 16:47
labout
Voici un exemple de fichier ini
[database]
base=C:\Documents and Settings\Database\incident.mdb
connection=Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=MS Access
Database;DBQ=C:\Documents and Settings\Database\incident.mdb;DefaultDir=C:\Documents and Settings\Database;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"
;connection=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BnpIncident;Data Source=JMB76
[report]
adresse=C:\Documents and Settings\Report
connection=Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=MS Access Database;DBQ=C:\Documents and Settings\Database\Incident.mdb;DefaultDir=C:\Documents and Settings\jean-marie\Bnp\Database;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"
;connection=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BnpIncident;Data Source=JMB76
AdresseQuery=C:\Documents and Settings\Sql
[Sauvegarde]
adresse=C:\Documents and Settings\Database
[purge]
delai=730
Pour le lire
Dans un module
Public Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String) As Long
pour le lire
dim base as string
dim n as integer
base = String$(250, 0)
n = GetPrivateProfileString("database", "base", "", base, Len(base), App.Path & "\incident.ini")
base = LCase$(Left$(base, n))
On a répupéré dans la variable base ce qu'il y avait dans la cle base du fichier INI.
Comme te l'a dit Dark on y mets tout ce qui peut être amené à évoluer et ainsi éviter de modifier le prog
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 27 janv. 2004 à 17:00
Petite rectification sur ce que vient de dire Labout :
Le fichier ini ne s'écrit pas forcément avec un éditeur de texte, et il est même plus facile de l'écrire en utilisant la fonction API WritePrivateProfileString !
DarK Sidious
[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]