'显示打开文件夹对话框

 With Application.FileDialog(msoFileDialogFolderPicker)

 .Show

 If .SelectedItems.Count =  Then Exit Sub '未选择文件夹

 strFolder = .SelectedItems()

 End With

 '获取文件夹中的所有文件列表

 varFileList = fcnGetFileList(strFolder)

 If Not IsArray(varFileList) Then

 MsgBox "未找到文件", vbInformation

 Exit Sub

 End If