Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now
Public Sub buildTablesAndTimeStamps() ' Dim pathAndMDBName As String Dim MDBName As String Dim currPath As String Dim linkedDrive As String Dim linkedPath As String ' linkedPath = getLinkedPath linkedDrive = Mid(linkedPath, 1, 1) ' currPath = GetProcMDBPath currPath = linkedDrive & Mid(currPath, 2) ' ClearTable ("tblCheckTableTimeStamps") ' Dim MySearch As Office.FileSearch Dim intI As Integer, strList As String, strPath As String strPath = currPath '"C:\" Set MySearch = Application.FileSearch With MySearch .NewSearch 'initialize search (clear old settings) .LookIn = strPath 'start point for search .FileName = "CI*.MDB" 'file name (takes wildcards) .SearchSubFolders = False 'scan folders inside first folder .Execute '.FoundFiles contains the list of filenames found as a collection For intI = 1 To .FoundFiles.Count pathAndMDBName = .FoundFiles(intI) MDBName = Trim(Replace(pathAndMDBName, strPath, "")) ' ' Do not add 'Over' tables since they aren't updated every day anyway ' If InStr(1, MDBName, "over") > 1 Then Else addAuditTable pathAndMDBName, MDBName End If 'Debug.Print .FoundFiles(intI); " "; MDBName Next intI End With ' End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.