打开文件夹可以用DIRLISKBOX控件啊! Private Sub Dir_Change() Dim intI As Integer Me.File.Path = Me.Dir.Path End Sub
Private Sub Driver_Change() Me.Dir.Path = Me.Driver.Drive End Sub