создание файла с использованием vbscript - PullRequest
Новая
       19

создание файла с использованием vbscript

0 голосов
/ 23 июня 2010

я сделал следующий код vbscript, чтобы написать текстовый файл с именем «level.txt» в C: \ Documents and Settings \ All Users \ Данные приложения \ second \ generator 

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, который не создает никакого тела, имеет представление, как это сделать. Как я могу реализовать " SHGetFolderPath" для " CSIDL "

1 Ответ

0 голосов
/ 23 июня 2010

В Windows Server 2008 расположение AppData обычно находится в c: \ ProgramData. Попробуйте сначала создать папку c: \ ProgramData \ Secon \ Generator, и ваш скрипт должен запуститься.

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

...