vb打开对话框
摘要:vb?打开对话框同时选择多个文件方法一:PrivateSubCommand1_Click()OnErrorGoTouserCanceledDimiAsIntegerWithCommonDialog1.CancelError=True.Flags=cdlOFNHideReadOnlyOrcdlOFNAllowMultiselectOrcdlOFNEXPlorerOrcdlOFNNoDereferenceLinks.Filter="所有文件(*.*)*.*".ShowOpenGetFileInfo(.FileName)EndWithFori=1ToUBound(FileInfo)FileInfo(i)NextLabel3=FileInfo(0)userCanceled:EndSubPrivateSubGetFileInfo(SourceAsString)DimtAsIntegerFileInfo=Split(Source,Chr(0))IfUBound(FileInfo)=0ThenReDimPreserveFileInfo(1)t=InStrRev(FileInfo(0),"\")FileInfo(1)=Mid(FileInfo(0),t+1)FileInfo(0)=Left(FileInfo(0),t)ElseIfRight(FileInfo(0),1)<>"\"ThenFileInfo(0)=FileInfo(0)&"\"EndIfEndSub精心搜集整理,只为你的需要
温馨提示:当前文档最多只能预览
5 页,若文档总页数超出了
5 页,请下载原文档以浏览全部内容。
本文档由 匿名用户 于 2020-11-03 08:01:45上传分享