VPF::Как обратиться к системным переменным?

Prorok

Дата 29.5.2007, 11:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 30.9.2005

Репутация: нет
Всего: нет

Суть задачи такова: как получить значение системных переменных, например TEMP, TMP переменных сред. Помогите пожалуйста, если знаете)

Akina

Дата 29.5.2007, 12:13 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Environ("Temp")

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Prorok

Дата 29.5.2007, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 30.9.2005

Репутация: нет
Всего: нет

получилось 2 варианта:
1. Dim TempDir as String
    TempDir = Environ("Temp")
    MsgBox(TempDir)
В этом случае компилятор выдает ошибку в 1-й строке - "Предполагается наличие окончания инструкции..."

2. Dim TempDir
    TempDir = Environ("Temp")
    MsgBox(TempDir)
В этом случае выходит ошибка во 2-й строке - Несоответствие типа 'Environ'

Непонятно в чем проблема(((

mihanik

Дата 29.5.2007, 14:30 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Покури GetSpecialFolder (FileSystemObject)

Цитата

GetSpecialFolder MethodSee Also
GetAbsolutePathName Method | GetBaseName Method | GetDrive Method | GetDriveName Method | GetExtensionName Method | GetFile Method | GetFileName Method | GetFileVersion Method | GetFolder Method | GetParentFolderName Method | GetTempName Method
Applies To: FileSystemObject ObjectLanguage
JScript

VBScript

Show All
Returns the special folder object specified.
object.GetSpecialFolder(folderspec)
Arguments
object
Required. Always the name of a FileSystemObject.
folderspec
Required. The name of the special folder to be returned. Can be any of the constants shown in the Settings section.
Settings
The folderspec argument can have any of the following values:
ConstantValueDescription
WindowsFolder0The Windows folder contains files installed by the Windows operating system.
SystemFolder1The System folder contains libraries, fonts, and device drivers.
TemporaryFolder2The Temp folder is used to store temporary files. Its path is found in the TMP environment variable.

The following example illustrates the use of the GetSpecialFolder method.
[JScript]
var fso, tempfile;
fso = new ActiveXObject("Scripting.FileSystemObject");

function CreateTempFile()
{
   var tfolder, tfile, tname, fname, TemporaryFolder = 2;
   tfolder = fso.GetSpecialFolder(TemporaryFolder);
   tname = fso.GetTempName();
   tfile = tfolder.CreateTextFile(tname);
   return(tfile);
}
tempfile = CreateTempFile();
tempfile.writeline("Hello World");
tempfile.close();
[VBScript]
Dim fso, tempfile
Set fso = CreateObject("Scripting.FileSystemObject")

Function CreateTempFile
   Dim tfolder, tname, tfile
   Const TemporaryFolder = 2
   Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
   tname = fso.GetTempName
   Set tfile = tfolder.CreateTextFile(tname)
   Set CreateTempFile = tfile
End Function

Set tempfile = CreateTempFile
tempfile.WriteLine "Hello World"
tempfile.Close

--------------------

Программистами не рождаются, - это родовая травма...

Akina

Дата 29.5.2007, 16:02 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(Prorok @ 29.5.2007, 14:46

)

получилось 2 варианта:

Оба твоих варианта у меня компилируются и отрабатывают правильно. Вывод будет для тебя обидным...

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »