создание файла с помощью VBScript

Question

я сделал следующий код VBScript, чтобы написать текстовый файл с именем "level.txt" в C: \ Documents и Settings \ All Users \ Application Data \ Secon \ генератора

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, и ваш скрипт должен работать.

Кроме того, попробуйте запустить сценарий с использованием учетной записи администратора или изменить разрешения папки генератора, чтобы пользователь мог запустить сценарий для записи в каталог, если у вас все еще есть проблемы