Скачать файл с помощью WinSock через FTP

Dim RemoteHostA As String
Dim PortA As String
Dim lBytesRes
 
Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect RemoteHostA, PortA
End Sub
 
Private Sub Command2_Click()
Winsock1.Close
End Sub
 
Private Sub Command3_Click()
Winsock1.SendData 'USER killesp6' & vbCrLf
Winsock1.SendData 'PASS XKWgAMTd' & vbCrLf
End Sub
 
Private Sub Command4_Click()
Dim strCommand As String
Dim strWebPage As String
'strWebPage = 'ftp://ftp.killesp.ru/www/01.txt'
strWebPage = 'ftp://killesp6:XKWgAMTd@ftp.h1.ru/WWW/01.txt'
strCommand = 'GET ' & strWebPage & vbCrLf
Winsock1.SendData strCommand
End Sub
 
Private Sub Form_Load()
Winsock1.Close
RemoteHostA = 'ftp://ftp.h1.ru'
PortA = '21'
End Sub
 
Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Print 'wsCommand : DataArrival (' & bytesTotal & ' bytes)'
lBytesRes = lBytesRes + bytesTotal
Print 'Received: ' & lBytesRes & ' Sent: ' & lBytesSent
Winsock1.GetData strData
With txtCommand
    .Text = .Text & strData
    .SelStart = Len(.Text)
End With
Print strData
End Sub