Dateiattribute ändern


Der Zugriff auf einzelne Dateiattribute (z.B. Schreibschutz, System, versteckt ...) gelingt vielfach mit dem FileSystemObject. Um das Dateidatum (letztes Speicherdatum) neu zu setzen, muss jedoch das Shell.Application Objekt verwendet werden.

VBScript
Sub SetDatum (ByVal Pfad, ByVal Datei,ByVal Datum)
    ' setzt das Datum des letzten Zugriffs für eine Datei
    ' Parameter: Pfad zu der Datei, Datename, Datum bzw. Datum und Zeit (z.B. "13:24 21.05.1913"
    Dim objShell, objFolder, objFolderItem
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.NameSpace(Pfad)
    Set objFolderItem = objFolder.ParseName(Datei)
    objFolderItem.ModifyDate = Datum
    Set objFolderItem = Nothing
    Set objFolder = Nothing
    Set objShell = Nothing
End Sub


weiterführend:
Shell Objects for Scripting and Microsoft Visual Basic
Using the Shell Object to Modify File Dates