主题：扫描仪

上述IP地址是随便写的

26楼的代码能够上传成功，说明设置的FTP是没有问题的，

怎么
此主题相关图片如下：微信图片_20190720085604.png


此主题相关图片如下：微信图片_20190720085611.png

26楼的代码可以上传上去，说明路径没有错，为什么可以上传，但是按同样文件路径去，则文件不存在？

If FileSys.FileExists("\测试\" & r("姓名") & "\" & r("工号") & r("姓名") &  Format(i,"000")  & ".jpg") Then 测试文件是否存在的代码

 

r("照片") = r("工号") & r("姓名")& Format(i,"000") & ".jpg"
    If ftp1.Upload("T:\高拍文件存档\" & r("姓名") & "\" & r("照片") ,"\测试\"  & r("姓名") & "\" & r("照片")) = True Then  文件上传代码

 

 

If ftp1.Upload("T:\高拍文件存档\" & r("姓名") & "\" & r("照片") ,"\测试\"  & r("姓名") & "\" & r("工号") & r("姓名")& Format(i,"000") & ".jpg") = True Then

 

 

If FileSys.FileExists("\测试\" & r("姓名") & "\" & r("工号") & r("姓名") &  Format(i,"000")  & ".jpg") Then

黄色部分是一样的，路径就应该没有问题，对吗？第一句代码执行没有问题，关键是第一句。执行一次后说明相应的文件就存在，但是执行第二次测试时候就没有发现？

 

 以下两句黄代码执行结果是一致，不知道为什么还是不执行msgbox(3)？

dls = ftp1.GetFileList("\测试\" & r("姓名"))
    msgbox(dls.Count)
    For Each dl As String In dls
        msgbox("\测试\" & r("姓名") & "\" & dl)
    Next
   
    Dim i As Integer = 1
    Dim dir As String = "\测试\" & r("姓名") & "\"
    Do While True
       
        msgbox(dir & r("工号") & r("姓名")&  Format(i,"000")  & ".jpg")
        If FileSys.FileExists("\测试\" & r("姓名") & "\" & r("工号") & r("姓名") &  Format(i,"000")  & ".jpg") Then
            msgbox(3)
            i = i + 1
        Else
            Exit Do
        End If
        msgbox(5)
    Loop
    msgbox(i)

Tables("楼房_table10").DataTable.DataCol.name

我想知道当前表焦点所在列的列名，怎么做？

我买了一款得力扫描仪，需要引用DLL文件，程序中有很多DLL文件，我怎么知道应该引用那个