GetAllFiles(ByVal iFolder, arr, i&) Dim iFile, iSubFolder For Each iFile In iFolder.Files If i > UBound(arr) Then ReDim Preserve arr(1 To 1000 + i) arr(i) = iFile.Path i = i + 1 Next If iFolder.SubFolders.Count = 0 Then Exit Sub For Each iSubFolder In iFolder....
' For i = 1 To lngFileCnt ' Debug.Print arrFiles(i) ' Next i EndSub SubGetAllFiles(ByValobjFolderAsObject) DimobjFileAsObject' File DimobjSubFolderAsObject' Folder DimarrFiles() DimlngFileCntAsLong DimiAsLong ReDimarrFiles(1To1000) lngFileCnt = 0 ForEachobjFileInobjFolder.Files ln...
'输入文件夹,返回数组=文件夹包含子文件夹列表 ' 用法:arr=GetAllFolderFiles(路径,2)参数Ndir=1不包含子目录,Ndir>1包含子目录 Function GetAllFolderFiles(sPath As Variant, Optional Ndir As Long = 0) Dim sDic As Object, sFso As Object, sFld As Object, sFiles As Object, F As Object Dim n...
'输入文件夹,返回数组=文件夹(含子文件夹)的路径 Function GetAllFolderPath(sPath As String) Dim aRes, sarr, sDic, sFso, F, Mat Dim FileName$, n&, k& On Error Resume Next Set sDic = CreateObject("Scripting.Dictionary") Set sFso = CreateObject("Scripting.FileSystemObject") sDic(sPath) ...
PublicSubtest()DimstrPathAsStringDimfsoAsObjectDimobjFolderAsObjectSetfso=CreateObject("Scripting.FileSystemObject")lngSeqNo=0strPath="C:\Users\Administrator\Documents\Tencent Files\13685293"SetobjFolder=fso.GetFolder(strPath)GetAllFiles objFolder' ReDim Preserve arrFiles(1 To lngFileCnt)' For i = ...
METHOD 1. Open all Excel files in a folder at once using VBA VBA SubOpen_all_excel_files_in_folder() DimFoldPathAs String DimDialogBoxAsFileDialog DimFileOpenAs String On Error Resume Next SetDialogBox = Application.FileDialog(msoFileDialogFolderPicker) ...
14、y & f) ' 获得下个文件 f = Dir LoopEnd Sub-第三种:Option ExplicitSub GetAllFiles() Dim Directory As String Dim Ans As Variant Di15、m usedtime As Double Ans = MsgBox("琌钡旧嘿匡拒隔畖", vbYesNo + vbQuestion) '矗匡拒钡旧匡兜 If Ans = vbNo Then With Application.FileDialog...
ForEachFileInallFiles Cells(LastRowB,2).Value=File.Path LastRowB=LastRowB+1 Next Nexti EndSub '''获取文件夹列表 SubFsoGetFolderList() DimrowIndexAsInteger DimfolderPathAsString '''调用函数获取主文件夹目录 folderPath=GetMainDirectory(msoFileDialogFolderPicker) rowIndex=1 Columns(1).Clear Do ...
GetAllFiles(ByVal iFolder, Arr, i&) Dim iFile, iSubFolder For Each iFile In iFolder.Files If i > UBound(Arr) Then ReDim Preserve Arr(1 To 1000 + i) Arr(i) = iFile.Path i = i + 1 Next If iFolder.SubFolders.Count = 0 Then Exit Sub For Each iSubFolder In iFolder....
Set objFolder = objFSO.GetFolder(ThisWorkbook.FullName) 'Get the folder object XSet objFolder = objFSO.GetFolder(ThisWorkbook.FullName).path XIt is part of this code I am trying to adaptprettyprint Kopieren Sub ListFiles() 'http://software-solutions-online.com/list-all-files-in-a-folder...