![]() |
:: Главная :: Решения :: Статьи :: Сайт М. Дроздова :: Файловый архив :: Книга по VFP 9 :: Русский Help Online :: OFF-LINE Форум | ![]() |
![]() |
Лисоводы всех стран, объединяйтесь !!! |
Загрузка файлов с сервера | |||
---|---|---|---|
JS Автор Сообщений: 12136 Откуда: Эстония |
Перемещено из форума Ассоциация разработчиков =ФоксКлуб=
Привет всем! Так уж получилось, что три дня просто выпали из нормальной жизни и не было возможности заниматься проблемами проекта. Есть проблема, требующая ближайшего разрешения. Число загруженных файлов достаточно быстро растет. В связи с этим вопрос - оставлять-ли на сервере переведенные файлы справки для просмотра в on-line или оставлять только файлы перевода? Для того чтобы получить список файлов, размещенных на сервере можно воспользоваться примитивной программкой, которая приведена ниже LOCAL lcFileName4FileLists lcFileName4FileLists="c:\vfp9help\filelist.txt" && замените имя файла подходящим именем If Used('draft') Use In draft Endif loInetApp = Createobject('InternetExplorer.Application') loInetApp.Navigate('http://www.foxclub.ru/rhproject/files_dir.php') Do While loInetApp.ReadyState # 4 DoEvents Enddo loDocument = loInetApp.Document lcDraft = loDocument.activeElement.innerText lcFile2Parse = Chrtran(lcDraft," ",Chr(13)+Chr(10)) Set Safety Off =Strtofile(lcFile2Parse,lcFileName4FileLists,0) Set Safety On Create Cursor draft (hfilename c(40)) Select draft Append From (lcFileName4FileLists) Type Sdf Delete For Recno()<=2 Select * From draft Into Cursor hfonsite Where !Deleted() Use In draft Select hfonsite Browse Nowait Если будет возможность сделать учетную запись пользователя с доступом "read-only" к определенному вложенному каталогу, содержащему переведенные файлы справки, то я выложу программу автоматической загрузки с сайта, написанную на VFP. ------------------ Knowledge is better than ignorance!
Website: juri.foxhelp.eu ![]() |
||
© 2000-2021 Fox Club  |