以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请问一下这段代码是放在哪一个位置呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170528)
--  作者：gihilli
--  发布时间：2021/7/29 15:10:00
--  [求助]请问一下这段代码是放在哪一个位置呢？
现在想用PictureViewer这个控件上传图片文件，请问一下这段代码是放在哪里吗？

如果使用FTP管理远程图片，可以参考下面的代码添加图片：

Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
Dim Files As List(of String) = piv.FtpClient.SelectFile()
For Each File As String In Files
    piv.AddFile(File)
Next
--  作者：有点蓝
--  发布时间：2021/7/29 15:16:00
--  
添加一个按钮，放到按钮cilck事件
--  作者：gihilli
--  发布时间：2021/7/29 17:56:00
--  [求助]FTP重命名格式
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编辑过]
--  作者：有点蓝
--  发布时间：2021/7/29 20:07:00
--  
比如
If ftp1.FileExists(dr("系统单号")& dr("处理人")& "_" &  i & ".jpg")=False Then