Function FtpFileClose(byval hFile As HINTERNET) As Integer
Функция закрывает файл, открытый функцией FtpFileOpen
hFile - хендл , возвращенный функцией FtpFileOpen
Windows
#Include "window9.bi"
Dim As HINTERNET hOpen,hConnect,hFile
hOpen = InetOpen()
hConnect = FtpConnect(hOpen,"Ftp....","Login","Password")
If hConnect<>0 Then
hFile = FtpFileOpen(hConnect,"1.txt")
FtpWriteFile(hFile,@"Test",4)
FtpFileClose(hFile)
EndIf
InetFreeHandle(hConnect)
InetFreeHandle(hOpen)
Created with the Personal Edition of HelpNDoc: Single source CHM, PDF, DOC and HTML Help creation