FtpFinishDirectory

Синтаксис

Function FtpFinishDirectory(ByVal hFind As HINTERNET) As Integer

Описание

Закрывает сессию перечисления файлов на удаленном FTP сервере. Для использования функции нужно создать класс на базе FTPINFO!

Параметры

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

Платформы

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: Easily create CHM Help documents