'v2.4*************************************************** ' File: Verz-Suchen-Loeschen-Test.VBS Ergänzung zu ' Verz-Suchen-Loeschen.VBS ' Autor: dieseyer@gmx.de ' dieseyer.de ' ' Verz_Suchen_Loeschen.VBS ist Ergebnis einer Newsgroup- ' Anfrage: Auf einem Server müssen die 'Temporary Inter- ' net Files' in allen ...\user\... Verzeichnissen kom- ' plett gelöscht werden. ' Um das nicht gleich hart in einer Produktionsumbegung ' testen zu müssen, habe ich noch ' Verz_Suchen_Loeschen-Test.VBS ' geschrieben, dass diese Verzeichnisstruktur zum Test ' mal eben auf C:\ erstellt '******************************************************* Set WSHShell = WScript.CreateObject("WScript.Shell") Set fso = WScript.CreateObject("Scripting.FileSystemObject") UserVerz = "C:\uSer\" UserVerz = "\\Server01\TheUser" UserVerz = "\\Server01\c$\TheUser" Dim User (50) User(0) = "ing" User(1) = "meister" User(2) = "stift" User(3) = "herr" User(4) = "frau" User(5) = "Miss" User(6) = "Mister" User(7) = "König" User(8) = "Königin" User(9) = "Knappe" User(10) = "1ing" User(11) = "1meister" User(12) = "1stift" User(13) = "1herr" User(14) = "1frau" User(15) = "1Miss" User(16) = "1Mister" User(17) = "1König" User(18) = "1Königin" User(19) = "1Knappe" User(20) = "2ing" User(21) = "2meister" ' User(22) = "" User(22) = "2stift" User(23) = "2herr" User(24) = "2frau" User(25) = "2Miss" User(26) = "2Mister" User(27) = "2König" User(28) = "2Königin" User(29) = "2Knappe" If not (fso.FolderExists(UserVerz)) Then FSO.CreateFolder(UserVerz) End If for i = 0 to 50 if User(i) = "" Then exit for ' On Error Resume Next Txt = UserVerz & "\" & user(i) : If not FSO.FolderExists( Txt ) Then FSO.CreateFolder( Txt ) Txt = UserVerz & "\" & user(i) & "\Temporary Internet Files" : If not FSO.FolderExists( Txt ) Then FSO.CreateFolder( Txt ) Txt = UserVerz & "\" & user(i) & "\Temp" : If not FSO.FolderExists( Txt ) Then FSO.CreateFolder( Txt ) Txt = UserVerz & "\" & user(i) & "\DAT" : If not FSO.FolderExists( Txt ) Then FSO.CreateFolder( Txt ) Txt = UserVerz & "\" & user(i) & "\neues" : If not FSO.FolderExists( Txt ) Then FSO.CreateFolder( Txt ) Txt = UserVerz & "\" & user(i) & "\nur hier" : If not FSO.FolderExists( Txt ) Then FSO.CreateFolder( Txt ) On Error GoTo 0 next MsgBox i & " Test-Verzeichnisse sind angelegt", , WScript.ScriptName