VBS mit Getobjekt Verzeichnisinhalt auflisten

[kilicaslan]

hallo

Bin dabei ein script zu bastelt , der in einem Bestimmten verzeichnis alle inhalte auflistet.

Sieht bist jetz wie folgend aus:

set wn = CreateObject("Wscript.Network")

pc=wn.ComputerName

Set col = GetObject("WinNT://programme" & pc )<ist das so OK?

For Each obj in col

liste = liste & obj.name & vbcr

next

msgbox liste

als meldung bekomme ist in einem Fenster "Schema " angezeigt. Ist aber falsch. Kann mir jemand helden bitte?

[Eratum]

Ne kurze Googelei förderte folgendes zu Tage:

Function GetSubFolders(Pfad) 


	Set FO = FSO.GetFolder(Pfad) 

	Set FU = FO.SubFolders 

	On Error Resume Next 

	For Each F In FU 

		wscript.echo f.path

		'GetSubFolders F.Path  <--- Wenn du noch sämtliche Unterordner ausgeben willst, dann aktiviere das Häkchen

	Next 

	End Function


Set FSO = CreateObject("Scripting.FileSystemObject") 

GetSubFolders "C:\Programme" 

MfG Eratum