Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
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
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.