Search results for query: *

Thank you so much I am back on track much appreciated.

Hi are you telling me if I remove the linking with GUI and add the below in global decoration. don't I need to do more? just reference ExcelApp when ever I need when doing excel automation. ' Use current installed version of Excel Dim ExcelApp As Object Set ExcelApp =...

Hi How would I do that do I do that after the access starts. don't I need to remove broken links. Thanks

Hi I am trying to check if there is any broken references when access starts as the reference changes in different version of Access. The code works through ok but it does not remove the missing/broken references. When I debug nothing is shown it’s just blank in the debug.print. Any help...

Again thank you very much strongm.

...Set colEmptyFolders = New Collection ' place path and file pattern here. 'if I need to limit sub-folder search (FindFile "f:\test", "*.txt", 20) FindFile "C:\TestExcel", "*.xlsx" Debug.Print "Found colFoundFiles " & colFoundFiles.Count & " files." For...

Hi trevil620 & strongm strange I get permission denied with strongm code. I must be doing something wrong? I really hope I can get both codes to work with your help. again thank you to both for your valuable time and effort very much appriciated. Thanks

Hi strongm Thank you for providing this code for me to have a look much appreciate it. As soon I click search that runs “MainExample” I get an error straight away: Error: RunTime Error 70 – Permission denied The error occurs in function ‘RecurseFolder” in the following code: I beleave its...

...Set colFoundFiles = New Collection Set colEmptyFolders = New Collection blnFileIsFound = False RecursiveDir colFiles, "C:\TestExcel\", "*.xls", True ' Below needs to handle blnFileIsFound = true and false at the same time. I Cant seem to fix and place inside the for condition...

...colFoundFiles = New Collection Set colEmptyFolders = New Collection blnFileIsFound = False RecursiveDir colFiles, "C:\Users\PUser\Documents\", "*.xls", True ' Below needs to handle blnFileIsFound = true and false at the same time. I Cant seem to fix and place inside the for condition...

...colFoundFiles = New Collection Set colEmptyFolders = New Collection blnFileIsFound = False RecursiveDir colFiles, "C:\Users\PUser\Documents", "*.xls", True Debug.Print "" Debug.Print "Found colFiles.Count " & colFiles.Count & " files." 'Display list of all files found - including the...

...Set colFoundFiles = New Collection Set colEmptyFolders = New Collection blnFileIsFound = False RecursiveDir colFiles, "C:\Documents", "*.xls", True Debug.Print "Found colFiles.Count " & colFiles.Count & " files." Debug.Print "Found colEmptyFolders.Count " & colEmptyFolders.Count & "...

Andrezejek, thank you for taking the time to answer I appreciate it.

Trevil620, thank you very much for the time you have taken to help me with your knowledge. I appreciate it very much. It has help solve my problem. Thank you

...Dim colFiles As New Collection Dim vFile As Variant Dim blnFileIsFound As Boolean blnFileIsFound = False RecursiveDir colFiles, "P:", "*ProjectManagement.xlsx", True ' Below needs to handle blnFileIsFound = true and false at the same time. I Cant seem to fix and place inside the for...

I am glad I did not offend u. Miss understanding on my part. Thanks

Thanks will add error trapping when I get the thing working. The the stuff I mean above code section calling the search placed above at 9:58. If not blnfileisfound then MSGbox .... End if Where do I place it to display it every time file not found like the file found. Hope that is clear

Hi Andy I will change that file name and remove the & and put and to remove the and. Do u think its worth it to add error trapping What about the other stuff. Andy what do u mean u checked this and that confirms your worry. If that is about me I am in uk and I am currently working just having...

Hi The values for: as you see it has so many nested subfolders strFolder: P:\ZI0902_Main\Operations Folder\Deployments\Deployment Requests 2009\Completed ICCAT trips\Request_048_Tuna_Princess\Trip Outputs\Deployment_Docs\Training Slides_August 2007\4. Background Longline & Transhipment...

Hi I have found that it breaks on the foloowing line: If (GetAttr(strFolder & strTemp) And vbDirectory) <> 0 Then And the folloiwng needs to be in the look as wel: If Not blnFileIsFound Then MsgBox "File Not Found." End If Sorry for the too much info. Thank you again very much