Ændre dato på fil

du kunne jo ændre dato'en inden du skal oprette, ændre eller åbne filen!!!

Ja, det kan man selvfølgelig, men hvordan ændrer jeg systemtid og -dato fra VB.
Jeg vil allerhelst, hvis jeg kan kan nøjes med at ændre filparametrene

jeg fandt dette engang paa nettet, maaske kan det bruges ?

Private Declare Function SystemTimeToFileTime Lib _
    "kernel32" (lpSystemTime As SYSTEMTIME, _
    lpFileTime As FILETIME) As Long
Private Declare Function LocalFileTimeToFileTime _
    Lib "kernel32" (lpLocalFileTime As FILETIME, _
    lpFileTime As FILETIME) As Long
Private Declare Function CreateFile Lib "kernel32" _
    Alias "CreateFileA" (ByVal lpFileName As _
    String, ByVal dwDesiredAccess As Long, ByVal _
    dwShareMode As Long, lpSecurityAttributes As _
    Any, ByVal dwCreationDisposition As Long, _
    ByVal dwFlagsAndAttributes As Long, _
    ByVal hTemplateFile As Long) As Long
Private Declare Function SetFileTime Lib "kernel32" _
    (ByVal hFile As Long, lpCreationTime As Any, _
    lpLastAccessTime As Any, lpLastWriteTime As _
    Any) As Long
Private Declare Function CloseHandle Lib "kernel32" _
    (ByVal hObject As Long) As Long

Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type

Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type

Private Const GENERIC_WRITE As Long = &H40000000
Private Const FILE_SHARE_READ As Long = &H1
Private Const FILE_SHARE_WRITE As Long = &H2
Private Const OPEN_EXISTING As Long = 3

Public Function FileDateTime(ByVal FileName As String, _
    Optional ByVal TimeStamp As Variant) As Date

    ' Raises an error if one occurs just like FileDateTime

    Dim x As Long
    Dim Handle As Long
    Dim System_Time As SYSTEMTIME
    Dim File_Time As FILETIME
    Dim Local_Time As FILETIME

    If IsMissing(TimeStamp) Then
        'It's missing so they must want to GET the timestamp
        'This acts EXACTLY like the original built-in function
        FileDateTime = VBA.FileDateTime(FileName)
    ElseIf VarType(TimeStamp) <> vbDate Then
        'You must pass in a date to be valid
        Err.Raise 450
    Else
        System_Time.wYear = Year(TimeStamp)
        System_Time.wMonth = Month(TimeStamp)
        System_Time.wDay = Day(TimeStamp)
        System_Time.wDayOfWeek = _
            Weekday(TimeStamp) - 1
        System_Time.wHour = Hour(TimeStamp)
        System_Time.wMinute = Minute(TimeStamp)
        System_Time.wSecond = Second(TimeStamp)
        System_Time.wMilliseconds = 0

        'Convert the system time to a file time
        x = SystemTimeToFileTime(System_Time, Local_Time)

        'Convert local file time to file time based on UTC
        x = LocalFileTimeToFileTime(Local_Time, File_Time)

        'Open the file so we can get a file handle to
        'the file
        Handle = CreateFile(FileName, GENERIC_WRITE, _
            FILE_SHARE_READ Or FILE_SHARE_WRITE, _
            ByVal 0&, OPEN_EXISTING, 0, 0)
        If Handle = 0 Then
            Err.Raise 53, "FileDateTime", _
                "Can't open the file"
        Else
            'Now change the file time and date stamp
            x = SetFileTime(Handle, ByVal 0&, _
                ByVal 0&, File_Time)
            If x = 0 Then
                'Error occured
                Err.Raise 1, "FileDateTime", _
                    "Unable to set file timestamp"
            End If
            Call CloseHandle(Handle)
            'Return newly set date/time
            FileDateTime = VBA.FileDateTime(FileName)
        End If
    End If
End Function


Du kalder funktionen med filnavnet alene for at laese timestamp. For at aendre timestamp kalder du funktionen med filnavn og timestamp f.eks.:
z = FileDateTime("myFile.txt","07/07/2004 22:23:24")

Jeg har ikke prøvet det nu og får heller ikke tid til det det næste lange stykke tid, men det ser spændende ud så jeg lukker nu.

takker. Lad mig vide om du skal bruge mere.