Section VBS




Lire dans un fichier ini


Ce script permet de lire dans un fichier init.

Ce script au format VBS peut être utilisé comme suit.

Script :

Private Function LitIni(Section As String, Cle As String, Fichier As String, _
Optional ValeurParDefaut As String = "") As String
Dim strReturn As String
strReturn = String(255, 0)
GetPrivateProfileString Section, Cle, ValeurParDefaut, strReturn, Len(strReturn), Fichier
LitIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)

End Function  




 Retour a l'accueil   Forum
N'hézitez pas a poser toutes vos questions sur le forum