Vbscript Fehler 800A004C

Question

Ich brauche eine Textdatei mit dem Namen erstellen " listfile.txt " im Ordner C: \ Dokumente und Einstellungen \ Alle Application \ Benutzer Data \ netapp \ system , so habe ich die folgende Vbscript zu acheive 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 Wurffehler zu erwähnen Pfad nicht gefunden

** Windows Script Host

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

Quelle: Microsoft VBScript-Laufzeitfehler

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

Answer 1

Diese Zeile in Ihrem Skript ist falsch:

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

Um Variablen und Objekteigenschaften in einen String einzufügen, müssen Sie sie verketten die & Operator, wie folgt aus:

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

Beachten Sie, dass es in der BuildPath Methode zu verwenden, wird empfohlen, mehrere Teile zu kombinieren der Weg, wie es befreit Sie von Hinzufügen der notwendigen Weg Separatoren (\) manuell:

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

Set MyFile = fso.CreateTextFile(strFileName, True)