Đang chuẩn bị liên kết để tải về tài liệu:
Tự học ngôn ngữ lập trình Visual Basic 2005 part 10

Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ

Tham khảo tài liệu 'tự học ngôn ngữ lập trình visual basic 2005 part 10', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | hương 6 - Các djch vụ nén .NET 2.0_247 nhanh qua một site FTP lùi xuóng một số tầng trong cấu trúc thư mục và lựa chọn file gây chú ý cho bạn Ví dụ 6.4 chỉ ra mã cho form trình duyệt FTP. Ví dụ 6.4 Form trình duyệt FTP Public Class FtpForm Inherits Sy stem. Win lows. Forms Form 1 Stores the path currently shown in the Listview. Private CurrentPath As string Private Sub cmdQuery_Click ByVal sender As System.Object. _ ByVai e As System.EventArgs Handles cmdQuery.Click Check the URI is valid. Dim RequestUri As Uri ValidateUri txtFtpSite.Text If RequestUri Is Nothing Then Return Clear the Listview. listDir. Items.Clearf Create a new FTP request using the URL Dim Request As FtpWebRequest Request CType WebRequest.Create RequestUri . FtpWebRequest Use this request for getting full directory details. Request.Method LIST Request. UsePassive False Dim Response As FtpWebResponse Dim Responsestream As Stream Dim Reader As StreamReader Try Execute the command and get the response. Response CType Request.GetResponse FtpWebResponse Debug.WriteLinef Status Response. StatusDescription Read the response one line at a time. 248 Chưdng 6 - Các dịch vụ nền .NET 2.0 Responsestream Response.GetResponseStream Reader New stream Reader ResponseStream System.Text. Encod in g.UTFB Dim Line As string Do Line Reader ReadLine If Line Then Debug.WriteLine Line Extract just the file or directory name from the line. Dim Listitem As New ListViewltem Line.Substring 59 .Trim If Line.Substring O 1 d Then Listitem.ImageKey Folder Else Listitem.ImageKey - File End If listDir. Items. Add Listltem End If Loop Until Line 1 Operation completed successfully store the current FTP path. Currentpath RequestUri.ToStringf Catch Ex As Exception MessageBox.Show Ex. Message Finally Clean up. Reader.Closef Response.Close End Try End Sub Private Sub cmdDownload_Click ByVal sender As System.Object _ ByVai e As System.EventArgs Handles cmdDownload.Click .