Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 398
  • Last Modified:

File date compare to today's date

I have the code below to find current date of file to match today's date without using time.  Will the format of the date I have used below work or is there a better way?    


Dim oFS As Object
    Dim strFilename As String
    Dim r As Range
    Dim dat1 As Date, dat2 As Date
    'Put your filename here
    strFilename = "P:\ABD.txt"

    Set oFS = CreateObject("Scripting.FileSystemObject")



Set r = Sheet1.Range("c3")
dat1 = CDate(r.Value)
dat2 = CDate(oFS.GetFile(strFilename).DateCreated)

If Format(dat1, "mm/dd/yyyy") <> Format(dat2, "mm/dd/yyyy") Then
    MsgBox ("Not current file")
0
leezac
Asked:
leezac
1 Solution
 
Patrick MatthewsCommented:
That should work well enough, if the point is to compare dates without respect to time...
0
 
leezacAuthor Commented:
Thank you
0

Featured Post

Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now