Доступ к системным переменным

[AlexVLad]

Можно-ли в VBA получить доступ к системным переменным окружения типа Path,Temp,Windir и т.п.

[tyomitch]

Environ

[Goettsch]

Способ 1

Код: Выделить всё

Sub GET_SYS_VARIABLES()

    Const SYS_VAR_PATH$ = "Path"
    Const SYS_VAR_WINDIR$ = "windir"
    Const SYS_VAR_TEMP$ = "TEMP"
   
    MsgBox Environ(SYS_VAR_PATH)
    MsgBox Environ(SYS_VAR_WINDIR)
    MsgBox Environ(SYS_VAR_TEMP)

End Sub

Способ 2

Код: Выделить всё

Sub GET_SYS_VARIABLES()

    ' ВНИМАНИЕ! чтобы использовать этот способ поставьте привязку
    ' к "Windows Script Host Object Model" (т.е. галку напротив
    ' чекбокса в окне, вызываемом через меню Tools / References)

    Dim MyShell As WshShell
    Dim MyEnv As WshEnvironment ' Env - аббрев. от Environment
   
    Const VARIABLE_TYPE_PROCESS$ = "Process"

    Const SYS_VAR_PATH$ = "Path"
    Const SYS_VAR_WINDIR$ = "windir"
    Const SYS_VAR_TEMP$ = "TEMP"
   
    Set MyShell = CreateObject("WScript.Shell")
    Set MyEnv = MyShell.Environment(VARIABLE_TYPE_PROCESS)
   
    MsgBox MyEnv.Item(SYS_VAR_PATH)
    MsgBox MyEnv.Item(SYS_VAR_WINDIR)
    MsgBox MyEnv.Item(SYS_VAR_TEMP)
   
    Set MyEnv = Nothing
    Set MyShell = Nothing

End Sub

[alibek]

Goettsch, есть ли хоть одна причина использовать второй способ?
Если уж хочешь показать, что знаешь не только про Environ, то покажи с использованием WinAPI или FSO.

[Sebas]

Goettsch, есть ли хоть одна причина использовать второй способ?
Если уж хочешь показать, что знаешь не только про Environ, то покажи с использованием WinAPI или FSO.

Например, копипаст из VB6 и обратно.

[Goettsch]

есть ли хоть одна причина использовать второй способ?

Второй пример пришел мне в голову просто потому, что это способ из VBS для WinScriptHost, но его можно применить и в VBA, а так как в моем представлении VBS и VBA своего рода "близнецы-братья" (говорим Ленин — подразумеваем — Партия, говорим Партия — подразумеваем Ленин, вот так :)), то вот я его и вспомнил...

Если уж хочешь показать, что знаешь не только про Environ, то покажи с использованием WinAPI или FSO.

При чем тут FSO не совсем ясно, хотя с его помощью, конечно, тоже кое-что можно узнать:

Код: Выделить всё

Dim FileSysObj As FileSystemObject
Set FileSysObj = CreateObject("Scripting.FileSystemObject")
  MsgBox FileSysObj.GetSpecialFolder(SystemFolder)
  MsgBox FileSysObj.GetSpecialFolder(WindowsFolder)
  MsgBox FileSysObj.GetSpecialFolder(TemporaryFolder)
Set FileSysObj = Nothing

Ну а насчет WinAPI я так скажу: этому Си-подобному заумному дерьму вообще не место в VBA. Как говорится: Богу — Богово, а кесарю — кесарево, на WinAPI пусть системщики ваяют, а нам, сирым автоматизаторам MS-Office оно некошерно будет.
[Viper] :: Ты уверен, что подобные эпитеты стоит применять к WinAPI?

[tyomitch]

а так как в моем представлении VBS и VBA своего рода "близнецы-братья"

Весьма ошибочное представление.

VBA как язык идентичен "автономному" VB6, а VBS как язык от них существенно отличается.