verfaßt von effeff, Ostfriesland, 01.07.2013, 16:15:41
> > Moin,
> >
> > wie wäre es denn mit einem VBS-Script? Pack die nachfolgenden Zeilen in
> > eine Textdatei, passen den Ordnernamen an ("d:juhu"), speicher die Datei
> > als "loeschen.vbs" und führe sie durch einen Doppelklick aus. Alternativ
> > kannst Du sie automatisch mit dem TaskScheduler ausführen lassen, um z.
> B.
> > wöchentlich montags morgens Deine NAS zu bereinigen:
> >
> >
dim fso
> > dim fld
> > dim sfld
> >
> > set fso=createobject("Scripting.FileSystemObject")
> >
> > set fld=fso.GetFolder("d:juhu")
> >
> > for each sfld in fld.SubFolders
> >
> > fso.DeleteFolder (sfld)
> >
> > next
>
> Jaa, ganz nah dran ...
>
> "ES" löscht jetzt aus dem zu erhaltenden Oberordner alle Unterordner nebst
> darin befindlichen Dateien ...
>
> aber "Es" läßt noch die Dateien die direkt im Oberordner liegen
> unberührt.
>
> Peter
Ah, es fehlt also noch was. Das sieht dann so aus:
dim fso
dim fld
dim sfld
Dim fil
set fso=createobject("Scripting.FileSystemObject")
set fld=fso.GetFolder("d:juhu")
for each sfld in fld.SubFolders
fso.DeleteFolder (sfld)
next
for each fil in fld.Files
fil.Delete
next
--
Gruß,
ff
Möge TUX mit dir sein!
gesamter Thread: