Datei-Eigenschaften

[teeonlain]

Hallo Leute,

bin gerade dabei ein Programm zu machen, dass ALLE dateien in einem beliebigem Ordner (wählbar ) sich genau anguggt und etliche eigenschaften ausgibt !
klappt auch soweit , aber immer nur die datei die ich zuweise !
aber wie geht er alle durch? egal ob txt oder .doc !
und mir auch ausgibt wieviel Dateien sich im x Ordner befinden !

ist es auch machbar auszugeben wer die datei hergestellt hat? also user


würde mich sehr über antworten freuen ! steh nämlich echt aufem schlauch !

D A N K E

ps.: mache es mit dem WSH (windows scripting host)


hier mal nen kleiner einblick :

' VBScript

Dim fs, f1

Set fs = CreateObject("Scripting.FileSystemObject")
Set f1 = fs.GetFolder("c:\test")

li = ""
li = li & "Existiert Datei ?: " & fs.fileexists (f1) & vbcr
li = li & "Name: " & f1.Name & vbcr
li = li & "Pfad mit Dateiname: " & f1.Path & vbcr
li = li & "Dospfadname: "& f1.shortpath & vbcr
li = li & "Dosname: "& f1.shortname & vbcr
li = li & "Datei-Endung: "& fs.GetExtensionName(f1) & vbcr
li = li & "Pfad: " & fs.GetParentFolderName(f1) & vbcr
li = li & "Laufwerk: " & fs.GetDriveName(f1) & vbcr
li = li & "Typ: " & f1.Type & vbcr
li = li & "Erstellt am: " & f1.DateCreated & vbcr
li = li & "Letzter Zugriff: " & f1.DateLastAccessed & vbcr
li = li & "Letzte Änderung: " & f1.DateLastModified & vbcr
li = li & "Grösse: " & f1.Size & " Bytes" & vbcr
li = li & "Attribut: " & f1.attributes & vbcr
WScript.Echo(li)