The variable ObjDir contains the full path (including driveletter), so if you change the sub GoSubFolders(objDIR) to the following, everything will work fine...
Sub GoSubFolders (objDIR)
If objDIR <> sDIR & "\System Volume Information" Then
for each eFolder in objDIR.Subfolders...
This piece of code can solve your problem:
Dim WshShell
Set WshShell=Wscript.CreateObject("wscript.Shell")
'The "3" parameter in the following line opens it maximised
WshShell.Run "explorer.exe /e,c:\",3,TRUE
WshShell=Nothing
Wscript.Quit
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.