Open Foldr Macro..?

A

Andrew

Is there an easy Macro to open Folders from Excel.VB..?
I'm Sure Ive done it before - but can't remember if it was a fs
object or something.

Thx for any Help/Feedback
 
J

JLGWhiz

This is out of the VBA help file. It opens a folder and returns info on the
filename included as folderspec.

Sub ShowFolderInfo(folderspec)
Dim fs, f, s,
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
s = f.DateCreated
MsgBox s
End Sub
 
A

Andrew

Brilliant - Thanx..It was the CreateObject- Bit I'd Forgot.

Sorry, Should of explained more clearly.
I was wanting to Open(Explore) the Folder. in a new Window.

Any Ideas..?



| This is out of the VBA help file. It opens a folder and returns
info on the
| filename included as folderspec.
|
| Sub ShowFolderInfo(folderspec)
| Dim fs, f, s,
| Set fs = CreateObject("Scripting.FileSystemObject")
| Set f = fs.GetFolder(folderspec)
| s = f.DateCreated
| MsgBox s
| End Sub
|
|
|
| "Andrew" wrote:
|
| > Is there an easy Macro to open Folders from Excel.VB..?
| > I'm Sure Ive done it before - but can't remember if it was a fs
| > object or something.
| >
| > Thx for any Help/Feedback
| >
| >
| >
 
J

JLGWhiz

You would use this particular code like a function. In a separate sub you
would enter a statement like:

ShowFolderInfor("MyFile.xls")

Which would then produce the date the file was created. See the GetFolder
page in VBA help for more info.
 
A

Andrew

.... Just used a - Hyperlink - in the End.
Imp Tink i used an "Execute shell folder" or something ages ago..!
<That'll Bug me now.. ¦-( >
Thanx again,
A

| You would use this particular code like a function. In a separate
sub you
| would enter a statement like:
|
| ShowFolderInfor("MyFile.xls")
|
| Which would then produce the date the file was created. See the
GetFolder
| page in VBA help for more info.
|
| "Andrew" wrote:
|
| > Is there an easy Macro to open Folders from Excel.VB..?
| > I'm Sure Ive done it before - but can't remember if it was a fs
| > object or something.
| >
| > Thx for any Help/Feedback
| >
| >
| >
 
K

Kenneth Hobson

To explore or just select and return selection? If the first, one these
methods will work.

Sub OpenExplorer()
Dim x As Variant
Dim sPath As String

'sPath = """E:\MyDirectory\Williams,Bob 7264\"""
sPath = Application.path
x = Shell("explorer /n,/e," & sPath, 1)
End Sub

Sub t()
Dim sPath As String
sPath = """E:\MyDirectory\Williams,Bob 7264\"""
IExplorerOpen sPath
End Sub

Private Sub IExplorerOpen(sPath As String)
'early binding. Requires reference to Microsoft Internet Controls
(shdocvw.dll).
Dim ieo As SHDocVw.InternetExplorer
Set ieo = New SHDocVw.InternetExplorer
ieo.FullScreen = True
ieo.Navigate sPath
ieo.Visible = True
Exit Sub

'late binding
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Navigate sPath
IE.Visible = True
Exit Sub
End Sub
 
S

Steve Yandl

Andrew,

I suspect you want to be able to select files from this new Explore window
and do something with them. If you simply want to open an explorer window,
here is one approach, in this case opening the folder C:\Test.

Set objShell = CreateObject("Shell.Application")
objShell.Explore "C:\Test"
Set objShell = Nothing



Steve Yandl
 
A

Andrew

Hail the Messiah...
Shell "Explorer /e,MyDocuments", vbNormalFocus

That's the one.. Shell.

Silly me, for the life of me could not remember.
I'll sleep tonight.
Thx Kenneth.

| To explore or just select and return selection? If the first, one
these
| methods will work.
|
| Sub OpenExplorer()
| Dim x As Variant
| Dim sPath As String
|
| 'sPath = """E:\MyDirectory\Williams,Bob 7264\"""
| sPath = Application.path
| x = Shell("explorer /n,/e," & sPath, 1)
| End Sub
|
| Sub t()
| Dim sPath As String
| sPath = """E:\MyDirectory\Williams,Bob 7264\"""
| IExplorerOpen sPath
| End Sub
|
| Private Sub IExplorerOpen(sPath As String)
| 'early binding. Requires reference to Microsoft Internet Controls
| (shdocvw.dll).
| Dim ieo As SHDocVw.InternetExplorer
| Set ieo = New SHDocVw.InternetExplorer
| ieo.FullScreen = True
| ieo.Navigate sPath
| ieo.Visible = True
| Exit Sub
|
| 'late binding
| Dim IE As Object
| Set IE = CreateObject("internetexplorer.application")
| IE.Navigate sPath
| IE.Visible = True
| Exit Sub
| End Sub
|
 
Top