如何判断一个文件夹是否存在！在线等

Question

Dim s As String
    s = Dir("c:\winnt123", vbDirectory)
    If s = "" Then
        MsgBox "Not Exist"
    Else
        MsgBox "Exist"
    End If

Answer 1

遍历文件夹
http://www.csdn.net/expert/topic/666/666906.xml?temp=.9986231
参考我的例子，用FSO来查，作为文件操作比较好；其实楼上的那个方法也是可以的，不过现在一般用的少了

Answer 2

dir要跟参数,第一个参数是你要早的文件名或目录名,第二个市属性参数,如果省去,默认为找文件.找目录要特别的参数是参见msdn

Answer 3

先引用 Microsoft scripting runtime,然后
Private Sub Command1_Click()
Dim FileManager As New FileSystemObject
If FileManager.FolderExists("c:\vb\") Then
 MsgBox "找到目录"
 Else
 MsgBox "未找到目录"
 End If
 End Sub
这个方法还是楼上的朋友教我的，我觉得不错。