Hallo!
Heute möchte ich ein VBS-Skript um das Löschen von bestimmt benannten Dateien (bas*) in einem bestimmten Ordner (C:\Java\tomcat7a\conf) erweitern.
Wie baue ich das in das unten stehende, bereits im Einsatz befindliche Script ein?
-
Option Explicit
-
-
dim fso, strPfad
-
-
Set fso
= CreateObject("Scripting.FileSystemObject")
-
-
Call deleteFolder("C:\Java\tomcat7a\temp")
-
-
Call deleteFolder("C:\Java\tomcat7a\work")
-
-
Call deleteFolder("C:\Java\tomcat7a\logs")
-
-
Sub deleteFolder(strFolder)
-
-
Call DeleteFiles(strFolder)
-
-
Call fso.DeleteFolder(strFolder
& "\*")
-
-
End Sub
-
-
Sub DeleteFiles(strFolder)
-
-
dim oFolder, oFolders, oFiles, item
-
-
On Error Resume Next
-
-
Set oFolder
= fso.GetFolder(strFolder)
-
-
Set oFolders
= oFolder.SubFolders
-
-
Set oFiles
= oFolder.Files
-
-
For each item
in oFolders
-
-
DeleteFiles(item)
-
-
Next
-
-
For each item
in oFiles
-
-
' um Schreibgeschützte Dateien zu löschen, True übergeben
-
-
fso.DeleteFile item, True
-
-
Next
-
-
End Sub
-
-
-
Wscript.Echo "*** Daten gelöscht ***"
Ich möchte also die Arbeitsverzeichnisse eines Tomcats leeren und aus dem Conf-Verzeichnis alle Dateien rauslöschen die mit "bas" anfangen.
Wie erweitere ich mein Skript geschickt an welcher Stelle?
Danke vorab für Eure Hilfestellung!
Holger
