Find File and Copy to Folder

Sub File_to_Copy()

MyDate = Date - 1

MyDateYYYY = Format(MyDate, "YY")

MyDateMM = Format(MyDate, "MM")

MyDateDD = Format(MyDate, "DD")

'Find the file

FoundFile = "FUTURE.RENT.LIFT.REJECT." & MyDateYYYY & MyDateMM & MyDateDD

Dim MyObj As Object, MySource As Object, file As Variant

file = Dir("Q:\folder\future.rent\")

While (file <> "")

file = Dir

If file Like "*" & FoundFile & "*" Then

ResultedFile = file

GoTo ContinueProcess

End If

Wend

ContinueProcess:

'Copy and Rename file.

FileToBeCopied = "Q:\rambo\future.rent\" & ResultedFile

FileToBeExported = "S:\FinAdj\Master_Files\PAID_AHEAD\PARIS.TXT"

FileCopy FileToBeCopied, FileToBeExported

MsgBox "PARIS: The file " & file & " was loaded successfully."

Exit Sub

End Sub