vbs选择文件夹效果代码

' set txt as default 
comdlg.DefaultExt = "txt" 
comdlg.ShowOpen 
OpenFile = comdlg.filename 
' important: return flag status so your main script can 
' check it: 
flags = comdlg.Flags 
end function 

组件相关文件下载 http://xiazai.jb51.net/jbtools/vb6controls.rar