程序运行不过
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,照样不能通过。
请高手指点!