添加commondialog1、label1
CommonDialog1.Filter = "All files (*.*)|*.*" '默认打开文件类型
CommonDialog1.FilterIndex = 1
CommonDialog1.InitDir = App.path & "\" '默认打开文件路径
CommonDialog1.Filename = "" '默认打开的文件名
CommonDialog1.CancelError = False
CommonDialog1.ShowOpen
lable1.Caption = CommonDialog1.FileName
温馨提示:答案为网友推荐,仅供参考