Hi,

I have 2 files - 1 on the network and the other on my local drive.
They have the same name. I want to be able to compare their creation/change dates and if the network one is newer than the local one I want to be able to overwrite the local one with the file from the network. Here is what I have so far, but it doesn't seem to work
on XP:
My form has 1 OLE2 control.

Private Sub Form_Load()
Dim sysdrive

   Dim v As Variant
   v = "SYSTEMDRIVE"
   sysdrive = Environ(CStr(v))

If DateDiff("h", FileDateTime(sysdrive & "c:\myfile.txt"), FileDateTime("\\somenetworkpath\myfile.txt")) > 0 Then OLE2.DoVerb
End
End Sub

Presumably the environment variable SYSTEMDRIVE will return a drive string.

If so, the string 'sysdrive & "c:\myfile.txt"' will include two drive designators, making the FileDateTime function fail to give a valid value (probably thinks the file does not exist).

No I made a type while posting my code - in my program I don't have "c:\myfile.txt", just "myfile.txt". And like I said it works fine on my Win 2000 machine but fails on any XP machine.

It does work on an XP Pro machine!

Though, this was with 'sysdrive & "\myfile.txt"' as the parameter.

PS. You did not previously mention that it worked on 2000.Perhaps the SYSTEMDRIVE environment variable is 'C:' for XP and 'C:\' for 2000?