Private Sub cmdtransfer_Click()
Dim objFSO As FileSystemObject
Dim Msg, title, Response, Style As String
Msg = "This option will overwrite older files, do you wish to proceed?"
title = "Warning!"
Style = vbYesNo + vbCritcal + vbDefaultButton2
Response = MsgBox(Msg, Style...