FtpExamineDirectory

Синтаксис

Function FtpExamineDirectory(ByVal hConnect As HINTERNET, ByRef DirectoryName As String, ByRef Pattern As String, byval dwFlags As Integer = 0) As HINTERNET

Описание

Инициализирует каталог для поиска(перечисления) файлов на удаленном FTP сервере. Возвращает хендл поиска , который в последствии используется другими функциями. Для использования функции нужно создать класс на базе FTPINFO!

Параметры

hConnect - хендл , возвращенный функцией FtpConnect

DirectoryName - Имя каталога для поиска(перечисления)

Pattern - задает маску файлов для перечисления каталога. Так если будет задано *.* , то будут перечислены все файлы, включая каталоги. Если будет задано *.txt* , то будут перечислены только файлы .txt

dwFlags - тип записи файла. Могут быть:

INTERNET_FLAG_DONT_CACHE - не использовать кеш
INTERNET_FLAG_HYPERLINK - принудительно обновить элемент из сети.
INTERNET_FLAG_NEED_FILE - временный файл будет создан, если файл не может быть кэширован.
INTERNET_FLAG_RELOAD - запрос файла, объекта или каталога с сервера, а не из кэша
INTERNET_FLAG_RESYNCHRONIZE - FTP-ресурсы будут перезагружены, если ресурс был изменен с момента последней загрузки

Платформы

Windows

Пример

#Include "window9.bi"
Dim As HINTERNET hOpen,hConnect,hFind
hOpen = InetOpen()
If hOpen<>0 Then
  hConnect = FtpConnect(hOpen,"ftp.intel.com","anonymous","anonymous",,INTERNET_FLAG_PASSIVE)
  If hConnect<>0 Then
     Dim As FTPINFO ftpinfo_ ' Создаем класс перечисления
     hFind = ftpinfo_.FtpExamineDirectory(hConnect,"", "*.*")
     If hFind Then
        Do
           ' Будем искать только папки
           If ftpinfo_.FtpDirectoryEntryAttributes() And FILE_ATTRIBUTE_DIRECTORY  Then
              Print ftpinfo_.FtpDirectoryEntryName(),_
              ftpinfo_.FtpDirectoryEntryDate(),_
              ftpinfo_.FtpDirectoryEntrySize()
           EndIf
        Loop While ftpinfo_.FtpNextDirectoryEntry(hFind)
        FtpFinishDirectory(hFind)
     EndIf
  EndIf
  InetFreeHandle(hConnect)
  InetFreeHandle(hOpen)
  sleep
EndIf

Результат

Pub 16.06.2011 04:00:00 0
images 20.01.2011 04:00:00 0

Created with the Personal Edition of HelpNDoc: Single source CHM, PDF, DOC and HTML Help creation