السلام عليكم
هذا الموضوع يناقش ال ftp protocol باستخدام ال vb.net و vb 2005 و ايضا vb.net 2002 .
الكود في هذا الموضوع يعمل على انجاز الاوامر التالية :
1. رفع الملف لل ftp site
2. تنزيل ملف من ال ftp site
3. يخلق فولدر على ال ftp site
4. ازالة فولدر من ال ftp site
5. تغيير الفولدر قيد العمل على ال ftp sites
6. ازالة ملف من ال ftp sites
7. اعادة تسمية ملف على ال ftp site
المتطلبات :
هذا الموضوع يفترض انك تعرف المواضيع التالية:
اولا : ان تكون ملما ببرمجة هذه اللغة
ثانيا : ملما باوامر ال ftp والتي ساذكر بعضا منها
1. USER <username> : يتم ارسال اسم المستخدم للسيرفر لكي يتم اعطاءه صلاحيات نقل الملفات
2. PASS<password> : كلمة السر المتعلقة باسم المستخدم
3. RETR<filename> : تحميل الفايل المذكور
4. STOR<filename> : ارفع الفايل و اخزنه في المسار المذكور
5. TYPE<type indicator> : تنسيق البيانات يكون كالتالي : (A-ascii,E-ebcdic,I-image(binary data),l<byte siz>-local byte size)
6. PASV : استعمل ال passive mode
7. STAT : يجعل السيرفر يرسل رسالة حول الوضع و الحالة الى العميل . يمكن استعمال هذه الخاصية اثناء انتقال البيانات بين السيرفر و العميل لتشخيص حالة ووضع العملية.
8. QUIT : اغلق الاتصال مع السيرفر
تعريف ال ftp : هو المسئول عن نسخ الملفات بين جهاز و آخر على الشبكة و هو يسمح بالأمور التالية:
1- الدخول الى جهاز آخر عن بعد.
2- التنقل بين المجلدات.
3- تنفيذ و تشغيل الأوامر.
4-معالجة الملفات.
ملاحظة عندما نرسل امر نصي الى السيرفر لمعالجة ملف فهو الاخر سوف يرسل لنا جوابا يتكون من ثلاثة ارقام لها معنى خاص مثلا الاتي :
125- الاتصال لنقل البيانات قد تم فتحه و بدات عملية النقل
150- على وشك فتح الاتصال لنقل البيانات
200- تم قبول الامر
220-الخدمة مستعدة لقبول مستخدم جديد
227- دخول ال passive mode
230- تم دخول المستخدم (user logged in )
331-اسم المستخدم تم قبوله فارسل كلمة السر
الان الكودات :
اولا نقم بتعريف المتغيرات و استدعاء المكتبات المناسبة
Imports System Imports System.Net Imports System.IO Imports System.Text Imports System.Net.Sockets Public Class clsFTP #Region "Class Variable Declarations" Private m_sRemoteHost, m_sRemotePath, m_sRemoteUser As String Private m_sRemotePassword, m_sMess As String Private m_iRemotePort, m_iBytes As Int32 Private m_objClientSocket As Socket Private m_iRetValue As Int32 Private m_bLoggedIn As Boolean Private m_sMes, m_sReply As String 'Set the size of the packet that is used to read and to write data to the FTP server 'to the following specified size. Public Const BLOCK_SIZE = 512 Private m_aBuffer(BLOCK_SIZE) As Byte Private ASCII As Encoding = Encoding.ASCII Public flag_bool As Boolean 'General variable declaration Private m_sMessageString As String #End Region
الان يجب ان نعرف ال (class constructor) و نزوده بالمتغيرات التي يجب على المستخدم ان يدخلها عند استدعائه لهذه الفئة :
#Region "Class Constructors" ' Main class constructor Public Sub New() m_sRemoteHost = "microsoft" m_sRemotePath = "." m_sRemoteUser = "anonymous" m_sRemotePassword = "" m_sMessageString = "" m_iRemotePort = 21 m_bLoggedIn = False End Sub ' Parameterized constructor Public Sub New(ByVal sRemoteHost As String, _ ByVal sRemotePath As String, _ ByVal sRemoteUser As String, _ ByVal sRemotePassword As String, _ ByVal iRemotePort As Int32) m_sRemoteHost = sRemoteHost m_sRemotePath = sRemotePath m_sRemoteUser = sRemoteUser m_sRemotePassword = sRemotePassword m_sMessageString = "" m_iRemotePort = 21 m_bLoggedIn = False End Sub #End Region
الان set public property
عن طريق هذه الخواص يقوم المستخدم بادخال الامور التالية :
1. remote FTP server اي الاي بي او عنوان الموقع
2. remote port رقم المنفذ و عادة يكون 21
3. remote path اي مسار الملف الموجود على السيرفر
4. remote password
5. remote user
#Region "Public Properties" 'Set or Get the name of the FTP server that you want to connect. Public Property RemoteHostFTPServer() As String 'Get the name of the FTP server. Get Return m_sRemoteHost End Get 'Set the name of the FTP server. Set(ByVal Value As String) m_sRemoteHost = Value End Set End Property 'Set or Get the FTP Port Number of the FTP server that you want to connect. Public Property RemotePort() As Int32 'Get the FTP Port Number. Get Return m_iRemotePort End Get 'Set the FTP Port Number. Set(ByVal Value As Int32) m_iRemotePort = Value End Set End Property 'Set or Get the remote path of the FTP server that you want to connect. Public Property RemotePath() As String 'Get the remote path. Get Return m_sRemotePath End Get 'Set the remote path. Set(ByVal Value As String) m_sRemotePath = Value End Set End Property 'Set or Get the remote password of the FTP server that you want to connect. Public Property RemotePassword() As String Get Return m_sRemotePassword End Get Set(ByVal Value As String) m_sRemotePassword = Value End Set End Property 'Set or Get the remote user of the FTP server that you want to connect. Public Property RemoteUser() As String Get Return m_sRemoteUser End Get Set(ByVal Value As String) m_sRemoteUser = Value End Set End Property 'Set the class MessageString. Public Property MessageString() As String Get Return m_sMessageString End Get Set(ByVal Value As String) m_sMessageString = Value End Set End Property #End Region
الان عمل ( use the public sub-procedures and the public functions )
الان نقوم نتكويد الدوال التي توفر المعلومات حول رفع و تحميل و خلق و ازالة و تغيير الفايلات و كذلك لضبط اسم المستخدم و كلمة السر
#Region "Public Subs and Functions"
'Return a list of files in a string() array from the file system.
Public Function GetFileList(ByVal sMask As String) As String()
Dim cSocket As Socket
Dim bytes As Int32
Dim seperator As Char = ControlChars.Lf
Dim mess() As String
m_sMes = ""
'Check if you are logged on to the FTP server.
If (Not (m_bLoggedIn)) Then
Login()
End If
cSocket = CreateDataSocket()
'Send an FTP command,
SendCommand("NLST " & sMask)
If (Not (m_iRetValue = 150 Or m_iRetValue = 125)) Then
output.Close()
MessageString = m_sReply
Throw New IOException(m_sReply.Substring(4))
End If
m_sMes = ""
Do While (True)
m_aBuffer.Clear(m_aBuffer, 0, m_aBuffer.Length)
bytes = cSocket.Receive(m_aBuffer, m_aBuffer.Length, 0)
m_sMes += ASCII.GetString(m_aBuffer, 0, bytes)
If (bytes < m_aBuffer.Length) Then
Exit Do
End If
Loop
mess = m_sMes.Split(seperator)
cSocket.Close()
ReadReply()
If (m_iRetValue <> 226) Then
MessageString = m_sReply
Throw New IOException(m_sReply.Substring(4))
End If
Return mess
End Function
' Get the size of the file on the FTP server.
Public Function GetFileSize(ByVal sFileName As String) As Long
Dim size As Long
If (Not (m_bLoggedIn)) Then
Login()
End If
'Send an FTP command.
SendCommand("SIZE " & sFileName)
size = 0
If (m_iRetValue = 213) Then
size = Int64.Parse(m_sReply.Substring(4))
Else
MessageString = m_sReply
Throw New IOException(m_sReply.Substring(4))
End If
Return size
End Function
'Log on to the FTP server.
Public Function Login() As Boolean
m_objClientSocket = _
New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim ep As New IPEndPoint(Dns.Resolve(m_sRemoteHost).AddressList(0), m_iRemotePort)
Try
m_objClientSocket.Connect(ep)
Catch ex As Exception
MessageString = m_sReply
Throw New IOException("Cannot connect to remote server")
End Try
ReadReply()
If (m_iRetValue <> 220) Then
CloseConnection()
MessageString = m_sReply
Throw New IOException(m_sReply.Substring(4))
End If
'Send an FTP command to send a user logon ID to the server.
SendCommand("USER " & m_sRemoteUser)
If (Not (m_iRetValue = 331 Or m_iRetValue = 230)) Then
Cleanup()
MessageString = m_sReply
Throw New IOException(m_sReply.Substring(4))
End If
If (m_iRetValue <> 230) Then
'Send an FTP command to send a user logon password to the server.
SendCommand("PASS " & m_sRemotePassword)
If (Not (m_iRetValue = 230 Or m_iRetValue = 202)) Then
Cleanup()
MessageString = m_sReply
Throw New IOException(m_sReply.Substring(4))
End If
End If
m_bLoggedIn = True
'Call the ChangeDirectory user-defined function to change the folder to the
'remote FTP folder that is mapped.
ChangeDirectory(m_sRemotePath)
'Return the final result.
Return m_bLoggedIn
End Function
'If the value of mode is true, set the binary mode for downloads. Otherwise, set ASCII mode.
Public Sub SetBinaryMode(ByVal bMode As Boolean)
If (bMode) Then
'Send the FTP command to set the binary mode.
'(TYPE is an FTP command that is used to specify representation type.)
SendCommand("TYPE I")
Else
'Send the FTP command to set ASCII mode.
'(TYPE is a FTP command that is used to specify representation type.)
SendCommand("TYPE A")
End If
If (m_iRetValue <> 200) Then
MessageString = m_sReply
Throw New IOException(m_sReply.Substring(4))
End If
End Sub
' Download a file to the local folder of the assembly, and keep the same file name.
Public Sub DownloadFile(ByVal sFileName As String)
DownloadFile(sFileName, "", False)
End Sub
' Download a remote file to the local folder of the assembly, and keep the same file name.
Public Sub DownloadFile(ByVal sFileName As String, _
ByVal bResume As Boolean)
DownloadFile(sFileName, "", bResume)
End Sub
'Download a remote file to a local file name. You must include a path.
'The local file name will be created or will be overwritten, but the path must exist.
Public Sub DownloadFile(ByVal sFileName As String, _
ByVal sLocalFileName As String)
DownloadFile(sFileName, sLocalFileName, False)
End Sub
' Download a remote file to a local file name and include a path. Then, set the
' resume flag. The local file name will be created or will be overwritten, but the path must exist.
Public Sub DownloadFile(ByVal sFileName As String, _
ByVal sLocalFileName As String, _
ByVal bResume As Boolean)
Dim st As Stream
Dim output As FileStream
Dim cSocket As Socket
Dim offset, npos As Long
If (Not (m_bLoggedIn)) Then
Login()
End If
SetBinaryMode(True)
If (sLocalFileName.Equals("")) Then
sLocalFileName = sFileName
End If
If (Not (File.Exists(sLocalFileName))) Then
st = File.Create(sLocalFileName)
st.Close()
End If
output = New FileStream(sLocalFileName, FileMode.Open)
cSocket = CreateDataSocket()
offset = 0
If (bResume) Then
offset = output.Length
If (offset > 0) Then
'Send an FTP command to restart.
SendCommand("REST " & offset)
If (m_iRetValue <> 350) Then
offset = 0
End If
End If
If (offset > 0) Then
npos = output.Seek(offset, SeekOrigin.Begin)
End If
End If
'Send an FTP command to retrieve a file.
SendCommand("RETR " & sFileName)
If (Not (m_iRetValue = 150 Or m_iRetValue = 125)) Then
output.Close()
MessageString = m_sReply
Throw New IOException(m_sReply.Substring(4))
End If
Do While (True)
m_aBuffer.Clear(m_aBuffer, 0, m_aBuffer.Length)
m_iBytes = cSocket.Receive(m_aBuffer, m_aBuffer.Length, 0)
output.Write(m_aBuffer, 0, m_iBytes)
If (m_iBytes <= 0) Then
Exit Do
End If
Loop
output.Close()
If (cSocket.Connected) Then
cSocket.Close()
End If
ReadReply()
If (Not (m_iRetValue = 226 Or m_iRetValue = 250)) Then
MessageString = m_sReply
Throw New IOException(m_sReply.Substring(4))
End If
End Sub
' This is a function that is used to upload a file from your local hard disk to your FTP site.
Public Sub UploadFile(ByVal sFileName As String)
UploadFile(sFileName, False)
End Sub
' This is a function that is used to upload a file from your local hard disk to your FTP site
' and then set the resume flag.
Public Sub UploadFile(ByVal sFileName As String, _
ByVal bResume As Boolean)
Dim cSocket As Socket
Dim offset As Long
Dim input As FileStream
Dim bFileNotFound As Boolean
If (Not (m_bLoggedIn)) Then
Login()
End If
cSocket = CreateDataSocket()
offset = 0
If (bResume) Then
Try
SetBinaryMode(True)
offset = GetFileSize(sFileName)
Catch ex As Exception
offset = 0
End Try
End If
If (offset > 0) Then
SendCommand("REST " & offset)
If (m_iRetValue <> 350) Then
'The remote server may not support resuming.
offset = 0
End If
End If
'Send an FTP command to store a file.
SendCommand("STOR " & Path.GetFileName(sFileName))
If (Not (m_iRetValue = 125 Or m_iRetValue = 150)) Then
MessageString = m_sReply
Throw New IOException(m_sReply.Substring(4))
End If
'Check to see if the file exists before the upload.
bFileNotFound = False
If (File.Exists(sFileName)) Then
' Open the input stream to read the source file.
input = New FileStream(sFileName, FileMode.Open)
If (offset <> 0) Then
input.Seek(offset, SeekOrigin.Begin)
End If
'Upload the file.
m_iBytes = input.Read(m_aBuffer, 0, m_aBuffer.Length)
Do While (m_iBytes > 0)
cSocket.Send(m_aBuffer, m_iBytes, 0)
m_iBytes = input.Read(m_aBuffer, 0, m_aBuffer.Length)
Loop
input.Close()
Else
bFileNotFound = True
End If
If (cSocket.Connected) Then
cSocket.Close()
End If
'Check the return value if the file was not found.
If (bFileNotFound) Then
MessageString = m_sReply
Throw New IOException("The file: " & sFileName & " was not found." & _
" Cannot upload the file to the FTP site.")
End If
ReadReply()
If (Not (m_iRetValue = 226 Or m_iRetValue = 250)) Then
MessageString = m_sReply
Throw New IOException(m_sReply.Substring(4))
End If
End Sub
' Delete a file from the remote FTP server.
Public Function DeleteFile(ByVal sFileName As String) As Boolean
Dim bResult As Boolean
bResult = True
If (Not (m_bLoggedIn)) Then
Login()
End If
'Send an FTP command to delete a file.
SendCommand("DELE " & sFileName)
If (m_iRetValue <> 250) Then
bResult = False
MessageString = m_sReply
End If
' Return the final result.
Return bResult
End Function
' Rename a file on the remote FTP server.
Public Function RenameFile(ByVal sOldFileName As String, _
ByVal sNewFileName As String) As Boolean
Dim bResult As Boolean
bResult = True
If (Not (m_bLoggedIn)) Then
Login()
End If
'Send an FTP command to rename a file.
SendCommand("RNFR " & sOldFileName)
If (m_iRetValue <> 350) Then
MessageString = m_sReply
Throw New IOException(m_sReply.Substring(4))
End If
'Send an FTP command to rename a file to a file name.
'It will overwrite if newFileName exists.
SendCommand("RNTO " & sNewFileName)
If (m_iRetValue <> 250) Then
MessageString = m_sReply
Throw New IOException(m_sReply.Substring(4))
End If
' Return the final result.
Return bResult
End Function
'This is a function that is used to create a folder on the remote FTP server.
Public Function CreateDirectory(ByVal sDirName As String) As Boolean
Dim bResult As Boolean
bResult = True
If (Not (m_bLoggedIn)) Then
Login()
End If
'Send an FTP command to make a folder on the FTP server.
SendCommand("MKD " & sDirName)
If (m_iRetValue <> 257) Then
bResult = False
MessageString = m_sReply
End If
' Return the final result.
Return bResult
End Function
' This is a function that is used to delete a folder on the remote FTP server.
Public Function RemoveDirectory(ByVal sDirName As String) As Boolean
Dim bResult As Boolean
bResult = True
'Check if you are logged on to the FTP server.
If (Not (m_bLoggedIn)) Then
Login()
End If
'Send an FTP command to remove a folder on the FTP server.
SendCommand("RMD " & sDirName)
If (m_iRetValue <> 250) Then
bResult = False
MessageString = m_sReply
End If
' Return the final result.
Return bResult
End Function
'This is a function that is used to change the current working folder on the remote FTP server.
Public Function ChangeDirectory(ByVal sDirName As String) As Boolean
Dim bResult As Boolean
bResult = True
'Check if you are in the root directory.
If (sDirName.Equals(".")) Then
Exit Function
End If
'Check if you are logged on to the FTP server.
If (Not (m_bLoggedIn)) Then
Login()
End If
'Send an FTP command to change the folder on the FTP server.
SendCommand("CWD " & sDirName)
If (m_iRetValue <> 250) Then
bResult = False
MessageString = m_sReply
End If
Me.m_sRemotePath = sDirName
' Return the final result.
Return bResult
End Function
' Close the FTP connection of the remote server.
Public Sub CloseConnection()
If (Not (m_objClientSocket Is Nothing)) Then
'Send an FTP command to end an FTP server system.
SendCommand("QUIT")
End If
Cleanup()
End Sub
#End Region
الان عمل ( use the private sub – procedures and the private function)
الان هذه الدوال تستخدم لقراءة الجواب من السيرفر و ارسال الاوامر اليه
#Region "Private Subs and Functions"
' Read the reply from the FTP server.
Private Sub ReadReply()
m_sMes = ""
m_sReply = ReadLine()
m_iRetValue = Int32.Parse(m_sReply.Substring(0, 3))
End Sub
' Clean up some variables.
Private Sub Cleanup()
If Not (m_objClientSocket Is Nothing) Then
m_objClientSocket.Close()
m_objClientSocket = Nothing
End If
m_bLoggedIn = False
End Sub
' Read a line from the FTP server.
Private Function ReadLine(Optional ByVal bClearMes As Boolean = False) As String
Dim seperator As Char = ControlChars.Lf
Dim mess() As String
If (bClearMes) Then
m_sMes = ""
End If
Do While (True)
m_aBuffer.Clear(m_aBuffer, 0, BLOCK_SIZE)
m_iBytes = m_objClientSocket.Receive(m_aBuffer, m_aBuffer.Length, 0)
m_sMes += ASCII.GetString(m_aBuffer, 0, m_iBytes)
If (m_iBytes < m_aBuffer.Length) Then
Exit Do
End If
Loop
mess = m_sMes.Split(seperator)
If (m_sMes.Length > 2) Then
m_sMes = mess(mess.Length - 2)
Else
m_sMes = mess(0)
End If
If (Not (m_sMes.Substring(3, 1).Equals(" "))) Then
Return ReadLine(True)
End If
Return m_sMes
End Function
' This is a function that is used to send a command to the FTP server that you are connected to.
Private Sub SendCommand(ByVal sCommand As String)
sCommand = sCommand & ControlChars.CrLf
Dim cmdbytes As Byte() = ASCII.GetBytes(sCommand)
m_objClientSocket.Send(cmdbytes, cmdbytes.Length, 0)
ReadReply()
End Sub
' Create a data socket.
Private Function CreateDataSocket() As Socket
Dim index1, index2, len As Int32
Dim partCount, i, port As Int32
Dim ipData, buf, ipAddress As String
Dim parts(6) As Int32
Dim ch As Char
Dim s As Socket
Dim ep As IPEndPoint
'Send an FTP command to use a passive data connection.
SendCommand("PASV")
If (m_iRetValue <> 227) Then
MessageString = m_sReply
Throw New IOException(m_sReply.Substring(4))
End If
index1 = m_sReply.IndexOf("(")
index2 = m_sReply.IndexOf(")")
ipData = m_sReply.Substring(index1 + 1, index2 - index1 - 1)
len = ipData.Length
partCount = 0
buf = ""
For i = 0 To ((len - 1) And partCount <= 6)
ch = Char.Parse(ipData.Substring(i, 1))
If (Char.IsDigit(ch)) Then
buf += ch
ElseIf (ch <> ",") Then
MessageString = m_sReply
Throw New IOException("Malformed PASV reply: " & m_sReply)
End If
If ((ch = ",") Or (i + 1 = len)) Then
Try
parts(partCount) = Int32.Parse(buf)
partCount += 1
buf = ""
Catch ex As Exception
MessageString = m_sReply
Throw New IOException("Malformed PASV reply: " & m_sReply)
End Try
End If
Next
ipAddress = parts(0) & "." & parts(1) & "." & parts(2) & "." & parts(3)
' Make this call in Visual Basic .NET 2002. You want to
' bitshift the number by 8 bits. Therefore, in Visual Basic .NET 2002, you must
' multiply the number by 2 to the power of 8.
'port = parts(4) * (2 ^ 8)
' Make this call and then comment out the previous line for Visual Basic .NET 2003.
port = parts(4) << 8
' Determine the data port number.
port = port + parts(5)
s = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
ep = New IPEndPoint(Dns.Resolve(ipAddress).AddressList(0), port)
Try
s.Connect(ep)
Catch ex As Exception
MessageString = m_sReply
Throw New IOException("Cannot connect to remote server")
'If you cannot connect to the FTP
'server that is specified, make the boolean variable false.
flag_bool = False
End Try
'If you can connect to the FTP server that is specified, make the boolean variable true.
flag_bool = True
Return s
End Function
#End Region
الان نتصل بموقع ال ftp و ننجز المهمات على ذلك الموقع
مثلا انت لديك المعلومات التالية لتطبقها على الكود التالي :
المعلومات :
1- exampl1.txt هو فايل و example2.txt فايل اخر و example3.txt فايل اخر . هذه الفايلات موجودة على قرصك الصلب .
2- myfolder فولدر و myownfolder هي فولدرات موجودة على موقع ال ftp
3- Myownfolder هو فولدر موجود بداخل myfolder
4- قيمة ال strip هو الاي بي لموقع ال ftp
Sub TestFTP()
'Create an instance of the FTP class that is created.
Dim ff As clsFTP
Try
'Pass values to the constructor. These values can be overridden by setting
'the appropriate properties on the instance of the clsFTP class.
'The third parameter is the user name. The FTP site is accessed with the user name.
'If there is no specific user name, the user name can be anonymous.
'The fourth parameter is the password. The FTP server is accessed with the password.
'The fifth parameter is the port of the FTP server. The port of the FTP server is typically 21.
ff = New clsFTP(StrIP, _
"/Myfolder/", _
"anonymous", _
"", _
21)
'Try to log on to the FTP server.
If (ff.Login() = True) Then
'Change the directory on your FTP site.
If (ff.ChangeDirectory("MyOwnFolder") = True) Then
'Successful changing the directory
Console.WriteLine("Changed the directory to the directory that was specified" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
Else
'Unsuccessful changing the directory
Console.WriteLine("Unable to change to the directory that was specified" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
End If
'Create a directory on your FTP site under the previous directory.
If (ff.CreateDirectory("FTPFOLDERNEW") = True) Then
'Successful creating the directory
Console.WriteLine("A new folder has been created" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
Else
'Unsuccessful creating the directory
Console.WriteLine("A new folder has not been created" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
End If
'Change the directory on your FTP site under the directory that is specified.
If (ff.ChangeDirectory("FTPFOLDERNEW") = True) Then
'Successful changing the directory
Console.WriteLine("Changed the directory to the directory that was specified" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
Else
'Unsuccessful changing the directory
Console.WriteLine("Unable to change the directory that was specified" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
End If
ff.SetBinaryMode(True)
'Upload a file from your local hard disk to the FTP site.
ff.UploadFile("C:\Test\Example1.txt")
ff.UploadFile("C:\Test\Example2.doc")
ff.UploadFile("C:\Test\Example3.doc")
'Download a file from the FTP site to your local hard disk.
ff.DownloadFile("Example2.doc", "C:\Test\Example2.doc")
' Remove a file from the FTP site.
If (ff.DeleteFile("Example1.txt") = True) Then
'Successful removing the file on the FTP site
Console.WriteLine("File has been removed from the FTP site" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
Else
'Unsuccessful removing the file on the FTP site
Console.WriteLine("Unable to remove the file on the FTP site" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
End If
'Rename a file on the FTP site.
If (ff.RenameFile("Example3.doc", "Example3_new.doc")) Then
'Successful renaming the file on the FTP site
Console.WriteLine("File has been renamed" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
Else
'Unsuccessful renaming the file on the FTP site
Console.WriteLine("File has not been renamed" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
End If
'Change the directory to one directory before.
If (ff.ChangeDirectory("..") = True) Then
'Successful changing the directory
Console.WriteLine("Changed the directory to one directory before" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
Else
'Unsuccessful changing the directory
Console.WriteLine("Unable to change the directory" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
End If
End If
'Create a new directory.
If (ff.CreateDirectory("MyOwnFolderNew") = True) Then
'Successful creating the directory
Console.WriteLine("A new folder has been created" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
Else
'Unsuccessful creating the directory
Console.WriteLine("A new folder has not been created" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
End If
'Remove the directory that is created on the FTP site.
If (ff.RemoveDirectory("MyOwnFolderNew")) Then
'Successful removing the directory on the FTP site
Console.WriteLine("Directory has been removed" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
Else
'Unsuccessful removing the directory on the FTP site
Console.WriteLine("Unable to remove the directory" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
End If
Catch ex As System.Exception
'Display the error message.
Console.WriteLine("Specific Error=" & ex.Message + vbCrLf)
Console.WriteLine("Press 'ENTER' to EXIT")
Console.ReadLine()
Finally
'Always close the connection to make sure that there are not any not-in-use FTP connections.
'Check if you are logged on to the FTP server and then close the connection.
If ff.flag_bool = True Then
ff.CloseConnection()
End If
End Try
End Subالتاكد من تطبيق ال ftp :
لتتاكد من قابلية موقع ال ftp بالسماح بدخوله ك anonymous اتبع التعليمات التالية :
1- اذهب الى قائمة ال start ثم run
2- في النافذة اكتب inetmgr ثم اضغط ok
3- الان في نافذة internet service manager قم بتوسيع mycomputer و هو اسم كمبيوترك
4- الان في نافذة internet information services manager قم بتوسيع ftp sites
5- الان كلك ايمن على default ftp site ثم كلك على properties
6- الان في نافذة default ftp site كلك لتختار allow anonymous connections في الشريط security accounts
7- الان في نافذة ال default ftp site properties اختار write check box الموجود على الشريط home directory الان اضغط اوكي لكي تغلق النافذة
الان انشا مشروع من نوع console و اكتب الكود التالي:
Imports FTP
Module Module1
Sub TestFTP()
'Create an instance of the FTP class that is created.
Dim ff As clsFTP
Try
'Pass the values to the constructor. These values can be overridden by setting
'the appropriate properties on the instance of the clsFTP class.
ff = New clsFTP(StrIP, _
"/MyFolder/", _
"anonymous", _
"", _
80)
'Try to log on to the FTP server.
If (ff.Login() = True) Then
'Change the directory on your FTP site.
If (ff.ChangeDirectory("MyOwnFolder") = True) Then
'Successful changing the directory
Console.WriteLine("Changed the directory to the directory that was specified" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
Else
'Unsuccessful changing the directory
Console.WriteLine("Unable to change to the directory that was specified" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
End If
'Create a directory on your FTP site under the previous directory.
If (ff.CreateDirectory("FTPFOLDERNEW") = True) Then
'Successful creating the directory
Console.WriteLine("A new folder has been created" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
Else
'Unsuccessful creating the directory
Console.WriteLine("A new folder has not been created" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.ReadLine()
End If
'Change the directory on your FTP site under the directory that is specified.
If (ff.ChangeDirectory("FTPFOLDERNEW") = True) Then
'Successful changing the directory
Console.WriteLine("Changed the directory to the directory that was specified" + vbCrLf)
Console.WriteLine("Press 'ENTER'")
Console.R