<div>
 
use &nbsp;Currentdb.Name to get current access mdb 
 
decent recursive file search code here - adapt to get all listings 
<a href="http://bytes.com/topic/access/answers/209966-recursive-file-search-vba-vs-vb" rel="ugc">http://bytes.com/topic/access/answers/209966-recursive-file-search-vba-vs-vb</a>
</div>

<div>
peter57r 
 
 
there is a good chance the user does not have a previous version and thus would save the user from having to do a Windows File Search. &nbsp; 
 
&nbsp; 
 
 

</div>

<div>
I created a sample access db named search_files.mdb 
 
I created a form &nbsp;named findfiles that has 2 controls 
 
a list box named lstFileName (unbound, row source type = value list) 
 
a command button named cmdFindFile 
 
 
I added the following to the form 
 
 
 
Private Sub cmdFindFile_Click() 
 
dirTest 
 
Me.lstFileName.RowSource = &quot;&quot; 
 
For i = 1 To dlist.Count 
&nbsp; &nbsp; &nbsp;Me.lstFileName.AddItem (dlist(i)) 
Next i 
 
End Sub 
 
 
 
I have a module named search that contains the following: 
 
 
Option Compare Database 
 
Public dlist As New Collection 
 
Sub dirTest() 
 
 
Dim startDir As String 
Dim i As Integer 
 
Set dlist = Nothing 
 
startDir = &quot;D:\&quot; &amp;&nbsp;CurrentProject.Name 
 
Call FillDir(startDir, dlist) 
 
 
End Sub 
 
 
Sub FillDir(startDir As String, dlist As Collection) 
 
' build up a list of files, and then 
' add add to this list, any additinal 
' folders 
 
Dim strTemp As String 
Dim colFolders As New Collection 
Dim vFolderName As Variant 
 
strTemp = Dir(startDir) 
 
Do While strTemp &lt;&gt;&nbsp;&quot;&quot; 
dlist.Add startDir &amp;&nbsp;strTemp 
strTemp = Dir 
Loop 
 
' now build a list of additional folders 
strTemp = Dir(startDir &amp;&nbsp;&quot;*.&quot;, vbDirectory) 
 
Do While strTemp &lt;&gt;&nbsp;&quot;&quot; 
If (strTemp &lt;&gt;&nbsp;&quot;.&quot;) And (strTemp &lt;&gt;&nbsp;&quot;..&quot;) Then 
colFolders.Add strTemp 
End If 
strTemp = Dir 
Loop 
 
' now process each folder (recursion) 
For Each vFolderName In colFolders 
Call FillDir(startDir &amp;&nbsp;vFolderName &amp;&nbsp;&quot;\&quot;, dlist) 
Next vFolderName 
 
End Sub 
 
 
There is a file named search_files.mdb &nbsp;on the root of d: &nbsp;(d:\) 
 
There is a file named search_files.mdb &nbsp;in a folder named access &nbsp;(d:\access) 
 
I was hoping the list box on the form (lstFileName) would contain the following: 
 
d:\search_files.mdb &nbsp; 
d:\access\search_files.mdb &nbsp; 
 
(since these are where the 2 files exist) 
 
 
Instead I'm getting 
 
D:\search_files.mdbsearch_files.mdb 
 
 
 
 
Not sure what I'm missing 
 

</div>

<div>
Ok ... &nbsp;you guys have convinced me to do a windows search. (i'll raise the white flag and cry uncle) 
 
 
Thanks for the posts! 
</div>

<div>
<div class="content wysiwyg-content">
There is an access applicatoin that has been changed multiple times and could potentially exist in multiple folders on a given user's pc 
 
I'm trying to write a function that will do a file search on local hard drives for the current mdb name and display the results in a grid. 
 
Not sure of the best way to do this
</div>
</div>

There is an access applicatoin that has been changed multiple times and could potentially exist in multiple folders on a given user's pc

I'm trying to write a function that will do a file search on local hard drives for the current mdb name and display the results in a grid.

Not sure of the best way to do this

File search/display for all occurrences of Current MDB

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.