Private Sub Command1_Click()
Dim i As String
i = ""
MyPath = "E:\BitComet"
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> "" '开始循环。'跳过当前的目录及上层目录。
If MyName <> "." And MyName <> ".." Then '使用位比较来确定MyName代表一目录。
If GetAttr(MyPath & "\" & MyName) = vbDirectory Then '运行不通过，找不到文件
Text1.Text = MyName & i
i = MyName
End If
End If
MyName = Dir
Loop
End Sub

我想把BITCOMET中的文件夹都在TXTT1中显示出来，但If GetAttr(MyPath & "\" & MyName) = vbDirectory Then 不能通过运行，原程序是：
If(GetAttr(MyPath&MyName)AndvbDirectory =vbDirectoryThen，照样不能通过。

请高手指点！