'Check Public Function Check() As Variant On Error GoTo erlb Dim StrDir As String StrDir = ThisWorkbook.Worksheets("Path").Range("B2") objfile = Dir(StrDir & "\*.xlsx") ThisWorkbook.Worksheets("Result&
'显示打开文件夹对话框 With Application.FileDialog(msoFileDialogFolderPicker) .Show Then Exit Sub '未选择文件夹 strFolder = .SelectedItems() End With '获取文件夹中的所有文件列表 varFileList = fcnGetFileList(strFolder) If Not IsArray(varFileList) Then MsgBox "未找到文件", vbInform
System.Diagnostics.Process.Start("Explorer.exe", @"C:\Users\gnt-wangt\Documents\Visual Studio 2010Projects\Portal\Portal\Image\Uploads\ToolsOrPlug"); 第一个参数用什么打开.第二个参数为需要打开文件夹的路径.