Ouvrir un répertoire dans Explorer.exe

[Michael DELIQUE]

Code : Tout sélectionner

Sub WindowsOpenPath(wPath As String)
   
   'Déclaration variable
   Dim vrShell As Variant
   Dim Path As String
   
   On Error Goto ErreurHandle
   
   Path = "C:\"
   
   If Trim(wPath)<>"" Then
      If DirectoryIsValide(Trim(wPath)) = True Then
         Path = Trim(wPath)
      End If
   End If
   
   Set vrShell = CreateObject("WScript.Shell")
   vrShell.Exec("explorer "+Path)
   Set vrShell = Nothing
   
   Exit Sub
ErreurHandle:
   Msgbox "("+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   Exit Sub
End Sub

[mike76]

salut,

sinon tu as une ligne de moins avec :

Code : Tout sélectionner

Dim v As Variant
v = Shell("explorer.exe c:\toto", 1)

ou aussi en formule par exemple pour ouvrir un répertoire sur le réseau :

Code : Tout sélectionner

@URLOpen("file:\\\\SERV09\\Dossier Client\\TOTO" )