摘要： Private Sub Command1_Click() Dim NowPath As String Dim FileArr() As String Dim mFileCount As Long Dim i As Long Dim OrderBy As String Dim orderByConditions As Boolean Dim DriverObject As Object Dim FileObject As Object Dim MyObject As Object Dim HaveFile As Long On Error Resume Next '初始化基本的数据 Li 阅读全文