VB如何检查文件是否存在.docxVIP

VB如何检査文件是否存在？ 悬赏分:0 ?解决时间:2007-8-12 19:35 VB如何检查文件是否存在？ 比如 要要检查C盘下的1 .exe是否存在要用什么么语句 该语句可以加入到 if这里吗?then 语句 end if 提问者：wulai2761 ?经理五级故佳答案 if dir(c:\1 .exe,vbHidden+vbReadOnly+vbSystem)on then 回答者：狂族魔帯?经理四级8-915:55 评价己经被关闭 目前有0个人评价 好 5 0% (0)不好 50% (0) 相关问题 ?vb检查文件是否存在 ?如何用VB检查-?网上文件是否存在 ?如何用VB检查某一指定文件是否存在呢？ ？ ?VB用什么代码可以检测文件是否存在？ ?vb检查文件数量 其他回答共2条 用DIR函数用法如卜 Dir[(pathname[, attributes])] Dir函数的语法具冇以下几个部分： 以vbDirectory属性來调用Dir不能连续地返回子H录。！!！ 以下是VB帮助口带査目录的例子，明确的指出目录必须要用GetAttr!!! 显示C:\目录下的名称。 MyPath = ”c:\”1 指定路径。 MyName =Dir(MyPath,vbDirectory)1 找寻第一项。 Do While MyNa始循环。 跳过当前的目录及上层目录。 If A nd MyName n 使用位比较來确定MyName代表一 li录。 If (GetAt tr(MyP MyName) And vbDirectory)= vbDirecto ry Then Debug.Print MyName 如果它是一个目录，将其名称显示出来。 End If End If MyName = Dir*查找下一个目录。 Loop (转) 用VB函数Di r实现递归搜索H录 HIHHIIVIIHHVHHHVIVHHMVIVHMVHHMIlVIlBlllfHHHVHHHfHIVHIUIIIVHVIIHHIIVIIHIIVIIHHIIIBVHHVIIimilllVIfllinifHHVHMVIlHHIIVinmVIHIHVIflUlllflUIIIIIIHHIIIIIHHVIIHHVIVHHVIVH 函数 GetExtName 功能:得到文件后缀名(扩展名) 输入:文件名 输出:文件后缀名(扩展名) VIIHHIIVIIHHVHHHVIVHHMVIVHMVHHMIlVIlBlllfHHHVHHHfHIVHIUIIIVHVIIHHIIVIIHIIVIIHHIIIBVHHVIIimilllVIfllinifHHVHMVIlHHIIVinmVIHIHVIflUlllflUIIIIIIHHIIIIIHHVIIHHVIVHHVIVH Public F unction GetE xtName(strFi leName As St ring) As String Dim strT mp As String Dim strByte As String D im i As Long For i = Len (strFileName) To 1 Step-1 strByte =Mid(strFile Name, i, 1) Then s trT mp = strB yte + strT mp Else Exit F or End If Next i GetExtN ame = strTmp End Functio n Public Fun ction search (ByVai strPa th As String , Optional s trSearch As String = IM,)As Boolean Dim strFileD ir() As Stri ng Dim strFi le As String Dim i As Lo ng Dim IDirC ount As Long On Error Go To MyErr If Right(strPat Then strPat h = strPath + \ strFil e = Dir(strP ath, vbDirec tory Or vbHi dden Or vbNo rmal Or vbRe adOnly) Whil搜索当前目录 Do Events If (GetAttr(str Path + strFi le) And vbDi rectory) = v bDirectory T hen 如果找到的是目录 If strFileThen 排除掉父目录(..)和当前目录(.) IDirCou nt = IDirCou nt + 1 将目录数增 1 ReDim Pre serve strFil eDir(I