Как определить путь к папке Загрузки

Добрый день!
Понадобилось из программы смотреть в папку Downloads... Напрямую не нашёл как ни в Fso, ни в WSHShell...
Сделал вот так:

WSHShell = CreateObject("WScript.Shell")
lcDirDesktop = WSHShell.SpecialFolders("Desktop")
lcDirDownloads = STRTRAN(lcDirDesktop,"Desktop","Downloads")
IF FILE(lcDirDownloads + "SaldoUpdate.zip")
   =MESSAGEBOX("Есть контакт",64+0+0,"Проверка...")
ELSE
    =MESSAGEBOX("Не найден файл SaldoUpdate.zip",64+0+0,"Проверка...")
ENDIF

WSHShell = CreateObject("WScript.Shell")

lcDirDesktop = WSHShell.SpecialFolders("Desktop")

lcDirDownloads = STRTRAN(lcDirDesktop,"Desktop","Downloads")

IF FILE(lcDirDownloads + "SaldoUpdate.zip")

=MESSAGEBOX("Есть контакт",64+0+0,"Проверка...")

ELSE

=MESSAGEBOX("Не найден файл SaldoUpdate.zip",64+0+0,"Проверка...")

ENDIF

И вроде нормально работает, но что-то мне не нравится. Нет ли более правильного способа?

Автор публикации

не в сети 1 год

admin

Комментарии: 0Публикации: 109Регистрация: 10-12-2000