Nur Word-Dateien im Ordner »Dokumente« sehen

Ich möchte Windows so konfigurieren, dass im Ordner »Dokumente« nur die zuletzt geöffneten Word-Dateien liegen. Geht das?

Im Ordner »Dokumente« stehen stets die 15 zuletzt geöffneten Dateien. Daran können Sie nichts ändern. Sie können aber bei jedem Systemstart den Ordner bis auf die Verknüpfungen zu Word-Dokumenten leeren. Legen Sie dazu mit einem Texteditor die Datei ACCEPTDOC.VBS an und geben Sie das folgende Listing ein. Oder besser: Holen Sie sich die Datei von der Heft-CD CHIP-Code DOKULEER:



dim objShell, objFileSystem, objFolder, objFile, objShortCut
dim szTarget
dim iAnswer
set objShell = Wscript.CreateObject(äWscript.Shellô)
set objFileSystem = CreateObject(äScripting.FileSystemObjectô)
set objFolder = objFileSystem.getFolder(objShell.specialFolders(äRecentô))
iAnswer = MsgBox(äSoll der Dokumenten-Ordner entrümpelt werdenô, vbYesNo)
if iAnswer = vbYes thendo
    for each objFile in objFolder.files
      if lcase(objFileSystem.getExtensionName(objFile.path))=ôlnkô then
       set objShortCut = objShell.createShortcut(objFile.path)
       szTarget = objShortCut.targetPath
       if lcase(objFileSystem.getExtensionName(szTarget))<>ôdocô then
        objFile.delete vbtrue
       end if
      end if
      next
      Wscript.Sleep 150000
   loop
end if



Bei den Verweisen in »Start | Dokumente« handelt es sich um normale Verknüpfungen unterhalb des Windows-Ordners »RECENT«. Das Objekt »objShell« des Typs »Wscript.Shell« greift auf die Umgebungsvariablen zu.
Funktionen zur Manipulation von Dateien und Ordnern stehen mit dem Objekt »objFileSystem« des Typs »Scripting.FileSystemObject« zur Verfügung. Beide Objekte kombiniert erzeugen »objFolder«, das den Ordner »RECENT« repräsentiert. Dazu dient die Methode »objFileSystem.getFolder«, die den Pfad des Ordners übergibt, den »objShell.specialFolders (äRecentô)« ausliest. Die »For Each«-Schleife verarbeitet alle Dateien aus »objFolder« und prüft, ob sie auf »LNK« enden. Wenn ja, erzeugt »objShell.createShortcut« ein Objekt für die Verknüpfung und untersucht die Dateiendung des Ziels. Sollte das kein »DOC« sein, löscht »objFile.delete« den Link.

Das Script läuft in einer Endlosschleife, wobei »Wscript.Sleep 150000« eine Pause von 2,5 Minuten erzwingt. Wenn Sie das VBS-Programm in »STARTMENÜ\PROGRAMME\AUTOSTART« legen, läuft es vom Systemstart bis zum Herunterfahren und entrümpelt regelmäßig die »Dokumente«.