Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Function Fill_TempFileNames() 'Dim MySearch As Office.FileSearch Dim intI As Integer, strPath As String strPath = "J:\HR\BENEFITS\OPT OUT CREDIT\SUPPORTING DOCS" Set MySearch = Application.FileSearch With MySearch .NewSearch 'initialize a new search .LookIn = strPath 'starting point for search .FileName = "*.pdf" 'filename...accepts wildcard character .SearchSubFolders = True 'scan folders inside first folder, set to False if not desired .Execute '.FoundFiles will contain the list of PDF files found as a collection For intI = 1 To .FoundFiles.Count DoCmd.SetWarnings False DoCmd.RunSQL "Insert into tbl_TempFileNames(PDF_filename) values ('" & .FoundFiles(intI) & "')" Next intI DoCmd.SetWarnings True End With End Function
|Need ideas on how to better approach the comparison of two different databases tables and show all the differences in a report.||18||60|
|How to split a field into two columns in a Query||6||29|
|MS Access When Filter Removed Error occurs. Where to place the Error handler and what type of Error Handler?||9||4|
|Displaying on a report||2||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!