1. Textbox leer (Script), 2. Papierkorb umbenenen

Dieses Thema im Forum "Windows NT / 95 / 98 / 2000 / ME" wurde erstellt von wulzzz, 1. März 2005.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. wulzzz

    wulzzz Kbyte

    Registriert seit:
    23. April 2002
    Beiträge:
    233
    1. Habe ein Script aus einem ME-Buch abgeschrieben zwecks Löschen der Dokumente im Ordner "zuletzt benutzt". Befehl funktioniert, jedoch erscheint kein Text in der Fragebox. Hier ein Auszug aus dem Script, wo es um die Frage ("alle files ...löschen?") geht:
    _____________________________________________
    set folder = fs.GetFolder(recent)
    msg = "Alle files in """&recent&""" löschen?"
    if MsgBox(ms, vbYesNo + vbQuestion) = vbYes then
    for each file in folder.files
    file.delete

    next
    end if
    _____________________________________
    2. Habe (auch aus ME-Buch) versucht, das Umbenennen des Papierkorbs nachzuvollziehen (in der Registry), passiert aber nix nach Neustart..
    :eek:
     
  2. maneich

    maneich Kbyte

    Registriert seit:
    29. August 2001
    Beiträge:
    328
    Hallo,

    bevor Du auf ein Objekt zugreifen kannst, mußt Du dieses erst mal deklarieren z.B. mit

    Set fso = CreateObject("Scripting.FileSystemObject")

    außerdem sollte man nie systemeigene Variable als eigene Variable verwenden (hier Folder) also z.B. mit

    [vbs-script-name].vbs
    ----------------ab hier
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder("C:\Windows\Recent")
    msg = "Alle Files in Recent löschen?"
    if MsgBox(msg, vbYesNo + vbQuestion) = vbYes then
    for each file in f.files
    file.delete
    next
    end if
    -------------bis hier
    Außerdem must Du immer die exakte Adresse angeben (hier "C:\Windows\Recent), dann läuft es auch.

    Zur Registry, ich persönlich arbeite hier lieber mit .reg-Dateien; für Deinen Zweck:

    [name].reg
    ----------------ab hier
    REGEDIT4

    [HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}]
    @="neuer Name für Papierkorb"

    -----------------bis hier

    Doppelklick auf diese Datei und sie wird eingetragen.

    Aber auch hier gilt für .vbs-Script, daß erst einmal ein Objeklt erstellt werden muß und zwar hier ein Shell-Objekt

    [name].vbs
    ----------------ab hier
    Set WshShell = WScript.CreateObject("WScript.Shell")

    WshShell.RegWrite "HKCR\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\(Standard)\", "neuer Name für Papierkorb", "Reg_SZ"
    -----------------bis hier

    that's all.

    MfG maneich
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen