Vì tôi đang sử dụng "sử dụng" ở đây, Nếu có ngoại lệ, trong đó TRY sẽ tự động đóng FtpWebRequest, FtpWebRespons và responseStream?nếu có ngoại lệ trong "đang sử dụng", nó sẽ tự động bị đóng
Try
Dim request As FtpWebRequest = CType(WebRequest.Create(""), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.ListDirectoryDetails
request.Credentials = New NetworkCredential("", "")
Using response As FtpWebResponse = CType(request.GetResponse(), FtpWebResponse)
Using responseStream As Stream = response.GetResponseStream()
Using reader As New StreamReader(responseStream)
TextBox1.Text = reader.ReadToEnd
TextBox1.Text += vbNewLine
TextBox1.Text += vbNewLine
' Use the + for appending (set the textbox to multiline)
End Using
End Using
End Using
Catch ex As Exception
MessageBox.Show(ex.Message.ToString())
End Try
Để tự mình kiểm tra, hãy tạo một lớp thực hiện 'IDisposable' và viết thư cho bảng điều khiển trong phương thức' Dispose' (hoặc đặt điểm ngắt) –