FoxClub Forums > Русский Help > Загрузка файлов с сервера ::

• Войти

Загрузка файлов с сервера
JS Автор Сообщений: 12264 Откуда: Эстония Дата регистрации: 04.09.2000	JS 02.10.05 19:26:54 Перемещено из форума Ассоциация разработчиков =ФоксКлуб= Привет всем! Так уж получилось, что три дня просто выпали из нормальной жизни и не было возможности заниматься проблемами проекта. Есть проблема, требующая ближайшего разрешения. Число загруженных файлов достаточно быстро растет. В связи с этим вопрос - оставлять-ли на сервере переведенные файлы справки для просмотра в 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

JS
Автор

Сообщений: 12264
Откуда: Эстония
Дата регистрации: 04.09.2000

02.10.05 19:26:54

Перемещено из форума Ассоциация разработчиков =ФоксКлуб=

Привет всем!
Так уж получилось, что три дня просто выпали из нормальной жизни
и не было возможности заниматься проблемами проекта.

Есть проблема, требующая ближайшего разрешения.
Число загруженных файлов достаточно быстро растет.
В связи с этим вопрос - оставлять-ли на сервере переведенные файлы справки для просмотра в 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

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 4 (Гостей: 4)