Dim ComDialog

Dim filename

Dim filepath

Set filepath=HMIRuntime.Tags("FileName") '定义内部变量FileName,把此变量连接到一个I/O域中显示路径

Set ComDialog=ScreenItems("CommonDialog")

ComDialog.ShowOpen

filepath.Value=ComDialog.FileName

filepath.Write

MsgBox ComDialog.FileName, 65, "文件路径"


'需要在画面中添加个控件Microsoft Common Dialogue
'哈哈, 综合一下! 大家共享, 已过测试。