vbs选择文件夹效果代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
不用组件的话有两种办法: setobjFile=CreateObject("SAFRCFileDlg.FileOpen") SetobjShell=CreateObject("Shell.Application") 本blog里都有示例。 如果调用vb组件,可以是: flag=&h200 whichone=OpenFile("ChooseaFile!","C:\","Everything|*.*|TextFiles|*.TXT|Word-Documents|*.DOC",2,flag) MsgBox"Rawdatareturned:"&whichone ''Splitupmultiselectionresult: ''spaceisusedasseparator: whichone=Split(whichone,"") ''fieldindex0containspathinformation: path=whichone(0) ''listallthefiles: ''howmanyfileswereselected? filecount=UBound(whichone) iffilecount=0then ''justonefileselected! MsgBox"Youselectedonefile:"&whichone(0) ''checkstatusofReadOnlycheckbox ''isbit1setorcleared? ''worksonlyifjustonefilewasselected! MsgBox"Returnedflag:"&flag if(flagand1)then ''(flagand1)<>0,transformstotrue ''bitisset! MsgBox"ReadOnlyselected!" else MsgBox"ReadOnlynotselected!" endIf ''checkwhetherselectedfileisofdefaulttype(txt) if(flagand1024)then MsgBox"selectedfileisnotxtfile!" else MsgBox"selectedfileisofdefaulttype!" endif else ''morethanonefileselected! MsgBox"Youselected"&filecount&"files!" forx=1toUBound(whichone) list=list&path&whichone(x)&vbCr next MsgBoxlist endIf functionOpenFile(title,dir,filter,index,flags) setcomdlg=CreateObject("MSComDlg.CommonDialog") comdlg.filter=filter comdlg.FilterIndex=index comdlg.Flags=flags comdlg.MaxFileSize=260 comdlg.CancelError=false comdlg.DialogTitle=title comdlg.InitDir=dir ''settxtasdefault comdlg.DefaultExt="txt" comdlg.ShowOpen OpenFile=comdlg.filename ''important:returnflagstatussoyourmainscriptcan ''checkit: flags=comdlg.Flags endfunction 组件相关文件下载http://xiazai.jb51.net/jbtools/vb6controls.rar |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
关于vbs选择文件夹效果代码的所有评论