代码：Private Sub Combo1_Click()
With Dir1
.Path = Combo1.Text
End With
End SubPrivate Sub Form_Load()
With Combo1
.AddItem "C:\", 0: .AddItem "D:\", 0: .AddItem "E:\", 0: .ListIndex = 0
End With
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024