***Make ANY Folder The Root Of Windows Explorer***
My Code calls The Windows Explorer with the switch "e,/root," and makes any folder you want the root of the windows explorer
Original Author: Jim
Side Effects
It's a little slow calling the explorer cause i shell it, if you know better please edit at will
Code
'it's a module
'i went a little DIM crazy with the
'variables but it's still good code...enjoy
Public Sub eRoot(rootpath As String, fldrs As Boolean)
'fldrs is the folders switch, monkey with it and see what you get
On Error Resume Next
Dim EX, ARGU, path, X
If fldrs = True Then
EX = "explorer.exe"
ARGU = " /e,/root, "
path = rootpath$
X = Shell(EX & ARGU & path, 1)
ElseIf fldrs = False Then
EX = "explorer.exe"
ARGU = " n/e,/,root, "
path = rootpath$
X = Shell(EX & ARGU & path, 1)
End If
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.