主题：扫描仪

("T:\高拍文件\" & r("姓名"))这个文件夹中编号最大的照片，怎么写代码？如果出现重复照片编号能够自动增加

以下代码还是有问题，文件夹中有三张图片，我认为应该执行001、002、003，然后i的值应该是4，但是执行到黄色部分就不向下执行了

Dim r As Row = Tables("员工").Current
If FileSys.DirectoryExists("T:\高拍文件存档\" & r("姓名")) = True Then
    msgbox(3)
    Dim i As Integer = 1

    Dim dir As String = """T:\高拍文件存档\" & r("姓名") & "\"""
    Do While True
        msgbox(5)
        msgbox(dir & r("工号") & r("姓名")&  Format(i,"000")  & ".jpg")
        If FileSys.FileExists(dir & r("工号") & r("姓名")&  Format(i,"000")  & ".jpg") Then
            i = i + 1
        Else
            Exit Do
        End If
        msgbox(6)
    Loop
    msgbox(i+10)
    r("照片") = r("工号") & r("姓名")& Format(i+1,"000") & ".jpg"
    FileSys.MoveFile(e.FullPath, "T:\高拍文件存档\" & r("姓名") & "\" & r("照片"),True)
Else
    msgbox(4)
    FileSys.CreateDirectory("T:\高拍文件存档\" & r("姓名"))
    FileSys.MoveFile(e.FullPath,"T:\高拍文件存档\" & r("姓名") & "\" & r("照片"))
End If

换了17楼，还是与原来一样

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

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

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

该怎么写代码？

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楼的代码上传成功的