以下代码还是有问题,文件夹中有三张图片,我认为应该执行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