[Fichier INI] GetPrivateProfileString : System.OverflowException
Bonjour à tous,
Voilà, j'ai une application en VB.NET 2003, je cherches à lire dans un fichier INI :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| 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
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Dim l_IniFile As String
Dim l_Pos As Integer
Dim l_Domain As String
Dim l_Logon As String
Dim l_Password As String
Dim l_TempString As String
l_IniFile = Application.StartupPath + "\Logon.ini"
l_TempString = New String(" ", 100)
l_Pos = GetPrivateProfileString("Workflow", "Domain", " ", l_TempString, 100, l_IniFile)
l_Domain = Trim(Left(l_TempString, l_Pos)) |
À la ligne l_Pos = GetPrivateProfileString("Workflow", "Domain", " ", l_TempString, 100, l_IniFile) j'obtiens l'exception suivante :
Citation:
Une exception non gérée du type 'System.OverflowException' s'est produite dans ...
Informations supplémentaires*: L'opération arithmétique a provoqué un dépassement de capacité.
Quelqu'un a une idée de ce que pourrait être le problème? J'ai regardé dans les autres threads de fichiers INI sur le forum et je n'ai rien trouvé qui pourrait m'aider.
Merci d'avance...:)
