vb中如查找文件是否存在

在VB中如何判断文件、文件夹是否存在~

Dir ([PathName],[Attributes as VbFileAttribute = vbNormal]) as String 解释：PathName:文件或文件夹的绝对路径。 Attributes:文件的属性--默认值：vbNormal 是普通文件，vbHidden 是隐藏文件，vbDirectory是文件夹。 "[]"内为可以选项。Dir(file)=""表示文件或文件夹不存，即文件或文件夹的实际路径文空。Dir(file)""表示文件或文件夹存在,即文件或文件夹实际路径不为空。 例如判断C:\Windows\System32\cmd.exe是否存在，如存在，就调用它，可用下列语句： '文件存，利用Shell调用,默值为vbNormalIf Dir("C:\Windows\System32\cmd.exe")"" Then Shell "C:\Windows\System32\cmd.exe"End If 如果判断的文件是隐藏文件，上面的语则无法判断出来，这时就需要加上后面的可选项目，例如 判断D盘根目录下是否有隐藏文件text.txt,就用下面的源代码： If Dir("D:ext.txt",vbHidden)"" Then Msgbox "找到Text.txt隐藏文件" End If 判断件夹是否存，与判断隐藏文件的方法一样，可用下列语句： Dir("文件夹路径",vbDirectory)"" 例如，要判断文件D:\Backup是否存在，源代码如下： If Dir("D:\Backup",vbDirectory)"" Then Msgbox "文件夹：D:\Backup 存在!" End If 二、在VB的编程，也会用到利用应程序时生成文件夹。可以利用下面的言句生成文件夹： MkDir "文件夹路径" 例如：在应用程序根目录下，生成Backup文件夹。在生成之前先判断该文件夹否存在。源代码如下： Dim BackupPath As String Select Case Right(App.Path,1) '判断路径是否包含'\' case '\': BackupPath = App.Path & "Backup" case Else BackupPath = App.Path & "\Backup" End Select If Dir(BackuPath,vbDirectory)="" Then '文件夹不存在 MkDir BackuPath '在应用程序根目下，创建文件夹Backup End If

这可用下列语句进行判断

Dir([pathname],[Attributes as VbFileAttribute=vbNormal]) As String
解释： pathname:文件的绝对路径；
Attributes：文件的属性。
“[]”内为可选项。dir(file)=""表示文件不存在，dir(file)""表示文件存在。
例如判断c:wpswinwps.exe是否存在，如存在，就调用它，可用下列语句：
if dir("c:wpswinwps.exe")"" then
shell "c:wpswinwps.exe"
end if

VB中可用Dir函数查找文件是否存在。

Dir 函数，返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。

Dir 函数示例：

本示例使用 Dir 函数来检查某些文件或目录是否存在。在 Macintosh
计算机上，默认驱动器名称是 “HD” ，并且路径部分由冒号取代反斜线隔开。而且 Microsoft Windows 的通配符在 Mac
中可以作为有效字符出现在文件名中。也可以使用 MacID 函数来指定文件组。

Private Sub Form_Click()
    Dim MyFile, MyPath, MyName
    ' 返回“WIN.INI” （如果该文件存在）。
    MyFile = Dir("C:\WINDOWS\WIN.ini")
    ' 返回带指定扩展名的文件名。如果超过一个 *.ini 文件存在，
    ' 函数将返回按条件第一个找到的文件名。
    MyFile = Dir("C:\WINDOWS\*.ini")
    ' 若第二次调用 Dir 函数，但不带任何参数，则函数将返回同一目录下的下一个 *.ini 文件。
    MyFile = Dir
    ' 返回找到的第一个隐式 *.TXT 文件。
    MyFile = Dir("*.TXT", vbHidden)
    ' 显示 C:\ 目录下的名称。
    MyPath = "c:\"   ' 指定路径。
    MyName = Dir(MyPath, vbDirectory)   ' 找寻第一项。
    Do While MyName <> ""   ' 开始循环。
       ' 跳过当前的目录及上层目录。
       If MyName <> "." And MyName <> ".." Then
          ' 使用位比较来确定 MyName 代表一目录。
          If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
             Debug.Print MyName   ' 如果它是一个目录，将其名称显示出来。
          End If
       End If
       MyName = Dir   ' 查找下一个目录。
    Loop
