The best way I found to do it was to use word to get the file open dialog. Hey, i'v got a way to resolve this problem. Please try the code below: on error resume next set fso=createobject('scripting.filesystemobject') Set WshShell=WScript.CreateObject('Shell.Application') dirPath=WshShell.BrowseForFolder(0, 'select the path', 0, ').items().item().path if right(dirPath,1)' ' then dirPath=dirpath&' ' end if if dirpath=' ' then dirpath='DOCUME~1 Admini~1 desktop ' end if msgbox dirpath -- Lance Yan ------------------------------------------------------------------------ Lance Yan's Profile: View this thread. 720p dual audio movies.
With Windows Vista, the UserAccounts.CommonDialog ActiveX control for opening a file open dialog box no longer exists. Here's a look at how you can solve that problem using Visual Basic Express Edition. Be warned that the File Dialogue in this app uses 'UserAccounts.CommonDialog', which is only available in Win XP. If you are using any other flavor of Windows (Vista, 2x, 7) the File Dialog will not work.