I would like a macro that opens the directory D:\VEST\spBackup so that I can
see the files inside.



Any help would be greatly appreciated,



Roger

Hi Roger,

Roger B. wrote:
I would like a macro that opens the directory D:\VEST\spBackup so
that I can see the files inside.

If you simply want to open the folder in Windows Explorer, you can do
something like this:

Public Sub gShowFolder(rsPath As String)
Dim sh As Object

Set sh = CreateObject("Shell.Application")
sh.Explore rsPath

Set sh = Nothing
End Sub

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]

Or this

Sub test()
Shell "explorer.exe C:\Data", vbNormalFocus
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jake Marx" wrote in message ...
Hi Roger,

Roger B. wrote:
I would like a macro that opens the directory D:\VEST\spBackup so
that I can see the files inside.

If you simply want to open the folder in Windows Explorer, you can do something like this:

Public Sub gShowFolder(rsPath As String)
Dim sh As Object

Set sh = CreateObject("Shell.Application")
sh.Explore rsPath

Set sh = Nothing
End Sub

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]

Hi Roger

Maybe you want GetOpenFilename
See the VBA help also

Sub test()
Dim FName As Variant
Dim wb As Workbook
Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir

MyPath = "D:\VEST\spBackup\"
ChDrive MyPath
ChDir MyPath

FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls")
If FName < False Then
Set wb = Workbooks.Open(FName)
MsgBox "your code"
wb.Close
End If

ChDrive SaveDriveDir
ChDir SaveDriveDir

End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Roger B." wrote in message ...
I would like a macro that opens the directory D:\VEST\spBackup so that I can see the files inside.



Any help would be greatly appreciated,



Roger

Hi Roger

Maybe you want GetOpenFilename
See the VBA help also

Sub test()
Dim FName As Variant
Dim wb As Workbook
Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir

MyPath = "D:\VEST\spBackup\"
ChDrive MyPath
ChDir MyPath

FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls")
If FName < False Then
Set wb = Workbooks.Open(FName)
MsgBox "your code"
wb.Close
End If

ChDrive SaveDriveDir
ChDir SaveDriveDir

End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Roger B." wrote in message ...
I would like a macro that opens the directory D:\VEST\spBackup so that I can see the files inside.



Any help would be greatly appreciated,



Roger