vbscript-Fehler 800A004C

muss ich eine Textdatei erstellen mit dem Namen "listfile.txt" in den Ordner C:\Documents und Einstellungen\All Users\Application
Data\netapp\system also ich habe folgenden vbscript, um zu erreichen, dass

Const CommonAppData = &H23&  ' the second & denotes a long integer '
Const OSCPATH = "\netapp\system"
Dim fso, MyFile

Set objShell  = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(CommonAppData)

Set objFolderItem = objFolder.Self

'MsgBox objFolderItem.Name & ": " & objFolderItem.Path


Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("objFolderItem.Path & OSCPATH\listfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close

aber seine werfen Fehler zu erwähnen, Pfad nicht gefunden

**Windows Script Host

Skript: C:\Documents und Einstellungen\puthuprf\Desktop\test.vbs
Zeile: 15
Char: 1
Fehler: Pfad nicht gefunden
Code: 800A004C

Quelle: Microsoft VBScript runtime error

OK
---------------------------**

InformationsquelleAutor peter | 2010-06-22

  1. 1

    Diese Zeile in deinem script ist falsch:

    Set MyFile = fso.CreateTextFile("objFolderItem.Path & OSCPATH\listfile.txt", True)

    Einfügen von Variablen und Objekt-Eigenschaften in einer Schnur, die Sie benötigen, zu verketten mithilfe der & Betreiber, wie folgt:

    Set MyFile = fso.CreateTextFile(objFolderItem.Path & OSCPATH & "\listfile.txt", True)


    Beachten Sie, dass es empfohlen ist die Verwendung der BuildPath Methode zu kombinieren, die mehrere Teile des Pfades, als es befreit Sie sich aus der addition der erforderlichen Pfad-Separatoren (\) manuell:

    strFileName = fso.BuildPath(objFolderItem.Path, OSCPATH)
strFileName = fso.BuildPath(strFileName, "listfile.txt")

Set MyFile = fso.CreateTextFile(strFileName, True)
    das ist groß, Helen, seine Werke gut, ich bin neu in vbscript, das ist, warum,Dank dir für deine Hilfe

    InformationsquelleAutor Helen

Schreibe einen Kommentar