Dim dlgOpen As FileDialog sFileName = "" set dlgOpen = Application.FileDialog FileDialogType:=msoFileDialogFilePicker) With dlgOpen .Filters.Clear .InitialFileName = sQualityPath .Filters.Add Description:="All files (*.*)", Extensions:="*.*" .AllowMultiSelect = False .title = "Select EXISTING quality document" If .Show = -1 Then sFileName = .SelectedItems(1) 'extract filename from pathname sFileName = UCase(Mid(sFileName, Len(sQualityPath) + 1)) '.SelectedItems(1) = "" Set dlgOpen = Nothing Else Beep MsgBox "No file selected", vbInformation, "Creat draft of next version of quality document" Set dlgOpen = Nothing Main End If End With
Gain unlimited access to on-demand training courses with an Experts Exchange subscription.Get Access
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.