改变当前盘符
Private Sub Command1_Click()
ChDrive Drive1.List(Drive1.ListIndex)
Unload Me
Load Form2
Form2.Show
Drive1.Refresh
End Sub
改变当前盘符
Private Sub Command1_Click()
ChDrive Drive1.List(Drive1.ListIndex)
Unload Me
Load Form2
Form2.Show
Drive1.Refresh
End Sub