Get a file's last modified date in VB6

There is a built in VB6 function for that - no need for FSO (although FSO is great for more advanced file operations)

From http://msdn.microsoft.com/en-us/library/aa262740%28VS.60%29.aspx

Dim MyStamp As Date
MyStamp = FileDateTime("C:\TESTFILE.txt")

Add a reference to the Microsoft Scripting Runtime (Project->References...) and use the following code:

Dim fso As New FileSystemObject
Dim fil As File

Set fil = fso.GetFile("C:\foo.txt")
Debug.Print fil.DateLastModified

This is definitely the easiest way to achieve what you are looking for.

Dim myString as String

Dim myDate As Date

myString = Format(FileDateTime("C:\TESTFILE.txt"), "dd-MM-yyyy")

myDate = MyString

If you dim your variable as a string, you can use the Format function to shorten the result to just the date.

If you need your variable to be declared as a Date then do as I have done above and declare that as a separate variable. Once the Format function has done its job, copy the String variable to the Date variable and you're done in two lines of code.

As simple as that.