Добрый день!
Понадобилось из программы смотреть в папку Downloads... Напрямую не нашёл как ни в Fso, ни в WSHShell...
Сделал вот так:
1 2 3 4 5 6 7 8 |
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 |
И вроде нормально работает, но что-то мне не нравится. Нет ли более правильного способа?