Рейтинг 3 из 5 звёзд

от Tiger19 Авг. 21, 2010 · permalink

kgw Ordner:

// Dieses Skript zeigt alle Ordner im aktuellem Verzeichnis die mit dem Namen kgw beginnen.

var FsObj = WScript.CreateObject("Scripting.FileSystemObject");
var ordner = FsObj.GetFolder(".");
var EnumObj = new Enumerator(ordner.SubFolders); //Enumerator über alle Ordner erstellen.
EnumObj.moveFirst();
var wert = '';
while(EnumObj.atEnd() == false)
{
wert = EnumObj.item() + " "; //Vergleich der Ordner durch Stringvergleich
var pfadteile = wert.split("\\");
var ordnername = pfadteile[pfadteile.length-1];
ordnername = ordnername.substr(0,3)

if (ordnername=="kgw")
{
WScript.Echo("Die kgw Ordner: "+wert+"\n");
}

EnumObj.moveNext(); //Ordner-Auflistung aufzählen.
}


/*
//Ein Dialogfenster öffnet sich und
//durch die Bestätigug des OK Buttons werden alle kgw Ordner angezeigt.
//Die drei Ordner kgw werden angezeigt, das sie vorhanden sind.
*/