FtpGetSizeFile

Синтаксис

Function FtpGetSizeFile(byval hFile As HINTERNET) As ULongint

Описание

Функция возвращает размер файла типа ULONGINT , размещенного на удаленном FTP сервере

Параметры

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

Платформы

Windows

Пример

#Include "window9.bi"
Dim As HINTERNET hOpen,hConnect,hFile
hOpen = InetOpen()
hConnect = FtpConnect(hOpen,"ftp.intel.com","anonymous","anonymous",,INTERNET_FLAG_PASSIVE)
If hConnect<>0 Then
  hFile = FtpFileOpen(hConnect,"readme.txt",,GENERIC_READ)
  ? FtpGetSizeFile(hFile)
  FtpFileClose(hFile)
EndIf
Sleep
InetFreeHandle(hConnect)
InetFreeHandle(hOpen)

Результат

4425

Created with the Personal Edition of HelpNDoc: Produce electonic books easily