je souhaite ecrire dans un fichier ini comme suit:
 
fichier Odbc.ini dans c:\windows
 
mon fichier de base:  
[ODBC 32 bit Data Sources]
MS Access 97 Database=Microsoft Access Driver (*.mdb) (32 bits)
 
 
[MS Access 97 Database]
Driver32=C:\WINDOWS\SYSTEM\odbcjt32.dll
 
[X38]
Driver32=C:\WINDOWS\SYSTEM\cror813.dll
 
[X3ORACLE]
Driver32=c:\oracle\ora81\BIN\SQORA32.DLL
 
 
ce que je souhaite faire:  
[ODBC 32 bit Data Sources]
MS Access 97 Database=Microsoft Access Driver (*.mdb) (32 bits)
X38=CR Oracle8 (32 bits)
X3ORACLE=Oracle ODBC Driver (32 bits)
 
[MS Access 97 Database]
Driver32=C:\WINDOWS\SYSTEM\odbcjt32.dll
 
[X38]
Driver32=C:\WINDOWS\SYSTEM\cror813.dll
 
[X3ORACLE]
Driver32=c:\oracle\ora81\BIN\SQORA32.DLL
 
 
comment faire cela??????????????? je n'y connais rien en vb  
cf: http://forum.hardware.fr/forum2.ph [...] ubcat=#bas

Passe par les API windows, c'est le plus simple (sinon tu peux écrire facilement une fonction de lecture/écriture de fichiers ini mais t'en a pour une page de code, pour une execution moins performante que les API)

ok, mais ca marche comment les API??

fais une recherche sur "vb6 WritePrivateProfileString" dans google et tu vas rapidement trouver ton bonheur

http://rp.developpez.com/vb/tutori [...] ysteme#ini

va sur mon lien dans la signature : tu as l'API en question, mais c'est pas évident du tout !

c'est tout simple il faut déclarer les fonctions suivnates :
 
Public 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
 
Public 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
 
 
Puis les utiliser par exemple :
    lng_NbCar = GetPrivateProfileString(str_AppName,str_KeyName,                                    str_Defaut, str_ReturnString,                                   1024, str_Fic)
 
   WritePrivateProfileString str_AppName, str_KeyName, str_valeur, str_Fic