vb如何检查文件是否存在

《vb如何检查文件是否存在》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VB如何检査文件是否存在？悬赏分:0•解决时间:2007-8-1219:35VB如何检查文件是否存在？比如要要检查C盘下的1.exe是否存在要用什么么语句该语句可以加入到if这里吗?then语句endif提问者：wulai2761•经理五级故佳答案ifdir("c:1.exe",vbHidden+vbReadOnly+vbSystem)on"then回答者：狂族魔帯•经理四级8-915:55评价己经被关闭目前有0个人评价好50%(0)不好50%(0)相关问题・vb检查文件是否存在•如何用VB检查-•

2、网上文件是否存在・如何用VB检查某一指定文件是否存在呢？？・VB用什么代码可以检测文件是否存在？・vb检查文件数量其他回答共2条用DIR函数用法如卜Dir[(pathname[,attributes])]Dir函数的语法具冇以下几个部分：以vbDirectory属性來调用Dir不能连续地返回子H录。！!！以下是VB帮助口带査目录的例子，明确的指出目录必须要用GetAttr!!!'显示C:目录下的名称。MyPath=”c:”1指定路径。MyName=Dir(MyPath,vbDirectory)1找

3、寻第一项。DoWhileMyNa始循环。'跳过当前的目录及上层目录。If"AndMyNamen'使用位比较來确定MyName代表一li录。If(GetAttr(MyPMyName)AndvbDirectory)=vbDirectoryThenDebug.PrintMyName'如果它是一个目录，将其名称显示出来。EndIfEndIfMyName=Dir*查找下一个目录。Loop(转)用VB函数Dir实现递归搜索H录HIHHIIVIIHHVHHHVIVHHMVIVHMVHHMIlVIlBlllfHHHV

4、HHHfHIVHIUIIIVHVIIHHIIVIIHIIVIIHHIIIBVHHVIIimilllVIfllinifHHVHMVIlHHIIVinmVIHIHVIflUlllflUIIIIIIHHIIIIIHHVIIHHVIVHHVIVH'函数GetExtName'功能:得到文件后缀名(扩展名)'输入:文件名'输出:文件后缀名(扩展名)VIIHHIIVIIHHVHHHVIVHHMVIVHMVHHMIlVIlBlllfHHHVHHHfHIVHIUIIIVHVIIHHIIVIIHIIVIIHHIIIBVH

5、HVIIimilllVIfllinifHHVHMVIlHHIIVinmVIHIHVIflUlllflUIIIIIIHHIIIIIHHVIIHHVIVHHVIVHPublicFunctionGetExtName(strFileNameAsString)AsStringDimstrTmpAsStringDimstrByteAsStringDimiAsLongFori=Len(strFileName)To1Step-1strByte=Mid(strFileName,i,1)>ThenstrTmp=strBy

6、te+strTmpElseExitForEndIfNextiGetExtName=strTmpEndFunctionPublicFunctionsearch(ByVaistrPathAsString,OptionalstrSearchAsString=IM,)AsBooleanDimstrFileDir()AsStringDimstrFileAsStringDimiAsLongDimIDirCountAsLongOnErrorGoToMyErrIfRight(strPatThenstrPath=str

7、Path+""strFile=Dir(strPath,vbDirectoryOrvbHiddenOrvbNormalOrvbReadOnly)Whil搜索当前目录DoEventsIf(GetAttr(strPath+strFile)AndvbDirectory)=vbDirectoryThen'如果找到的是目录IfstrFileThen'排除掉父目录(..)和当前目录(.)IDirCount=IDirCount+1'将目录数增1ReDimPreservestrFileDir(IDirCount)As

8、StringstrFileDir(IDirCount-1)=strFile'用动态数组保存当前目录名EndIfElseIfstrSearch="”ThenForml.List1.AdditemstrPath+strFileElselfLCase(GetExtName(strPath+strFile))=LCase(GetExtNamefstrSearch))Then'满足搜索条件，则处理该文件Forml.List1.AdditemstrPath+strF