Dateieigenschaften

Liebes Forum

Ich habe ein Makro - das sehr schnell ist - das ich aber mit den gängigen Dateieigenschaften erweitern möchte. Also, im Prinzip gleich, wie das vorhandene Makro von "Nepomuk". Dieses Makro liest eine Festplatte in ca. 20 Min. aus. Darauf sind aber ca. 240000 Dateien, überwiegend alles kleine Dateien. Diese Dateien stammen von einem Videoverwaltungsprogramm, wo man allen "Schnickschnack" eingeben kann und da hat sich natürlich im Laufe der Zeit eben erhebliches angesammelt. Aus diesem Grunde muss halt immer wieder mal aufgeräumt werden und neue Filme kommen ja auch wieder dazu. Mit dem Makro von Nepomuk brauche ich zum auslesen ca.1:20 Std. Das wäre schon ein ordentlicher Zeit Vorteil, wenn ich das mit dem angesprochenen Makro machen könnte. Das wären diese Dateieigenschaften:
("Name", "Ordner Name", "Path", "Type", "Größe", "Länge", "Änderungsdatum", "Erstelldatum", "Letzter Zugriff", "Bildbreite", "Bildhöhe")

Vielen Dank im voraus.

Viele Grüße
Elfriede

https://www.herber.de/bbs/user/158543.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub M_snb() Cells.ClearContents sn = Split(CreateObject("wscript.shell").exec("cmd /c Dir ""C:\Opas Videos\*.mp4*"" /s/b").stdout.readall, vbCrLf) Range("A1").Resize(UBound(sn), 1).Value = Application.Transpose(sn) End Sub

Sub M_snb() Set sh = CreateObject("shell.application") ReDim sn(sh.Namespace("G:\OF\").Items.Count, 40) For Each it In sh.Namespace("G:\OF\").Items n = n + 1 If sn(0, 0) = "" Then For j = 0 To 40 sn(0, j) = it.Parent.GetDetailsOf(it1, j) Next End If For j = 0 To 40 sn(n, j) = it.Parent.GetDetailsOf(it, j) Next Next Tabelle1.Cells(1).Resize(UBound(sn) + 1, UBound(sn, 2) + 1) = sn End Sub

Nachtrag, noch ne Idee

diese Version funktioniert leider auch nicht. Ist das Array falsch deklariert???

Do While Len(temp)
Txt = LCase(Right(temp, 3))
Set objFile = objFolder.ParseName(temp)
If Txt = "mp3" Or Txt = "mp4" Then
f = f + 1 'Zeilen Zähler
ReDim arrDat(1 To f, 1 To 11)
arrDat(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1) = temp 'Name"
arrDat(0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0) = objFile.Folder 'Ordner
arrDat(0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0) = objFile.Path 'Path
arrDat(0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0) = objFile.Type 'Type
'arrDat(f,0,0,0,0,0,0,0,0,0,0, 3) = FileLen(Laufwerk & temp) 'Size
arrDat(0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0) = objFolder.GetDetailsOf(objFile, 1) 'Size
arrDat(0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0) = objFolder.GetDetailsOf(objFile, 27) 'Länge
'alle Datum angaben auflisten
arrDat(0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0) = objFolder.GetDetailsOf(objFile, 3) 'Modified
arrDat(0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0) = objFolder.GetDetailsOf(objFile, 4) 'Created
arrDat(0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0) = objFolder.GetDetailsOf(objFile, 4) 'Access
'Video/MP3 Länge, Breite, Höhe auflsisten
arrDat(0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0) = objFolder.GetDetailsOf(objFile, 316) 'Breite
arrDat(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) = objFolder.GetDetailsOf(objFile, 314) 'Höhe
End If
temp = Dir()
Loop

Beliebteste Forumthreads (12 Monate)

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread