vbscript错误800A004C

我需要在文件夹C:\Documents and Settings\All Users\Application中创建一个名为“listfile.txt”的文本文件 Data\netapp\system因此，我使用以下vbscript实现了这一点

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

但找不到它的抛出路径

**Windows脚本主机 脚本：C:\Documents and Settings\puthuprf\Desktop\test.vbs 电话号码：15 字符：1 错误：找不到路径 代码：800A004C

来源：Microsoft VBScript运行时错误 好的

---

---------------------------**脚本中的这一行不正确：

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

要将变量和对象属性插入到字符串中，需要使用

&

运算符将它们连接起来，如下所示：

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

请注意，建议使用该方法组合路径的多个部分，因为这样可以避免手动添加必要的路径分隔符（

\

）：

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

Set MyFile = fso.CreateTextFile(strFileName, True)

---

脚本中的此行不正确：

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

要将变量和对象属性插入到字符串中，需要使用

&

运算符将它们连接起来，如下所示：

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

请注意，建议使用该方法组合路径的多个部分，因为这样可以避免手动添加必要的路径分隔符（

\

）：

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

Set MyFile = fso.CreateTextFile(strFileName, True)

---

很好，海伦，很好，我是vbscript新手，这就是为什么，谢谢你的帮助，很好，海伦，很好，我是vbscript新手，这就是为什么，谢谢你的帮助