在线等待--100分 用fso对象模型查找指定路径下是否存在一个名叫4235668的文件夹

Question

dim myname as string
'mypath 表示你指定的目录 
myname = Dir(mypath, vbDirectory)  '寻找第一个目录
Do While myname <> ""           '开始循环
             ' 使用位比较来确定 MyName 代表一目录。
 If (GetAttr(mypath & myname) And vbDirectory) = vbDirectory Then
         if myname="112344" then 
              msgbox "paht is exist"
              exit do
          endif
  End If
    myname = Dir   '查找下一个目录
Loop
if myname=null then msgbox "path is not exist"
这段代码不知道可以不可以
你试一下

Answer 1

Dim fs As FileSystemObject
    If fs.FolderExists(sFolderPath) = False Then
        MsgBox "没有找到指定文件夹！"
    Else
        MsgBox "找到指定文件夹！"
    End If

Answer 2

FolderExists 方法
         描述如果指定的文件夹存在返回 True，不存在返回 False。语法object.FolderExists(folderspec) FolderExists 方法语法有如下几部分：部分 描述 
object 必需的。始终是一个 FileSystemObject 对象的名字。 
folderspec 必需的。要确定是否存在的文件夹名字。如果认为文件夹不在当前文件夹中，必须提供一个完整的路径说明（绝对的或相对的）。 

Answer 3

Private Sub Command1_Click()
    Dim fs As Scripting.FileSystemObject
    Set fs = New FileSystemObject
    Dim dd As Boolean
    
    dd = fs.FolderExists(你的路径)
    
    If dd Then
        MsgBox "zhaodaole "
    End If
End Sub

Answer 4

dim oFSO as filesystemobject
set ofso=createobject("scripting.filesystemobject")
if ofso.folderexists(C:\Program Files\Tencent\4235668)=true then
.
.
.
end if