1 Private Sub Command()
2 Dim dd As String
3 dd = Dir("d:\*", vbDirectory)
4 Do
5 MsgBox dd
6 dd = Dir
7 Loop Until Len(dd) = 0
8 End Sub
相关文章：
相似解决方案
热门标签
1 Private Sub Command()
2 Dim dd As String
3 dd = Dir("d:\*", vbDirectory)
4 Do
5 MsgBox dd
6 dd = Dir
7 Loop Until Len(dd) = 0
8 End Sub
相关文章：