Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
GetDirectory Function
Function GetDirectory(InitDir As String, Flags As Long,
CntrDlg As Boolean, Msg) As String Dim bInfo As BROWSEINFO Dim pidl As Long, lpInitDir As Long CntrDialog = CntrDlg ''Copy dialog centering setting to module level variable so callback function can see it With bInfo .pidlRoot = 0 'Root folder = Desktop .lpszTitle = Msg .ulFlags = Flags Above is only part of a function I got from a website long ago. Does anyone know what I need to use to get it to open the file dialog up at any other location other than 0 or root folder? Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
GetDirectory Function
Todd,
See http://www.cpearson.com/excel/BrowseFolder.htm for details on using the "Windows Shell Controls And Automation" library functions to do this. "Todd" wrote in message ... Function GetDirectory(InitDir As String, Flags As Long, CntrDlg As Boolean, Msg) As String Dim bInfo As BROWSEINFO Dim pidl As Long, lpInitDir As Long CntrDialog = CntrDlg ''Copy dialog centering setting to module level variable so callback function can see it With bInfo .pidlRoot = 0 'Root folder = Desktop .lpszTitle = Msg .ulFlags = Flags Above is only part of a function I got from a website long ago. Does anyone know what I need to use to get it to open the file dialog up at any other location other than 0 or root folder? Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
GetDirectory Function
Hey thank you. That is very helpful.
"Chip Pearson" wrote in message ... Todd, See http://www.cpearson.com/excel/BrowseFolder.htm for details on using the "Windows Shell Controls And Automation" library functions to do this. "Todd" wrote in message ... Function GetDirectory(InitDir As String, Flags As Long, CntrDlg As Boolean, Msg) As String Dim bInfo As BROWSEINFO Dim pidl As Long, lpInitDir As Long CntrDialog = CntrDlg ''Copy dialog centering setting to module level variable so callback function can see it With bInfo .pidlRoot = 0 'Root folder = Desktop .lpszTitle = Msg .ulFlags = Flags Above is only part of a function I got from a website long ago. Does anyone know what I need to use to get it to open the file dialog up at any other location other than 0 or root folder? Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel Data Validation/Lookup function does function correcty | Excel Worksheet Functions | |||
LINKEDRANGE function - a complement to the PULL function (for getting values from a closed workbook) | Excel Worksheet Functions | |||
Offset function with nested match function not finding host ss. | Excel Worksheet Functions | |||
Adding a custom function to the default excel function list | Excel Programming | |||
User-Defined Function pre-empting Built-in Function? How to undo???? | Excel Programming |