If ftp2.Upload(dlg.FileName,fp,True) = True Then '若成功上传
改成
If ftp2.Upload(fname,fp,True) = True Then '若成功上传