Добрый день!
Понадобилось из программы смотреть в папку 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
И вроде нормально работает, но что-то мне не нравится. Нет ли более правильного способа?

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

не в сети 1 год

admin

0

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