创建文件的使用VBScript

Question

我做了以下VBScript代码写在ç称为“level.txt”的文本文件：\ Documents和Settings \所有用户\应用数据\塞康\发电机

Const CommonAppData = &H23& 
Const PATH = "\secon\generator" 
Dim fso, MyFile 
Set objShell = CreateObject("Shell.Application") 
Set objFolder = objShell.Namespace(CommonAppData) 

Set objFolderItem = objFolder.Self 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set MyFile = fso.CreateTextFile(objFolderItem.Path & PATH & "\level.txt", True) 
MyFile.Close 

这是在XP中工作正常，但服务器的Windows2008的机器不产生任何身体有想法怎么办this.How 我可以实现“的SHGetFolderPath”为“CSIDL”

Answer 1

在Windows Server 2008中，AppData的位置通常是c：\ ProgramData。尝试先创建c：\ ProgramData \ Secon \ Generator文件夹，然后运行脚本。

另外，尝试使用管理员帐户运行脚本，或者改变发电机文件夹的权限，允许用户运行该脚本写的目录，如果你仍然有问题