没必要重命名吧？
直接写
If ftp.Upload(dlg.FileName,fp & "\" & dr("_Identify") & ".jpg", True) = True Then '若成功上传
加好友 
发短信
Post By：2015/11/27 1:15:00 [显示全部帖子]
