[VBS] Löschscript erweitern

[officeuser]

Hallo Scripting-Experten!

Ich selber kenne mich nicht fast überhaupt nicht mit VisualBasic-Scripting aus, suchte jedoch ein Löschscript, um aus einem bestimmten Ordner (Win2k3 Server, als Admin) alles Daten zu löschen. Es wird dann per Task alle zwei Stunden laufen.

Folgendes Script habe ich schon gefunden:

Option Explicit
dim fso, strPfad

strPfad = "D:\Allgemeine Ablage\Datentausch"

Set fso = CreateObject("Scripting.FileSystemObject")

DeleteFiles strPfad

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, False
 Next
End Sub

Zwar löscht dieses VBS alle Dateien, jedoch keine Ordner in dem Verzeichnis "Datentausch" und keine schreibgeschützten Dateien. (Sollte es das nicht?)

Wie muss ich das Script erweitern, damit auch das geschieht?

Danke für Eure Hilfe!
officeuser

[linux-luder]

Ich will Dir Deine Arbeit nicht abnehmen, aber als Tip sag ich mal:

ZUMINDEST 1x das Script selber durchlesen, dann koennte man schon drauf kommen!

[officeuser]

Hallo linux-luder!

Habe ich gemacht. Wie gsagt, ich verstehe kein VBS.
Das Löschen der schreibgeschützten Dateien erreiche ich wohl mit 'True'.
Dateien IN den Ordnern löschen funktioniert auch, jedoch nicht die Ordner an sich. Das kriege ich nicht raus, sorry.

officeuser

[Tilo2300]

Sorry, schließe mich linux-luder an.
Wenn der Kommentar in deinem Quelltext (Kommentare werden mit einem Hochkomma gekennzeichnet) noch nicht die Erleuchtung brint, gib doch mal bei Google die Begriffe "vbs" und "deletefile" ein.
Dann findet man ganz gute Dokumentationen zu den Befehlen.
Z. B. http://www.asphelper.de/referenz/vbs...deletefile.asp

Und wenn der Befehl DeleteFile eine Datei löscht, könnte man mutmaßen, daß es auch einen Befehl DeleteFolder gibt, der... man staune... einen Ordner löscht.
Die Syntax dazu findet man per Google auch.
Z. B. http://www.asphelper.de/referenz/vbs...letefolder.asp

Wenn einem das allerdings wirklich alles zu hoch sein sollte, ist das zwar keine Schande, aber dann sollte man sich überlegen ob man sich selbst wirklich auf einen Server loslassen möchte, vor allem wenn das ein produktives System ist.



"Ich glaube, was unsere Nation vergiftet, ist die Selbständigkeit.
Leute tun immer wieder selbständig Dinge, von denen sie keine Ahnung haben.
Fahren dann quasi sehenden Auges vor die Wand und verbuchen das Ganze dann under E wie 'Erfahrung'".
(J. Malmsheimer)

[officeuser]

Monnomann,
würde ich bei jeder simple Anfrage für Photoshop, InDesign et al in unserem Mediengestalterboard mit einer Belehrung und Verweis auf mein Spezailwissen und Referenzgrundlagen beantworten, hätte ich bald keine Besucher mehr ...

Man kann auch einfach mal sagen: So machen und fertig. Nicht jeder will gleich eine Programmiersprache lernen müssen für etwas was weniger als ein Promille seiner jährlichen Arbeit ausmacht.

Für Leute, die gerne einfach eine Antwort wünschen:

Option Explicit
dim fso, strPfad

strPfad = "D:\Allgemeine Ablage\Datentausch"

Set fso = CreateObject("Scripting.FileSystemObject")

DeleteFiles strPfad
fso.DeleteFolder ("D:\Allgemeine Ablage\Datentausch\*")

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

So funktiniert es. Ausgenommen Systemordner.

officeuser

[linux-luder]

Supi!

Uebrigens gehen Dir dann nicht die Besucher aus, sondern die werden immer "bloeder" weil die verlernen 1 und 1 zusammenzuzaehlen. Bei Dir haben ja offensichtlich unsere Hinweise gefruchtet und wehgetan hat es auch nicht ;-)

[officeuser]

Die Hilfestellung kam freundlicherweise von Peter Herzog's Spotlight.

[Tilo2300]

Die Hilfestellung kam freundlicherweise von Peter Herzog's Spotlight.

Das glaube ich kaum, da Spotlight seit Mai 2008 nicht mehr aktiv ist bzw. nicht mehr aktualisiert wird.
Folglich ist die HIlfe nicht von da gekommen, sondern du hast sie da - wahrscheinlich via Google - gefunden.

Und genau das haben wir dir nahegelegt.

[officeuser]

In Deutshcland herrscht ja zum Glück noch Glaubensfreiheit. Also, glaub', was Du möchtest.