Lesson 34 : Creating a FTP Program in visual basic

FTP stands for File Transfer Protocol .The File Transfer Protocol is a system for transferring files between two computers connected by the Internet .One of the computers is known as the server and the other one is the client. The FTP program is very useful for website management. The webmaster can update the web pages by uploading the local files to the web server easily , at a much faster speed than the web browser. For normal PC users, the FTP program can also be used to download files from many FTP sites that offer a lot of useful stuff such as free software, free games, product information, applications, tools, utilities, drivers, fixes and more.

The FTP program usually comprises an interface that shows the directories of the local computer and the remote server. Files can be transferred just by clicking the relevant arrows. To log into the FTP site, we have to enter the username and the password; however, for public domains, we just need to type the word anonymous as the username and you can leave out the password. The FTP hostname takes the form  ftp.servername.com, for example, the Microsoft FTP site’s hostname is ftp.microsoft.com  .If you need to use an FTP program, you can purchase one or you can download a couple of the programs that are available free of charge from the Internet. However, you can also create your very own FTP program with Visual Basic. Visual Basic allows you to build a fully functionally FTP program which may be just as good as the commercial FTP programs.

The engine behind is the Microsoft Internet Transfer Control 6.0 in which you need to insert it into your form before you can create the FTP program. The name of the Microsoft Internet Transfer Control 6.0.is Inet and if you only put in one control, its name will be Inet1.

Inet1comprises three important properties namely Inet1.URL that is used to identify the FTP hostname, inet1.UserName that is used to accept the username and the Inet1.Password that is used to accept the user’s passwords.  The statements for the program to read the hostname of the server, the username and the password entered into Textbox1, Textbox2 and Textbox3 by the user are shown below:

Inet1.URL=Text1.Text

Inet1.UserName=Text2.Text

Inet1.Passoword=Text3.Text

After the user entered the above information, the program will attempt to connect to the server using the following commands, where Execute is the method and DIR is the FTP command that will read the list of files from the specified directory of the remote computer and you need to use the getChunk method to actually retrieve the directory’s information.

 Inet1.Execute, "DIR

After connecting to the server, you can choose the file from the remote computer to download by using the statement below: 

Inet1.Execute, , "get" & remotefile & localfile

where remotefile is the file of the remote site and localfile is the file of the local system. However, very often you need to provide the full path of the local file, which you can do that by modifying the above syntax to the following syntax: 

The above statements will ensure that the remote file will be downloaded to the location specified by the localpath and the file downloaded will assume the same name as the remote file. For example, if the remote file is readme.txt and the localpath is C:\temp , so the downloaded file will be saved in  C:\temp\readme.txt.

Private Sub Inet1_StateChanged(ByVal State As Integer)

Select Case State
Case icError
MsgBox Inet1.ResponseInfo, , "File failed to transfer"
Case icResolvingHost
Label6.Caption = "Resolving Host"
Case icHostResolved
Label6.Caption = "Host Resolved"
Case icConnecting
Label6.Caption = "Connecting Host"
Case icConnected
Label6.Caption = "Host connected"
Case icReceivingResponse
Label6.Caption = "Receiving Response"
Case icResponseReceived
Label6.Caption ="Got Response"
Case icResponseCompleted
Dim data1 As String
Dim data2 As String
MsgBox "Download Completed"
End Select

End Sub

Option Explicit
Private Sub OKButton_Click()
Inet1.URL =Text1.Text
Inet1.UserName = Text2.Text
Inet1.Password =Text3.Text
Inet1.Execute , "DIR"
Form1.Show
Dialog.Hide
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icError
MsgBox Inet1.ResponseInfo, , "File failed to transfer"
Case icResolvingHost
Label6.Caption ="Resolving Host"
Case icHostResolved
Label6.Caption ="Host Resolved"
Case icConnecting
Label6.Caption ="Connecting Host"
Case icConnected
Label6.Caption = "Host connected"
Case icReceivingResponse
Label6.Caption ="Receiving Response"
Case icResponseReceived
Label6.Caption ="Got Response"
Case icResponseCompleted
Dim data As String
Dim data1 As String
MsgBox "Transfer Completed"
data1 =Inet1.GetChunk(1024, icString)
data =data & data1
Loop While Len(data1) <> 0
Form1.Text6.Text = data
End Select
End Sub

Private Sub 
CancelButton_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

retrieve