End Sub

以下是在D盘根目录下查找zhang2012.xls是否存在的代码：

Private Sub Command1_Click()
    Dim fl
    If Dir("D:\zhang2012.xls") <> "" Then
        Print "文件存在"
    Else
        Print "文件不存在"
    End If
End Sub

回答者：墨渍 - 同进士出身 七级 7-10 17:18

正解.不过差一个小参数...文件夹的话就是

if dir("",vbDirectory)
文件就是

if dir("",vbArchive )

r=dir(D:\My Documents\My Pictures\1.doc)
if r<>"" then
文件存在
else
文件不存在
end if

if dir("D:\My Documents\My Pictures\1.doc")="" then
msgbox "文件不存在"
else
msgbox "文件存在"
end if

我晕,你可以直接用
if DIR(文件路径,vbNormal)="" then
msgbox "not find"

end if

---

禄丰县18959368303： 在VB中如何检测一个文件或文件夹是否存在? - ？
盈芸盐酸： Dir 函数

禄丰县18959368303： VB如何检查文件是否存在? - ？
盈芸盐酸： if dir(＂c:\1.exe＂,vbHidden+vbReadOnly+vbSystem)<>＂＂ then

禄丰县18959368303： VB中如何判断某个文件在另一文件夹中是否存在 - ？
盈芸盐酸： Dim Win As String Win = Environ(＂windir＂) '定义环境变量 Dim fs Set fs = CreateObject(＂Scripting.FileSystemObject＂) If Not fs.FileExists(Win + ＂\explorer.exe＂) Then MsgBox ＂ 系统资源管理器文件不存在!＂, vbOKOnly, ＂提示＂ 'Exit Sub End If

禄丰县18959368303： VB如何判断文件是否存在 - ？
盈芸盐酸： 判断文件本来就不需要dim之类, if dir(FilePathName) <>＂＂ then '如文件存在,dir返回不带路径的文件名'文件存在 else'文件不存在 end if

禄丰县18959368303： 用VB如何判断一个文件存不存在 - ？
盈芸盐酸： Private Sub Command1_Click() Dim fileStr As String '文件路径及名字 fileStr = ＂c:\test.txt＂ If Dir(fileStr) <> ＂＂ Then MsgBox fileStr + ＂存在!＂ End Sub

禄丰县18959368303： VB判断文件是否存在 - ？
盈芸盐酸： 可以用GetDriveType返回盘符类型,返回值:0-未知的磁盘类型;1-无效的磁盘;2-可移动磁盘;3-固定磁盘;4-网络磁盘;5-光驱;6-RAM如果不是光驱再做判断,复制粘贴下段代码:Private Declare Function GetDriveType Lib ＂kernel32＂ ...

禄丰县18959368303： VB怎样检测文件是不是存在？
盈芸盐酸： vbdirectory)= then 不存在 else 存在 end if

禄丰县18959368303： VB中怎样检查一个盘中是否有我要找的文件?？
盈芸盐酸： FileExists 方法 描述如果指定的文件存在,返回 True,若不存在,则返回 False.语法object.FileExists(filespec)FileExists 方法语法有如下几部分:部分 描述 object 必需的.始终是一个 FileSystemObject 的名字. filespec 必需的.要确定是否存在的文件的名字.如果认为文件不在当前文件夹中,必须提供一个完整的路径说明(绝对的或相对的).

禄丰县18959368303： VB中怎么判断一个文件夹是否存在? - ？
盈芸盐酸： 比如你的文件为＂d:\111＂ 则可用如下方法判断 dim file1$,yf as boolean file1=＂d:\111＂ set fso=createobject(＂scripting.filesystemobject＂) yf=fso.folderexists(file1) 若yf=true则为文件夹,否则为文件.不管是隐藏的是文件还是文件夹都可确定.

禄丰县18959368303： VB怎么判断一个文件是否存在? - ？
盈芸盐酸： if dir(＂XX文件＂)＂＂ then print ＂存在＂ else print ＂不存在＂