msgbox "文件已经成功保存为" & App.Path & "截屏图片\" & rFN & ".JPG"
msgbox "文件已经成功保存为" & App.Path & "截屏图片\" & rFN & ".JPG" ,VbOkOnly,"文件路径确认"
msgbox App.Path & "截屏图片\" & rFN & ".JPG"
