在VB中编程中,经常需要判断一个文件是否存在,以便执行相应的操作,这可用下列语句进行判断 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 但如果判断的文件是隐藏文件,上面的语句则无法判断出来,这时就需要加上后面的可选项目,例如 判断C盘根目录下是否有隐藏文件command.com,就用下面的源代码: if dir("c:command.com",vbhidden)<>"" then msgBox"Found c:command.com" end if 判断文件夹是否存在,可用下列语句: dir(文件夹路径,vbDirectory) <>"" 例如,要判断文件夹c:aaa是否正在,则代码如下: if Dir("c:aaa",vbDirectory) <>"" then msgBox"文件夹:c:aaa 存在!" end if