VBA Dir File Copy and Paste: Check if file exists then copy file from one directory to another. Bat File

**DocAElstein** · 03-04-2020, 04:17 PM

Lots of ways to do this is, https://lmgtfy.com/?q=vba+check+if+file+exists ( https://lmgtfy.com/?qtype=search&q=v...if+file+exists )

For example
Dir Function ( https://docs.microsoft.com/en-us/off...p/dir-function )

If _ “MyFile.xls ”_ is at _ “C\Desktop” _ Then _ Dir(“ C\Desktop\MyFile.xls”, vbNormal ) = “MyFile.xls ”

If _ “MyFile.xls ” _is Not at_ “ C\Desktop ” _ Then _Dir(“ C\Desktop\MyFile.xls” , vbNormal ) = “”

Code:

' http://www.excelfox.com/forum/showthread.php/2423-Check-file-is-present-or-not
Sub VBACheckIfFileExists() '    https://lmgtfy.com/?q=vba+check+if+file+exists  (  https://lmgtfy.com/?qtype=search&q=vba+check+if+file+exists  )
Dim StrDirBack As String
 Let StrDirBack = Dir(ThisWorkbook.path & "\" & ThisWorkbook.Name, vbNormal)
    If StrDirBack = "" Then
     MsgBox prompt:=ThisWorkbook.Name & "  is not at  " & ThisWorkbook.FullName
    Else
     MsgBox prompt:=ThisWorkbook.Name & "  is at  " & ThisWorkbook.FullName
     MsgBox prompt:=Dir(ThisWorkbook.path & "\" & ThisWorkbook.Name, vbNormal) & "  is at  " & ThisWorkbook.FullName
    End If
 
 Let StrDirBack = Dir(ThisWorkbook.FullName, vbNormal)
    If StrDirBack = "" Then
     MsgBox prompt:=ThisWorkbook.Name & "  is not at  " & ThisWorkbook.FullName
    Else
     MsgBox prompt:=ThisWorkbook.Name & "  is at  " & ThisWorkbook.FullName
     MsgBox prompt:=Dir(ThisWorkbook.FullName, vbNormal) & "  is at  " & ThisWorkbook.FullName
    End If

 Let StrDirBack = Dir("C:\Users\WolfieeeStyle\Desktop\CD.xlsx", vbNormal)
    If StrDirBack = "" Then
     MsgBox prompt:="CD.xlsx  is not at  C:\Users\WolfieeeStyle\Desktop\CD.xlsx"
    Else
     MsgBox prompt:="CD.xlsx  is at  C:\Users\WolfieeeStyle\Desktop\CD.xlsx"
     MsgBox prompt:=Dir("C:\Users\WolfieeeStyle\Desktop\CD.xlsx", vbNormal) & "  is at  C:\Users\WolfieeeStyle\Desktop\CD.xlsx"
    End If

 Let StrDirBack = Dir("C:\Users\WolfieeeStyle\Desktop\DF.xlsx", vbNormal)
    If StrDirBack = "" Then
     MsgBox prompt:="DF.xlsx  is not at  C:\Users\WolfieeeStyle\Desktop\DF.xlsx"
    Else
     MsgBox prompt:="DF.xlsx  is at  C:\Users\WolfieeeStyle\Desktop\DF.xlsx"
     MsgBox prompt:=Dir("C:\Users\WolfieeeStyle\Desktop\DF.xlsx", vbNormal) & "  is at  C:\Users\WolfieeeStyle\Desktop\DF.xlsx"
    End If

End Sub

Thread: VBA Dir File Copy and Paste: Check if file exists then copy file from one directory to another. Bat File

Thread Tools

Display

Hybrid View

Similar Threads

Copy Paste based on comparisons calculations in 2 XL files, 1 might be .csv file .Opened in XL=Fail/Chaos

VBA Macro To Save And Copy File To Different Locations

Opening Last Working Day's File And Copying And Pasting Into Different File

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions