Open a Folder

D

danpt

I backup different xls file groups in J:\Backup\aBackup, J:\Backup\bBackup
and so on.
Please help me to scripte a vba that will open the bBackup folder.
Thanks
 
M

Marvin P. Winterbottom

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo WshShell.CurrentDirectory
WshShell.CurrentDirectory = "J:\Backup\bBackup"
 
D

danpt

Hi, Marvin
It is not quite working.
WScript needs to be defined.
I don't know how. Please take a look again.
Thanks
 
S

Steve Yandl

Define what you mean by "open the bBackup folder". Are you wanting the
SaveAs dialog to appear opened to the bBackup folder or are you just wanting
an Explorer type window opening to reveal the contents of the bBackup folder
or something else?

Steve Yandl
 
D

danpt

Hi, Steve
I just want to open an Explorer type window to reveal the contents of the
bBackup folder.
 
D

Dave Peterson

If you just want to review the contents of a folder, you could use
application.getopenfilename or application.getsaveasfilename
 
R

Rick Rothstein

As long as you don't want your code to interact with Windows Explorer, you
should be able to open it using this...

Shell "explorer.exe", vbNormalFocus
 
D

danpt

Thank you very much, Rick
Shell "explorer.exe J:\Backup\bBackup", vbNormalFocus
which is what I wanted.
 
D

danpt

Hi Dave,
It opens to dialog window "Documents".
How about "J:\Backup\bBackup" instead.
 
D

Dave Peterson

Dim myPath As String
Dim SavedPath As String

SavedPath = CurDir
myPath = "J:\Backup\bBackup"

ChDrive myPath
ChDir myPath

Application.GetOpenFilename

ChDrive SavedPath
ChDir SavedPath
 
D

danpt

Thank you very much, Dave
I learn something new

Dave Peterson said:
Dim myPath As String
Dim SavedPath As String

SavedPath = CurDir
myPath = "J:\Backup\bBackup"

ChDrive myPath
ChDir myPath

Application.GetOpenFilename

ChDrive SavedPath
ChDir SavedPath
Click to expand...
 
V

VB-rookie

Hello
What if you wanted to make J:\Backup\Backup a user defined location, say it
is defined by a value in a cell of a spreadsheet:
Exa - cell B3 = "J:\Backup\Backup "

I tried
mypath=cell(3,2)
Shell "explorer.exe mypath", vbNormalFocus

it says mypath is not a directory

thanks a bunch
 
Top