powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ключ для коллекции WScript.Shell.SpecialFolders
5 сообщений из 5, страница 1 из 1
ключ для коллекции WScript.Shell.SpecialFolders
    #37930888
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я чего-то не понимаю

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim WshShell As Object, FName As String
Set WshShell = CreateObject("WScript.Shell")

FName = "MyDocuments"
Debug.Print WshShell.SpecialFolders(FName)
Debug.Print WshShell.SpecialFolders("MyDocuments")
Set WshShell = Nothing



почему я получаю на выходе две разные строки?
...
Рейтинг: 0 / 0
ключ для коллекции WScript.Shell.SpecialFolders
    #37930940
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Потому что параметром функции SpecialFolders является число , а не текст.
...
Рейтинг: 0 / 0
ключ для коллекции WScript.Shell.SpecialFolders
    #37930944
Фотография nord-woolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,
Видимо, он хочет аргумент As Variant.
...
Рейтинг: 0 / 0
ключ для коллекции WScript.Shell.SpecialFolders
    #37930945
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Antonariy, А почему тогда работает вот это:
Код: vbnet
1.
2.
Debug.Print WshShell.SpecialFolders("MyDocuments")
Debug.Print WshShell.SpecialFolders("StartUp")
...
Рейтинг: 0 / 0
ключ для коллекции WScript.Shell.SpecialFolders
    #37930946
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
nord-woolfВидимо, он хочет аргумент As Variant.ТОЧНО! Вот блин
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ключ для коллекции WScript.Shell.SpecialFolders
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]