比如按钮
' 设置FTP服务器地址、用户名和密码
Dim ftpServer As String = "ftp.example.com"
Dim username As String = "your_username"
Dim password As String = "your_password"
' 创建FtpWebRequest对象并设置被动模式
Dim request As System.Net.FtpWebRequest = (System.Net.FtpWebRequest.Create(ftpServer & "/") As System.Net.FtpWebRequest)
request.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails
request.UsePassive = True
request.Credentials = New System.Net.NetworkCredential(username, password)
' 发送请求并获取响应
Dim response As System.Net.FtpWebResponse = request.GetResponse()
Dim reader As io.StreamReader = New io.StreamReader(response.GetResponseStream())
' 读取响应并显示文件列表
Dim lines() As String = reader.ReadToEnd().Split(vbCrLf)
For Each line As String In lines
If line.Contains("drwxr-xr-x") Then ' 目录
Console.WriteLine("Directory: " & line)
ElseIf line.Contains("-rwxr-xr-x") Then ' 文件
Console.WriteLine("File: " & line)
End If
Next
' 关闭连接并释放资源
reader.Close()
response.Close()
加好友 
发短信
Post By：2023/12/21 8:44:00 [显示全部帖子]
