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½.