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

**mail** · 08-14-2020, 12:55 AM

Problem Solved

**fixer** · 08-14-2020, 02:36 PM

This Problem is not Solved, I have this macro & it works sometimes & sometimes it doesnt works

Code:

Public Declare PtrSafe Function ShellExecute _
    Lib "shell32.dll" _
    Alias "ShellExecuteA" ( _
    ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) _
As Long


Sub STEP2()
Dim strFileName As String
Dim strFileExists As String
 
    strFileName = "C:\Users\WolfieeeStyle\Desktop\Close Excel.lnk"
    strFileExists = Dir(strFileName)
 
   If strFileExists > "" Then
   Set fso = CreateObject("scripting.filesystemobject")
   fso.MoveFile Source:="C:\Users\WolfieeeStyle\Desktop\Close Excel.lnk", Destination:="C:\Users\WolfieeeStyle\Desktop\WolfieeeStyle\9.15\"
    ShellExecute 0, "OPEN", "C:\Users\WolfieeeStyle\Desktop\WolfieeeStyle\9.15\Close Excel.lnk", "", "", 1
    Else
        
    End If
    
End Sub

**fixer** · 08-14-2020, 07:49 PM

Problem Solved
Another macro has made a mistake & it is working perfect
Thnx Alot Sir

**fixer** · 08-16-2020, 02:34 PM

“Moderator” Notice
September 2020
Given up with this “OP” , Avinash around September 2020. https://excelfox.com/forum/showthrea...ll=1#post14972
https://excelfox.com/forum/showthrea...ll=1#post14972
I am no longer monitoring what its doings. It had curiosity appeal for a while, but even that has worn off me now!
It’s getting worse by the Day. Its still doing whatever it is that it is doing and getting Replies and answers at excelforum.com and likely a few places I don’t know about.

Hi Experts,

Code:

Option Explicit

Sub STEP2()
Dim wkb As Workbook
Set wkb = Workbooks.Add
wkb.SaveAs Filename:="C:\Users\WolfieeeStyle\Desktop\FALSEFALSEFALSE.xlsx"
wkb.Close
Dim fso As Object
Dim strFileName As String
Dim strFileExists As String
Set fso = CreateObject("scripting.filesystemobject")
 
    strFileName = "C:\Users\WolfieeeStyle\Desktop\FALSEFALSEFALSE.xlsx"
    strFileExists = Dir(strFileName)
 
   If strFileExists > "" Then
   fso.movefile Source:="C:\Users\WolfieeeStyle\Desktop\FALSEFALSEFALSE.xlsx", _
                Destination:="C:\Users\WolfieeeStyle\Desktop\WolfieeeStyle\9.15\FALSEFALSEFALSE.xlsx"
     Shell "taskkill /F /IM EXCEL.EXE"
    Else
        
    End If
    
End Sub

This macro does what i want & I need a confirmation that this macro is perfect & it has no errors & if there is anything which needs to be modified then plz modify the same & let me know

Thnx

Cross Post

https://eileenslounge.com/viewtopic....273280#p273280

**fixer** · 08-20-2020, 02:28 AM

Hello Guys,

If column M data of ap.xls matches with column A data of sample2.xlsx (sheet2) (May be Column M data will be blank or 0 so ignore that)& column G data of oo.xlsx matches with column A data of sample2.xlsx (sheet2) then move the file C:\Users\WolfieeeStyle\Desktop\sample5.xlsx to C:\Users\WolfieeeStyle\Desktop

Macro will be placed in a seperate file macro.xlsm

(Number will be positive or negatiove , No issue with the positive or negative , the number should be present is must)

Thnx Alot