弹出两个路径,如果路径正确且有对应的文件(路径,必须是绝对路径),就不可能下载不成功!
msgbox(vars("zhygwjj") & "\" & lr.text)
msgbox(dlg.Selectedpath & "\" & lr.text)