请问如何判断一个文件夹是否存在（不能用文件对象）100分

Question

=Dir(目录名, vbHidden or VbSystem or vbDirectory)<>""

Answer 1

应用filesystemobject对象
引入micosoft scriping suntime Dim fso As New FileSystemObject
If fso.FileExists(App.Path & "\text.txt") = False then
.................................
end if

Answer 2

Dir$:    ' Remove any existing destination file
    If Len(Dir$(sFileName)) > 0 Then
        Kill sFileName
    End If