quote:以下是引用温CC在2009-09-29 10:58:00的发言:[br
为什么在 CDG.ShowOpen 处打不开呢?
少设了一个属性MaxFileSize
Dim CDG
Set CDG=CreateObject("MSCOMDLG.CommonDialog.1")
CDG.MaxFileSize=260
CDG.ShowOpen
Msgbox CDG.FileName '显示完整路径和文件名
Msgbox CDG.FileTitle '显示文件名
Set CDG=Nothing