1 '显示打开文件夹对话框 2 With Application.FileDialog(msoFileDialogFolderPicker) 3 .Show 4 If .SelectedItems.Count = 0 Then Exit Sub '未选择文件夹 5 strFolder = .SelectedItems(1) 6 End With 7 8 '获取文件夹中的所有文件列表 9 varFileList = fcnGetFileList(strFolder) 10 11 If Not IsArray(varFileList) Then 12 MsgBox "未找到文件", vbInformation 13 Exit Sub 14 End If