A voir également:
- Avoir le chemin absolu
- Chemin absolu d'un lien dans une page - Codes sources - PHP (Divers)
- C / C++ / C++.NET : Convertir chemin relatif en chemin absolue (pour disque dur) - CodeS SourceS - Guide
- Chemin absolu de l'application ✓ - Forum - C++ & C++ .NET
- Transformer et chemin absolu ✓ - Forum - Java
- Recuperer le chemin relativ d'un fichier a partir de son chemin absolu ✓ - Forum - VB.NET
6 réponses
cs_Willi
- Messages postés
- 2375
- Date d'inscription
- jeudi 12 juillet 2001
- Statut
- Modérateur
- Dernière intervention
- 15 décembre 2018
Bonjour,
Voir ce snippet http://www.codyx.org/snippet_obtenir-chemin-unc-fichier_467.aspx
++
Voir ce snippet http://www.codyx.org/snippet_obtenir-chemin-unc-fichier_467.aspx
++
Kristof_Koder
- Messages postés
- 918
- Date d'inscription
- vendredi 3 août 2007
- Statut
- Membre
- Dernière intervention
- 27 octobre 2008
Remarque : Le commondialog te retourne une UNC si tu navigues dans le voisinage réseau et te retourne un chemin contenant une lettre d electeur mappé si tu navigues via ce lecteur dans la boite de dialog
soulkeum
- Messages postés
- 26
- Date d'inscription
- lundi 13 septembre 2004
- Statut
- Membre
- Dernière intervention
- 7 mars 2008
Bonjour,
ùerci de votre réponse, malheureusement il me dit que ya une erreur sur la premiuere ligne
Private Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long
Public Function GetUNCPath(ByVal PathName As String) As String
Dim sUNCPath As String
sUNCPath = String(260, 0)
If WNetGetConnection(Left$(PathName, 2), sUNCPath, 260) = 0 Then
sUNCPath = Trim(Left(sUNCPath, InStr(sUNCPath, vbNullChar) - 1))
sUNCPath = sUNCPath & Mid$(PathName, 3)
End If
GetUNCPath = sUNCPath
End Function
Pour la secone remarque même si je le chosit du réseaux (mon fichier), il me mets la lettre avec laquelle j'ai mapper
suivi-t du :\Rep
ùerci de votre réponse, malheureusement il me dit que ya une erreur sur la premiuere ligne
Private Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long
Public Function GetUNCPath(ByVal PathName As String) As String
Dim sUNCPath As String
sUNCPath = String(260, 0)
If WNetGetConnection(Left$(PathName, 2), sUNCPath, 260) = 0 Then
sUNCPath = Trim(Left(sUNCPath, InStr(sUNCPath, vbNullChar) - 1))
sUNCPath = sUNCPath & Mid$(PathName, 3)
End If
GetUNCPath = sUNCPath
End Function
Pour la secone remarque même si je le chosit du réseaux (mon fichier), il me mets la lettre avec laquelle j'ai mapper
suivi-t du :\Rep
cs_Willi
- Messages postés
- 2375
- Date d'inscription
- jeudi 12 juillet 2001
- Statut
- Modérateur
- Dernière intervention
- 15 décembre 2018
Et quel est ce message d'erreur ?