Dim i As Integer = 0
Dim dr As Row = Tables("aa").Current
Dim ftp1 As new ftpclient
ftp1.Host="172.16.120.41"
ftp1.Account = "admin"
ftp1.Password = "qw123"
If ftp1.FileExists(dr("系统单号")& dr("处理人")& ".jpg") Then
For i = 1 To 999
If ftp1.FileExists(dr("系统单号")& dr("处理人")& "("& i &").jpg")=False Then
Exit For
End If
Next
End If
If i > 0 Then
ftp1.Rename(e.CurFolder & "/" & filesys.getname(e.LocalFile), dr("系统单号") & dr("处理人")& "("& i &").jpg")
Else
ftp1.Rename(e.CurFolder & "/" & filesys.getname(e.LocalFile), dr("系统单号") & dr("处理人")& ".jpg")
End If
现在这段代码是生成以XXXX(1).jpg的格式
想改成XXXX_1.jpg的格式
请问要怎么改呢?
[此贴子已经被作者于2021/7/29 17:56:55编辑过]