Lire le Username d'un fichier ID

[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