Problemer med SetFileTime på win 95

Nedenstående kan vi ikke få til at virke på win 95, serveren er win 2000

Private Sub SetFileTime(ByVal FileName As String, ByVal FileDate As Date)
\'-------------------------------------------------------------------------------------------
\'  Metode:        SetFileTime
\'  Beskrivelse:    Sætter LastWriteTime på en fil
\'-------------------------------------------------------------------------------------------
    Dim m_Date As Date
    Dim lngHandle As Long
    Dim udtcFileTime As FILETIME
    Dim udtaFileTime As FILETIME
    Dim udtwFileTime As FILETIME
    Dim udtLocalTime As FILETIME
    Dim udtSystemTime As SYSTEMTIME
   
    m_Date = FileDate

    udtSystemTime.wYear = Year(m_Date)
    udtSystemTime.wMonth = Month(m_Date)
    udtSystemTime.wDay = Day(m_Date)
    udtSystemTime.wDayOfWeek = Weekday(m_Date) - 1
    udtSystemTime.wHour = Hour(m_Date)
    udtSystemTime.wMinute = Minute(m_Date)
    udtSystemTime.wSecond = Second(m_Date)
    udtSystemTime.wMilliseconds = 0
   
    lngHandle = CreateFile(FileName, GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)

    \' convert system time to local time
    \'SystemTimeToFileTime udtSystemTime, udtLocalTime
    GetFileTimeApi lngHandle, udtcFileTime, udtaFileTime, udtwFileTime
    \' convert local time to GMT
    LocalFileTimeToFileTime udtLocalTime, udtwFileTime
    \' open the file to get the filehandle
    \'lngHandle = CreateFile(FileName, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
    \' change date/time property of the file
    \'SetFileTimeApi lngHandle, vbNull, vbNull, udtFileTime
    SetFileTimeApi lngHandle, udtcFileTime, udtaFileTime, udtwFileTime
    \' close the handle
    CloseHandle lngHandle
End Sub