I found this recursive file search syntax, and I was wondering if there was a way to set folders to be ignored. For example, ignore the folder R:\admin or R:\administrator
Code:
Option Compare Database
Option Explicit
Sub ScanTablesWriteDataToText()
Dim Fileout AsObject
Dim fso AsObject
Dim objFSO AsObject
Dim accapp As Access.Application
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim colFiles As Collection
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objRegExp AsObject
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Pattern =".jpg"
objRegExp.IgnoreCase =True
Set colFiles =New Collection
RecursiveFileSearch "R:\", objRegExp, colFiles, objFSO
ForEach f In colFiles
'do something
Next
Set objFSO =Nothing
Set objRegExp =Nothing
EndSub
Sub RecursiveFileSearch(ByVal targetFolder AsString,ByRef objRegExp AsObject, _
ByRef matchedFiles As Collection,ByRef objFSO AsObject)
Dim objFolder AsObject
Dim objFile AsObject
Dim objSubFolders AsObject
Set objFolder = objFSO.GetFolder(targetFolder)
ForEach objFile In objFolder.files
If objRegExp.test(objFile)Then
matchedFiles.Add (objFile)
EndIf
Next
Set objSubFolders = objFolder.Subfolders
ForEach objSubfolder In objSubFolders
RecursiveFileSearch objSubfolder, objRegExp, matchedFiles, objFSO
Next
Set objFolder =Nothing
Set objFile =Nothing
Set objSubFolders =Nothing
EndSub
Link http://vba-tutorial.com/recursive-di...x-file-search/