If i > 0 Then
ftp1.Rename(FileSys.GetName(projectPath & "attachments\" & name),"\" &dr("记录时间") & "\" & dr("记录时间") &"("& i &").jpg")
Dim name1 ="\" &dr("记录时间") & "\" & dr("记录时间") &"("& i &").jpg"
line.add(name1)
ftp1.Delete("/" & FileSys.GetName(projectPath & "attachments\" & name))
Else
ftp1.Rename(FileSys.GetName(projectPath & "attachments\" & name),"\" &dr("记录时间") & "\" & dr("记录时间") &".jpg")
Dim name1="\" &dr("记录时间") & "\" & dr("记录时间") &".jpg"
line.add(name1)
ftp1.Delete("/" & FileSys.GetName(projectPath & "attachments\" & name))
End If
加好友 
发短信
Post By：2021/12/29 10:13:00 [只看该作者]
