Private Sub Form_Load() Dim a As String a = Dir("d:\") Do While a <> "" List1.AddItem a a = Dir Loop End Sub
2,462
社区成员
10,807
社区内容
加载中
试试用AI创作助手写篇文章吧