VB中检测文件夹是否存在

if dir(<文件夹>,vbdirectory)= "" then
不存在
else
存在
end if

if dir("c:\1.exe")<> "" then
存在
else
不存在
end if

那是文件,不是文件夹.

用FileSystemObject 对象的FolderExists 方法

******************************************
FolderExists 方法

描述

如果指定的文件夹存在返回 True，不存在返回 False。

语法

object.FolderExists(folderspec)

FolderExists 方法语法有如下几部分：

部分 描述
object 必需的。始终是一个 FileSystemObject 对象的名字。
folderspec 必需的。要确定是否存在的文件夹名字。如果认为文件夹不在当前文件夹中，必须提供一个完整的路径说明（绝对的或相对的）。

在窗体中放一个Command1和一个Text1,添加如下代码:
Private Sub Command1_Click()
Dim s As String
s = Text1.Text
If Dir(s, vbDirectory) = "" Then
Print "不存在"
Else
Print "存在"
End If
End Sub
这样可以直接在Text1中输入要测试的文件夹或文件路径,再点击按钮,即可以实现检测文件夹或文件是否存在,光盘驱动器目录除外.