The VBA code provides two functions to list files within a folder:
1. ListFilesInFolder function lists all files in the specified folder only and does not include files in subfolders.
2. GetFilesInFolder function lists all files in the specified folder and subfolders using a recursive call to traverse the folder structure and identify files in each subfolder.
The VBA code provides two functions to list files within a folder:
1. ListFilesInFolder function lists all files in the specified folder only and does not include files in subfolders.
2. GetFilesInFolder function lists all files in the specified folder and subfolders using a recursive call to traverse the folder structure and identify files in each subfolder.
The VBA code provides two functions to list files within a folder:
1. ListFilesInFolder function lists all files in the specified folder only and does not include files in subfolders.
2. GetFilesInFolder function lists all files in the specified folder and subfolders using a recursive call to traverse the folder structure and identify files in each subfolder.
The VBA code provides two functions to list files within a folder:
1. ListFilesInFolder function lists all files in the specified folder only and does not include files in subfolders.
2. GetFilesInFolder function lists all files in the specified folder and subfolders using a recursive call to traverse the folder structure and identify files in each subfolder.
Download as DOCX, PDF, TXT or read online from Scribd
Download as docx, pdf, or txt
You are on page 1/ 4
Sub MainList()
'Updateby20150706 Set folder = Application.FileDialog(msoFileDialogFolderPicker) If folder.Show <> -1 Then Exit Sub xDir = folder.SelectedItems(1) Call ListFilesInFolder(xDir, True) End Sub Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean) Dim xFileSystemObject As Object Dim xFolder As Object Dim xSubFolder As Object Dim xFile As Object Dim rowIndex As Long Set xFileSystemObject = CreateObject("Scripting.FileSystemObject") Set xFolder = xFileSystemObject.GetFolder(xFolderName) rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1 For Each xFile In xFolder.Files Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name rowIndex = rowIndex + 1 Next xFile If xIsSubfolders Then For Each xSubFolder In xFolder.SubFolders ListFilesInFolder xSubFolder.Path, True Next xSubFolder End If Set xFile = Nothing Set xFolder = Nothing Set xFileSystemObject = Nothing End Sub Function GetFileOwner(ByVal xPath As String, ByVal xName As String) Dim xFolder As Object Dim xFolderItem As Object Dim xShell As Object xName = StrConv(xName, vbUnicode) xPath = StrConv(xPath, vbUnicode) Set xShell = CreateObject("Shell.Application") Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode)) If Not xFolder Is Nothing Then Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode)) End If If Not xFolderItem Is Nothing Then GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8) Else GetFileOwner = "" End If Set xShell = Nothing Set xFolder = Nothing Set xFolderItem = Nothing End Function i) VBA code to List all files within a Folder Only Copy and Paste the below Code and this will list down the list of all the files inside the folder. This will list down all the files only in the specified folder. If there are other files which are there in some other Sub-folders.
Sub GetFilesInFolder(SourceFolderName As String)
'--- For Example:Folder Name= "D:\Folder Name\"
Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.folder, SubFolder As Scripting.folder Dim FileItem As Scripting.File
Set FSO = New Scripting.FileSystemObject
Set SourceFolder = FSO.GetFolder(SourceFolderName)
'--- This is for displaying, whereever you want can be configured
r = 14 For Each FileItem In SourceFolder.Files Cells(r, 2).Formula = r - 13 Cells(r, 3).Formula = FileItem.Name Cells(r, 4).Formula = FileItem.Path Cells(r, 5).Formula = FileItem.Size Cells(r, 6).Formula = FileItem.Type Cells(r, 7).Formula = FileItem.DateLastModified Cells(r, 8).Formula = "=HYPERLINK(""" & FileItem.Path & """,""" & "Click Here to Open" & """)"
r = r + 1 ' next row number
Next FileItem
Set FileItem = Nothing
Set SourceFolder = Nothing Set FSO = Nothing End Sub
ii) VBA code to List all files within a Folder
and sub-folders as well Copy and Paste the below Code and this will list down the list of all the files inside the folder as well as sub-folders. If there are other files which are there in some other Sub-folders then it will list down all files from each and Every Folders and Sub-folders.
Sub GetFilesInFolder(SourceFolderName As String, Subfolders As Boolean)
'--- For Example:Folder Name= "D:\Folder Name\" and Flag as Yes or No
Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.folder, SubFolder As Scripting.folder Dim FileItem As Scripting.File 'Dim r As Long Set FSO = New Scripting.FileSystemObject Set SourceFolder = FSO.GetFolder(SourceFolderName)
'--- This is for displaying, whereever you want can be configured
r = 14 For Each FileItem In SourceFolder.Files Cells(r, 2).Formula = r - 13 Cells(r, 3).Formula = FileItem.Name Cells(r, 4).Formula = FileItem.Path Cells(r, 5).Formula = FileItem.Size Cells(r, 6).Formula = FileItem.Type Cells(r, 7).Formula = FileItem.DateLastModified Cells(r, 8).Formula = "=HYPERLINK(""" & FileItem.Path & """,""" & "Click Here to Open" & """)"
r = r + 1 ' next row number
Next FileItem
'--- This is the Function to go each and Every Folder and get the Files. This is a Nested-Function Calling.
If Subfolders = True Then
For Each SubFolder In SourceFolder.Subfolders ListFilesInFolder SubFolder.Path, True Next SubFolder End If
Set FileItem = Nothing
Set SourceFolder = Nothing Set FSO = Nothing End Sub
