Opens directory
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 |
Opens directory
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] |
Opens directory
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 |
Opens directory
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 |
Opens directory
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] |
All times are GMT +1. The time now is 06:19 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com