Hallo,
ich benutze den SystemScripter 6.0 um VBS-Dateien zu erstellen.
Mit diesem Programm kann ich auch einige Codeschnipsel erzeugen.
Und zwar diesen hier, der Informationen aus einer Datei auslesen kann.
(Größe, Dauer, Abmessungen usw. von einer avi-Datei)
Das Liefert mit von jeder Datei, die in dem Ordner Movie ist die Informationen.
45 Stück pro Datei.
Was ist nun nicht verstehe ist, was ist strFileName steht.?!
Wenn ich die Variable auslese dann steht dort immer der Dateiname z.B. Video2008.avi
Dann dachte ich mir, das ich die einzelnen informationen seperat abrufen kann.
Und das will ich auch.
Ich möchte in einem Ordner X die Datei Y auslesen.
Mit OOP lese ich immer nur eine Datei ein also erst Video001.avi dann 002.avi.
Jedesmal, soll er mir die Informationen wegschreiben.
Aber wie?
Ich habe folgendes probiert aber es geht nicht.
So lautet die Ausgabe:
Dauer: Dauer
Bitrate: Bitrate
Abmessung: Abmessung
Es sollte aber rauskommen.
Dauer 01:04:45 usw.
Kann mir einer die Lösung sagen, und erklären.
mfg
Seby
ich benutze den SystemScripter 6.0 um VBS-Dateien zu erstellen.
Mit diesem Programm kann ich auch einige Codeschnipsel erzeugen.
Und zwar diesen hier, der Informationen aus einer Datei auslesen kann.
(Größe, Dauer, Abmessungen usw. von einer avi-Datei)
Code:
Set objShell = CreateObject ("Shell.Application") Set objFolder = objShell.Namespace ("C:\Video") Set objFSO = CreateObject ("Scripting.FilesystemObject") Dim arrHeaders(45) For i = o to 45 arrHeaders(i) = objFolder.GetDetailsOf (objFolder,i) Next For Each strFileName in objFolder.Items For i = 0 to 45 Wscript.Echo arrHeaders(i) & ": " & objFolder.GetDetailsOf (strFileName,i) Next Next
45 Stück pro Datei.
Was ist nun nicht verstehe ist, was ist strFileName steht.?!
Wenn ich die Variable auslese dann steht dort immer der Dateiname z.B. Video2008.avi
Dann dachte ich mir, das ich die einzelnen informationen seperat abrufen kann.
Und das will ich auch.
Ich möchte in einem Ordner X die Datei Y auslesen.
Mit OOP lese ich immer nur eine Datei ein also erst Video001.avi dann 002.avi.
Jedesmal, soll er mir die Informationen wegschreiben.
Aber wie?
Ich habe folgendes probiert aber es geht nicht.
Code:
Set objShell = CreateObject ("Shell.Application") Set objFolder = objShell.Namespace ("C:\Video") Set objFSO = CreateObject ("Scripting.FilesystemObject") Dim arrHeaders(45) For i = o to 45 arrHeaders(i) = objFolder.GetDetailsOf (objFolder,i) Next Wscript.Echo arrHeaders(1) & ": " & objFolder.GetDetailsOf ("Video001.avi",1) Wscript.Echo arrHeaders(21) & ": " & objFolder.GetDetailsOf ("Video001.avi",21) Wscript.Echo arrHeaders(22) & ": " & objFolder.GetDetailsOf ("Video001.avi",22)
Dauer: Dauer
Bitrate: Bitrate
Abmessung: Abmessung
Es sollte aber rauskommen.
Dauer 01:04:45 usw.
Kann mir einer die Lösung sagen, und erklären.
mfg
Seby
Comment