Discussion :

[nostradamus]

Bonjour à tous,

Je souhaiterais ouvrir une fenetre pour sélectionner un répertoire sur le réseau, mais surtout récupérer le chemin absolu de ce repertoire soit "\\repertoire\repertoire\"

Par avance

Merci

[LedZeppII]

Bonjour,

Tu peux essayer ce code : Récupérer le chemin UNC d'un fichier

En voici un autre. (A mettre dans un module de code)

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
' -- déclarations (début)----------------------------------
Type UNIVERSAL_NAME_INFO
     lpUN As Long
     lpBuff As String * 512
End Type
 
Private Const UNIVERSAL_NAME_INFO_LEVEL = 1&
 
Private Declare Function WNetGetUniversalName Lib "mpr.dll" Alias "WNetGetUniversalNameA" _
     (ByVal lpLocalPath As String, ByVal dwInfoLevel As Long, _
      ByRef lpBuffer As Any, ByRef lpBufferSize As Long) As Long
' -- déclarations (fin)-------------------------------------
 
' -- fonction ---------------------------------------------
Function ToUNCPath(strPathIn As String) As String
Dim strUNC As String
Dim structUNI As UNIVERSAL_NAME_INFO, lngStructSize As Long
Dim lngRetVal As Long, p As Long
 
lngStructSize = Len(structUNI)
 
If WNetGetUniversalName(strPathIn, UNIVERSAL_NAME_INFO_LEVEL, structUNI, lngStructSize) = 0 Then
   p = InStr(1, structUNI.lpBuff, vbNullChar)
   If p > 0 Then
      strUNC = Left(structUNI.lpBuff, p - 1)
   End If
'Else
'   MsgBox GetLastWinError(Err.LastDllError, 0), vbExclamation
End If
 
ToUNCPath = strUNC
End Function

Et encore un autre (sans api) dans cette discussion

A+

[nostradamus]

Ca marche parfaitement

Merci beaucoup