Explorateur Windows

Question

Bonjour,


Je suis sous access, j'ai une base de donnée client et je souhaiterais pouvoir sur le clic d'un bouton ouvrir le dossier d'un client donné. J'ai trouvé ce code pour ouvrir l'explorateur :


Code :
 
'accès à la fonction ShellExecute
 
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ 
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ 
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 
 
'obtenir le chemin complet du repertoire de windows
 
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
 
Ouverture du dossier Program Files:
 
Dim buffer As String * 256
Dim Length As Long
 
Length = GetWindowsDirectory(buffer, Len(buffer))
ShellExecute Me.hwnd, "open", Left(buffer, Length) & "\explorer.exe", "c:\program files", "", 1


Le problème est que mes dossiers clients se trouve sur un serveur et non sur C:\ !! 
Comment faire pour que l'explorateur s'ouvre avec un autre chemin que C:\ ??


Merci de votre aide!

cs_Exploreur · Answer

Salut,

Précise lui ton chemin, ma fois...

A+
Exploreur

cs_casy · Answer

exemple : 
ShellExecute Me.hwnd, "open", Left(buffer, Length) & "\explorer.exe", "\NomDuServeur\DossierAOuvir", "", 1

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

e040098k · Answer

J'ai bien essayé !! Je débute je sais mais il ne m'éxécute rien non plus, alor que si je précise un chemin sur C:\ il m'ouvre l'explorateur !

e040098k · Answer

Peut- être est parce que je travaille sur uyne session TSE ?

Explorateur Windows

4 réponses

Votre réponse

Discussions similaires