This month’s featured course covers 16 hours of training in installation, management, and deployment of VMware vSphere virtualization environments. It's free for Premium Members, Team Accounts, and Qualified Experts!
strInputFilePath = ahtCommonFileOpenSave( _ OpenFile:=True, _ DialogTitle:="Please select an input file...", _ Flags:=ahtOFN_HIDEREADONLY) strFilename = Dir(strInputFilePath) ---the file re-name process need to be here--- strNewFilePath = "\\hmcapp1\Data\WQDBASES\wqd\Attach\" & Me.Site Me.txtWhatFile = strNewFilePath If FileExists("\\hmcapp1\Data\WQDBASES\wqd\Attach\" & Me.Site & "\" & strFilename) Then If MsgBox(strFilename & " already exists." & vbCrLf & _ "Would you like to replace it?", vbYesNo + vbQuestion, "Attention!") = vbYes Then GoTo Overwrite Else Exit Sub End If End If
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.