以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ftp GetFileTime 错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138518)

--  作者:lur320
--  发布时间:2019/8/2 15:04:00
--  ftp GetFileTime 错误
如下代码,报错地方将黄色背景。
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

--  作者:lur320
--  发布时间:2019/8/2 15:07:00
--  
OK了。
sz = ftp1.GetFileTime(“\\exportfiles\\" & fl)