Code to Open the Folder i just saved to in VBA?

Hi,

I've got code setup to save a load of worksheets as .pdf to a particular folder on the pc. At the end i want a msgbox that asks if the user wants to open the folder.

Soim guessing it would be something like the below but i don't know the command to actually open the folder?

If msgbox ("View Folder?",vbyesno) = yes then
'Open C:\MyFolder <<<< Help?
Else
End if

Thanks in advance

J

Does this work for you?

Sub f()
     
    Shell "C:\windows\explorer " & CreateObject("Shell.Application").BrowseForFolder(0, "choose folder", 512, "C:\MyFolder"), 1
     
End Sub

Hi the purpose is simply to open up the folder where i sent my files - so for the user to view the contents of the folder as you would normally when double clicking on any folder.

rkey - thanks for that bit of code, it opens up the browser to select a folder but doesn't actually just open the folder .

then try this:

Sub f()

    sPath = "C:\MyFolder\"
    retVal = Shell("C:\windows\explorer.exe " & sPath, vbNormalFocus)
     
End Sub

you sir. are a genius. That has worked perfectly. Thanks.

For my own knowledge, what is "retVal" and why don't i have to declare it?

retVal stands for return value.

The Shell command returns a value (so you can determine if the command succeeded e.g.) which you can use for error handling or other comparisons.

Actually you should declare it, unless you are running your macro without "Option Explicit"
To actually force yourself in declaring the right type of values you could consider getting used the the habit of declaring (unfortunately I'm not :P).
It also could improve performace as I believe.

Cheers,
Rick

Cheers mate, thanks very much for the help