Compare and copy and open file using VBA

[Song Su]

My SourceFile is S:\Apps\PhoneBook\Phone.pdf
My TargetFile is "%AppData%" & \elac\PhoneBook\Phone.pdf

How to use VBA to compare these two files:

If SourceFile is newer than TargetFile or TargetFile does not exist Then
Copy from SourceFile to TargetFile
End If
Open TargetFile

 

[Douglas J. Steele]

Dim strSource As String
Dim strTarget As String

strSource = "S:\Apps\PhoneBook\Phone.pdf"
strTarget = Environ("AppData") & "\elac\PhoneBook\Phone.pdf"

If Len(Dir(strTarget)) > 0 Then
If FileDateTime(strSource) > FileDateTime(strTarget) Then
FileCopy strSource, strTarget
End If
Else
FileCopy strSource, strTarget
End If

Application.FollowHyperlink strTarget

 

[Song Su]

Great! Not only your code works without modification, I also learned a great
lesson. Thank you.

I used to use DOS batch file which gave me a nasty black DOS window.