Question

我使用以下vbscript代码在 C：\ Documents and Settings \ All Users \ Application Data \ secon \ generator

中编写名为“level.txt”的文本文件

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服务器机器没有创建任何机构有想法如何做到这一点。如何我可以为“ CSIDL ”实施“ SHGetFolderPath”

Answer 1

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

此外，尝试使用管理员帐户运行脚本，或更改生成器文件夹的权限以允许运行脚本的用户在仍有问题时写入目录

使用vbscript创建文件

1 个答案: