982 Aufrufe
Gefragt in Tabellenkalkulation von nighty Experte (6.6k Punkte)
hi community ^^

an alle sicherheitsexperten und Spione *hihi*

das Attribut der letzten aenderung habe ich bisher erfasst

meine frage nun

bei Nutzung vom Scripting.FileSystemObject

1) gibt es ein Attribut wie OFT eine Datei geaendert wurde ???
2)gibt es ein Attribut wie OFT eine Datei kopiert wurde ???

gruss nighty

1 Antwort

0 Punkte
Beantwortet von nighty Experte (6.6k Punkte)
hi all ^^

bisheriger code

gruss nighty

eine geforderte ordnerauswahl tastet dessen Inhalt ab.
wobei Datum und Uhrzeit ueber jjjj und hhmm Formatierung mit dem selben Attribut getrennt wird

Sub ShowFile()
Dim Dpfad As String, DateiName As String
Dim Lzeile As Long
Dim FileO As Object, Files As Object
Set FileO = CreateObject("Scripting.FileSystemObject")
Dpfad = OrdnerAuswahl
DateiName = Dir(Dpfad & "*.*")
Do While DateiName <> ""
Set Files = FileO.GetFile(Dpfad & DateiName)
With Worksheets(1)
Lzeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(Lzeile, 1) = Files.Name
.Cells(Lzeile, 2) = Files.DateCreated
.Cells(Lzeile, 3) = Files.DateCreated
.Cells(Lzeile, 4) = Files.DateLastModified
.Cells(Lzeile, 5) = Files.DateLastModified
If .Cells(Lzeile, 4) <> .Cells(Lzeile, 2) Or .Cells(Lzeile, 5) <> .Cells(Lzeile, 3) Then
.Range(.Cells(Lzeile, 1), .Cells(Lzeile, 6)).Font.ColorIndex = 5
.Cells(Lzeile, 6) = "*"
Else
.Range(.Cells(Lzeile, 1), .Cells(Lzeile, 5)).Font.ColorIndex = 1
End If
DateiName = Dir
End With
Loop
End Sub

Function OrdnerAuswahl() As String
On Error Resume Next
Dim AppShell As Object
Dim BrowseDir As Variant
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
OrdnerAuswahl = BrowseDir.items().Item().Path & "\"
End Function
...