"vba filter file list folder" Code Answer's
You're definitely familiar with the best coding language VBA that developers use to develop their projects and they get all their queries like "vba filter file list folder" answered properly. Developers are finding an appropriate answer about vba filter file list folder related to the VBA coding language. By visiting this online portal developers get answers concerning VBA codes question like vba filter file list folder. Enter your desired code related query in the search bar and get every piece of information about VBA code related question on vba filter file list folder.
vba filter file list folder
' List of complete path of files in folder / subfolders
' Needs to add "Microsoft Scripting Runtime" reference to your file
Sub FolderFilesPath(ByVal pFolder As String, ByRef pColFiles As Collection, _
Optional ByVal pGetSubFolders As Boolean, Optional ByVal pFilter As Collection)
Dim sFolder As String
Dim oFSO As New FileSystemObject
Dim oFolder, oSubFolder As Folder
Dim oFile As File
sFolder = IIf(Right(pFolder, 1) <> "\", pFolder & "\", pFolder)
Set oFolder = oFSO.GetFolder(sFolder)
If Not ExistsInCollection(pFilter, sFolder) Then
For Each oFile In oFolder.Files
pColFiles.Add oFile
Next oFile
If pGetSubFolders Then
For Each oSubFolder In oFolder.SubFolders
FolderFilesPath oSubFolder.Path, pColFiles, pGetSubFolders,
pFilter
Next
End If
End If
End Sub
' Vba collection contains
Function ExistsInCollection(col As Collection, key As Variant) As Boolean
On Error GoTo err
ExistsInCollection = True
IsObject (col.Item(key))
Exit Function
err:
ExistsInCollection = False
End Function
'------------------------------------------------------------------------------
Sub TestMe()
Dim colFiles As New Collection, sFilePath As Variant
Dim colExcludedFolders As New Collection
With colExcludedFolders
.Add "C:\test with spaces\subfolder 1\", "C:\test with spaces\subfolder 1\"
End With
FolderFilesPath ThisWorkbook.Path, colFiles, True, colExcludedFolders
' colFiles contains filtered files
For Each sFilePath In colFiles
With sFilePath
Debug.Print .Path & " - " & .Name & " - " & .DateCreated
End With
Next sFilePath
End Sub
Source: stackoverflow.com
All those coders who are working on the VBA based application and are stuck on vba filter file list folder can get a collection of related answers to their query. Programmers need to enter their query on vba filter file list folder related to VBA code and they'll get their ambiguities clear immediately. On our webpage, there are tutorials about vba filter file list folder for the programmers working on VBA code while coding their module. Coders are also allowed to rectify already present answers of vba filter file list folder while working on the VBA language code. Developers can add up suggestions if they deem fit any other answer relating to "vba filter file list folder". Visit this developer's friendly online web community, CodeProZone, and get your queries like vba filter file list folder resolved professionally and stay updated to the latest VBA updates.