Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
Dim fd As FileDialog Dim FileDest As Variant Dim strSource As String On Error GoTo errout strSource = "\\cor-eng-07.am.corp.airliquide.com\g$\smartplantdb\cathistory\" & strFullCat & " Rev " & strRev & "\" Dim fs As Scripting.FileSystemObject Set fs = New Scripting.FileSystemObject Dim f1 As Scripting.Folder Set f1 = fs.GetFolder(strSource) Set fd = Application.FileDialog(msoFileDialogSaveAs) FileDest = "" With fd .InitialFileName = strNewCat & " Rev 0" .Title = "Copy " & strNewCat & " Rev 0" .Show FileDest = .SelectedItems(1) f1.Copy FileDest Dim strOld As String Dim strNew As String strOld = "\" & strFullCat & " Rev " & strRev & ".zip" strNew = "\" & strNewCat & " Rev 0.zip" MsgBox (FileDest & strOld & vbCrLf & vbCrLf & FileDest & strNew) '****Error 53 Here FileCopy FileDest & strOld, FileDest & strNew Kill FileDest & strOld
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.