主题：扫描仪

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


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

改为ftp1.FileExists也不行？确定ftp的路径是正确的

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)

FileSys.FileExists是判断本地是否存在文件，无法判断ftp，要判断ftp请使用ftp.FileExists！！！

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

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

Tables("楼房_table10").cols(Tables("楼房_table10").colsel).name

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

看硬件开发文档说明。找厂家要.net的开发实例，照着做