Page 1 sur 1
Lire le Username d'un fichier ID
Publié:
05 Nov 2007 à 16:55par Michael DELIQUE
- Code : Tout sélectionner
Public Function ReadIDFile_API(wPathFile As String) As String
'lit le username contenue dans le fichier ID
%REM
'variableAPI pour la fonction ReadIDFile_API
Declare Function REGGetIDInfo Lib "nnotes.dll" (Byval sIDFile As String, Byval lngInfoType As Long, Byval sResult As String, Byval lngBufferLength As Long, Byval lngBufferActual As Long) As Long
%END REM
'Déclaration Variables
Const REGIDGetName = 7
Dim Buffer As String * 560
Dim nbResult As Long
Dim nbActual As Long
On Error Goto ErreurHandle
If Trim(wPathFile) = "" Then
ReadIDFile_API = ""
Exit Function
End If
ReadIDFile_API = ""
Call REGGetIDInfo(wPathFile,REGIDGetName,Buffer,Len(Buffer),nbActual)
If Trim(buffer) <> "" Then
ReadIDFile_API = Left$(buffer,Instr(1,buffer,Chr$(0))-1)
End If
buffer = ""
Exit Function
ErreurHandle:
Msgbox "("+Structure_Log+" : "+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !" ReadIDFile_API = ""
Exit Function
End Function