Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.
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
|Which operating system and computer hardware should I use with Access 2016||15||26|
|Error compiling fairly simple database||3||14|
|MS Access 2010 Form Building||3||21|
|Update a field with 3 characters from another field||3||17|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!