Salut, pour trouver le chemin complet d'un fichier, oriente-toi vers l'api GetFullPathName.
Exemple pompé sur allapi.net :
Private Declare Function GetFullPathName Lib "kernel32" Alias "GetFullPathNameA" (ByVal lpFileName As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long
Private Sub Form_Load()
'KPD-Team 2000
'URL:
[ Lien ] 'E-Mail:
KPDTeam@Allapi.net Dim Buffer As String, Ret As Long
'create a buffer
Buffer = Space(255)
'copy the current directory to the buffer and append 'notepad.exe'
Ret = GetFullPathName("notepad.exe", 255, Buffer, "")
'remove the unnecessary chr$(0)'s
Buffer = Left(Buffer, Ret)
'show the result
MsgBox Buffer
End Sub
-------------------------------------------------
Dresseur de puces, .... normal pour un loup

!?