Question

怎样用vb判断指定位置是否存在指定文件

Answer 1

VB使用Dir函数判断制定文职是否存在指定文件。

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

Dir 函数示例

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

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

Answer 2

If Dir("d:\123.txt") <> "" Then MsgBox "文件存在"
If Dir("d:\123.txt", vbHidden) <> "" Then MsgBox "隐藏文件存在"

追问

怎么设置存在这个文件就打开form1,没有就打开form2呢

追答

If Dir("d:\123.txt") "" Then
form1.show
else
form2.show
end if
如果你是要根据这个选择启动窗体的话，就不应该这样做 。
应该：
1、新建一个模块，在模块里面加入一个main过程，一定要是 名称为 main的过程！！然后将上面代码复制进这个过程。
2、完成后，打开工程属性，设置启动窗体为 main。

追问

模块里面加入一个main过程 怎么做啊,我才学的vb

追答