主题：扫描仪

在例子中，还想增加一项功能，就是把照片自动添加到“存放照片”列中，

该怎么写代码？

If ftp1.Upload("T:\高拍文件存档\" & r("姓名") & "\" & r("照片") ","\项目文档 & "\" & r("照片") """) = True Then
这句代码应该怎么修改？

If ftp1.Upload("T:\高拍文件存档\" & r("姓名") & "\" & r("照片") ,"\项目文档\" & r("照片")) = True Then

例子中的怎么“存放照片”自动添加，能够实现打开的功能

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目11.zip

黄色代码那里错，一直不执行msgbox(3)代码？

If ftp1.DirExists("\测试\"  & r("姓名") ) Then
   
    Dim i As Integer = 1
    Dim dir As String = "\测试\" & r("姓名") & "\"
    Do While True
        msgbox(dir & r("工号") & r("姓名")&  Format(i,"000")  & ".jpg")
        If FileSys.FileExists(dir & r("工号") & r("姓名") &  Format(i,"000")  & ".jpg") Then
            msgbox(3)
            i = i + 1
        Else
            Exit Do
        End If
        msgbox(5)
    Loop
    msgbox(i)
   
    r("照片") = r("工号") & r("姓名")& Format(i,"000") & ".jpg"
    If ftp1.Upload("T:\高拍文件存档\" & r("姓名") & "\" & r("照片") ,"\测试\"  & r("姓名") & "\" & r("照片")) = True Then
        msgbox("\测试\"  & r("姓名") & "\" & r("照片"))
        Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
    r("存放照片") = r("存放照片") & r("照片") & vblf
    r("存放照片") =  "/测试/"  & r("姓名") & "/" & r("存放照片")
    MessageBox.show("目录已经存在","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    r("照片") = r("工号") & r("姓名")& Format(1,"000") & ".jpg"
    If ftp1.MakeDir("\测试\"  & r("姓名") ) Then
        Messagebox.Show("创建目录成功!")
    Else
        Messagebox.Show("创建目录失败!")
    End If
   
    If ftp1.Upload("T:\高拍文件存档\" & r("姓名") & "\" & r("照片") ,"\测试\"  & r("姓名") & "\" & r("照片")) = True Then
        Messagebox.show("上传真完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("上传真失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
    r("存放照片") =  "/测试/"  & r("姓名") & "/" & r("照片")
End If

Dim ftp1 As New FtpClient
Dim dls As List(of String)
ftp1.Host="192.168.311.260"
ftp1.Account = "hhh"
ftp1.Password = "55555"
ftp1.Port = "665"
dls = ftp1.GetDirList("\测试\牛十" )
msgbox(dls.Count)

For Each dl As String In dls
    Output.Show(dl)
Next

执行以上代码，显示为零，但是这个目录里真有一张图片，而且是通过26楼的代码上传成功的

上述IP地址是随便写的

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

If ftp1.FileExists(dir & r("工号") & r("姓名") &  Format(i,"000")  & ".jpg") Then