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.Create? Object(äWscript.Shellô) set objFileSystem = CreateOb? ject(äScripting.FileSystem? Objectô) set objFolder = objFileSys? tem.getFolder(objShell.special? Folders(ä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(obj? File.path))=ôlnkô then set objShortCut = obj? Shell.createShortcut? (objFile.path) szTarget = objShortCut.? targetPath if lcase(objFileSystem.? getExtensionName(szTar? get))<>ô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½.