如下代码,报错地方将黄色背景。Dim ftp1 As New FtpClient
Dim madr As DataRow
madr=。。。。。。
If madr IsNot Nothing Then
ftp1.Host=madr("FTPHOST")
ftp1.Account = madr("FTPUSER")
ftp1.Password =madr("FTPPASSWORD")
ftp1.utf8=True
If ftp1.Connected = False '如果FTP没有连接
If ftp1.Connect=False Then '连接FTP
Messagebox.show("连接FTP失败!检查密码和账户信息","提示")
Return
End If
End If
Dim fls As List(of String)
fls = ftp1.GetFileList("\exportfiles")
For Each fl As String In fls
Dim sz As Date
sz = ftp1.GetFileTime(fl)
MessageBox.Show(fl & sz) 这里文件名都是对的,但是时间都是00:00:00,如《张三文件.doc00:00:00》需要显示具体的创建或修改文件的日期。
Next
End If