Avoir le chemin absolu [Résolu]

Signaler
Messages postés
26
Date d'inscription
lundi 13 septembre 2004
Statut
Membre
Dernière intervention
7 mars 2008
-
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
-
Bonjour,

j'ai utilisé COMMONDIALOG, pour ouvrir des fichier que je dois envoyer comme paramettre avec une procedure stockée.

le probleme c'est que orsque je vais Commondialog.Filename pour avoir le fichier j'ai des chemin du genre

E:\REP\toto.xls

or j'ai des fichier sur des lecteur mapper et je veux  que mon chemin soit

\\NomDuServeur\Rep\toto.xls ou je peux aussi  avoir le lecteur

y'a ti un moins de le faire avec commondialog ou autre ?

Merci

6 réponses

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
20
Messages postés
918
Date d'inscription
vendredi 3 août 2007
Statut
Membre
Dernière intervention
27 octobre 2008
10
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
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
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
20
Et quel est ce message d'erreur ?
Messages postés
26
Date d'inscription
lundi 13 septembre 2004
Statut
Membre
Dernière intervention
7 mars 2008

Bonjour,
c'est bon j'ai rélger ça !!!
il manqué juste un option explicit

merci bcp
j'ajoute régler, au titre de la topic ?
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
20
Oui :)