Letzten Zugriff auf Ordner/Datei feststellen

[Corrado]

Hallo, Leute,

ich habe eine Frage: wie kann ich den letzten Zugriff auf einen Ordner/Datei feststellen? Evtl. mit anderen Tools. Bitte um Hilfe! Is wichtig. DANKE!

 

[tophirsch]

Re: Letzter Zugriff auf Ordenr/Datei feststellen

Welches OS? Welches Dateisystem?

Ich nehme mal Win7 + NTFS an:

Im Explorer in die Detailansicht wechseln, dann Rechtsklick auf den "Tabellenkopf", dort kann man dann die angezeigten Spalten einstellen. Hier dann auf "weitere..." und dann Haken bei "letzter Zugriff" feddich.
Aaaaber, standardmäßig aktualisiert Win7 das Datum nicht richtig. Nötige Einstellung dafür

You do not have permission to view link please Anmelden or Registrieren

 

[Baer]

Re: Letzter Zugriff auf Ordenr/Datei feststellen

Ganz wichtige Sachen werden bevorzugt beantwortet.

Exploreransicht auf Details stellen. Dort kannst du eine Spalte mit Rechtsklick - Sortieren nach - Mehr - Letzter Zugriff hinzufügen.


Das soll auch mit diesem Script funktionieren:
[src=text]Option Explicit
On Error Resume Next

Dim objFSO, objFolder, objSubFld, objLog, f1, f2, colFiles, strMSG, strStart, strLog, i

strStart = InputBox("Wo solls denn losgehen?","Check4FileProperties")
strMSG = "Startverzeichnis: " & strStart & vbCrLf & "~~~~~~~~~~~~~~~~~~~~~~~~~~~"
strLog = "c:\CheckFileProperties.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strStart)

ChkSubFld objFolder

Private Sub ChkSubFld(StartFolder)
ChkFiles StartFolder
Set objSubFld = StartFolder.SubFolders
For Each f2 in objSubFld
ChkSubFld f2
Next
End Sub

Private Sub ChkFiles(Start)
Set colFiles = Start.Files

For Each f1 in colFiles
strMSG = strMSG & vbCrLf & objFSO.GetAbsolutePathName(f1) & vbCrLf
strMSG = strMSG & vbTab & "Erstellt: " & f1.DateCreated & vbCrLf
strMSG = strMSG & vbTab & "Letzter Zugriff: " & f1.DateLastAccessed & vbCrLf
strMSG = strMSG & vbTab & "Letzte Änderung: " & f1.DateLastModified
Next
End Sub

Set objLog = objFSO.CreateTextFile(strLog, True)
objLog.Write strMSG
objLog.Close

MsgBox "Fertig!"
LoadFile strLog

Private Sub LoadFile(File)
Dim objShell, strApplication
strApplication = "notepad.exe"
Set objShell = CreateObject("WScript.Shell")
objShell.Run strApplication & " " & File
set objShell = Nothing
End Sub[/src]

Diesen Code als SobekommeichherausobmeineOlleimPronordnerwar.vbs speichern und ausführen.

You do not have permission to view link please Anmelden or Registrieren

Gruß
Baer