MyTetra Share
Делитесь знаниями!
путь к папке Мои Документы
Время создания: 17.03.2021 07:45
Текстовые метки: UserName, Имя пользователя, Environ, текстовые строки, Средства Windows
Раздел: !Закладки - VBA - Средства Windows
Запись: xintrea/mytetra_db_adgaver_new/master/base/1615956315ltzxegd8j9/text.html на raw.githubusercontent.com

Sub Print_Environ()

'https://forum.sources.ru/index.php?showtopic=219673

iMyDocuments = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")

iMyDocuments = CreateObject("Shell.Application").Namespace(5).Items.Item.Path



'https://www.cyberforum.ru/visual-basic/thread49338.html

WinDir = Environ("windir") 'директория с windows


'И никаких API!

'Можно и другие:

a = Environ("TMP") 'директория временных файлов TEMP

b = Environ("BLASTER") 'координаты звуковой карты

c = Environ("PATH") 'пути, объявленные в autoexec.bat


'Можно обращаться и по номеру. Вот вывод полного списка:

Dim str_Environ As String

Dim i As Long

i = 1

Do

str_Environ = Environ(m)

Debug.Print m & " " & Environ(m)

m = m + 1

Loop Until str_Environ = ""

End Sub

 
MyTetra Share v.0.60
Яндекс индекс цитирования