黄色代码那里错,一直不执行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