Supportnet / Forum / Skripte(PHP,ASP,Perl...)

Weis möglichwerweise wer dadrüber bescheid wie ich ein VBSkript programmiere der wenn ich ihn auf einem Rechner ausführe 2 Dateiendungen sucht und diese dann in einer Textdatei abspeichert und die Größe der Dateien Ermittelt. Die Dateien sollen aber nur auf den Lokalen Platten gesucht werden. avimpegsearch.txt - PC Name: Max Mustermann - IP : xxx.xxx.xxx.xxx - C:\Eigene Dateien\hallo.avi (32999 Kbytes) - C:\Eigene Dateien\Friedhelm auf dem Moped.mpeg (129000 kbytes) So z.B. .. :/ Ich habe leider absolut keine Ahnung wie ich das implementieren soll. Oder kennt jemand schon so einen Script?? Ich brauche dringent hilfe :(

dim fso,o,x
x=array("avi","mpg","mpeg")
set fso=createobject("scripting.filesystemobject")
set shell=createobject("wscript.shell")
set o=fso.opentextfile("liste.txt",2,true)
suche("c:\")
o.close
shell.run "liste.txt"
wscript.quit

function suche(p)
	dim s,v
	set v=fso.getfolder(p)
	for each f in v.files
		ok=false
		for each y in x
			if right(lcase(f.name),len(y)+1)="."&y then ok=true
		next
		if ok then o.writeline f&chr(9)&cint(f.size/1024)&" kbytes"
	next
	for each s in v.subfolders
		suche(s)
	next
	set v=nothing
end function

In Zeile 2 gibst Du die gewünschten Dateiendungen ein, in Zeile 6 den Pfad in dem gesucht werden soll.

• Dateiendungen zulassen, bei Norton Antivirus.
• Dateiendungen fehlen
• Dateiendungen
• Computerbenutzung