Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
Function doFileOpenDialog() Dim oCDlg Dim sTmp Set oCDlg = CreateObject( "MSComDlg.CommonDialog" ) If oCDlg Is Nothing Then MsgBox "CreateObject( 'MSComDlg.CommonDialog' ) failed." Exit Sub End If oCDlg.MaxFileSize = 10000 oCDlg.DialogTitle = "Choose directory" ' Setting other oCDlg.Properties ' oCDlg.Filter = ... ' ... oCDlg.ShowOpen doFileOpenDialog = oCDlg.Filename ' FSpec End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.