<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Message</TITLE>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2800.1170" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=422563115-19052003><FONT face="Comic Sans MS" color=#0000ff
size=2>What version of Access are you using? It wasn't available in 97,
but you did have access to the FileSystem object through
VBA.</FONT></SPAN></DIV>
<DIV><SPAN class=422563115-19052003><FONT face="Comic Sans MS" color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=422563115-19052003><FONT face="Comic Sans MS" color=#0000ff
size=2>Charlotte Foust</FONT></SPAN></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV></DIV>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left><FONT
face=Tahoma size=2>-----Original Message-----<BR><B>From:</B> Roz Clarke
[mailto:roz.clarke@donnslaw.co.uk] <BR><B>Sent:</B> Monday, May 19, 2003 7:25
AM<BR><B>To:</B> 'accessd@databaseadvisors.com'<BR><B>Subject:</B> RE:
[AccessD] Grab filenames<BR><BR></FONT></DIV>
<DIV><SPAN class=559292415-19052003><FONT face=Arial color=#0000ff
size=2>thanks Charlotte, this looks great. I had never heard of the filesearch
object! learn something new every day :)</FONT></SPAN></DIV>
<DIV><SPAN class=559292415-19052003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=559292415-19052003><FONT face=Arial color=#0000ff
size=2>Roz</FONT></SPAN></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV></DIV>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left><FONT
face=Tahoma size=2>-----Original Message-----<BR><B>From:</B> Charlotte
Foust [mailto:cfoust@infostatsystems.com] <BR><B>Sent:</B> 19 May 2003
16:03<BR><B>To:</B> accessd@databaseadvisors.com<BR><B>Subject:</B> RE:
[AccessD] Grab filenames<BR><BR></FONT></DIV>
<DIV><SPAN class=910080015-19052003><FONT face="Comic Sans MS" color=#0000ff
size=2>I think you'd have to do it with a FileSearch and write the results
of each FoundFiles item into the table. Here's a FileSearch
sample.</FONT></SPAN></DIV>
<DIV><SPAN class=910080015-19052003><FONT face="Comic Sans MS" color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=910080015-19052003><FONT face="Comic Sans MS" color=#0000ff
size=2>Sub SimpleSearch()<BR> 'Perform simple search using the
FileSearch object,\.<BR> Dim varItem as Variant<BR> With
Application.Filesearch<BR>
.NewSearch<BR> .FileName = "*.ini"<BR>
.LookIn = "C:\Windows"<BR> .Execute<BR>
For Each varItem in .foundFiles<BR>
Debug.print varItem<BR> Next varItem<BR> End
With<BR>End Sub</FONT></SPAN></DIV>
<DIV><SPAN class=910080015-19052003><FONT face="Comic Sans MS" color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=910080015-19052003><FONT face="Comic Sans MS" color=#0000ff
size=2>Charlotte Foust</FONT></SPAN></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV></DIV>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left><FONT
face=Tahoma size=2>-----Original Message-----<BR><B>From:</B> Roz Clarke
[mailto:roz.clarke@donnslaw.co.uk] <BR><B>Sent:</B> Monday, May 19, 2003
6:54 AM<BR><B>To:</B> 'accessd@databaseadvisors.com'<BR><B>Subject:</B>
[AccessD] Grab filenames<BR><BR></FONT></DIV>
<P><FONT face=Arial size=2>Hi all</FONT> </P>
<P><FONT face=Arial size=2>Does anyone have a code snippet for pulling
file search results into Access?</FONT> </P>
<P><FONT face=Arial size=2>What I want is to pull the filename, path &
size of all files of a given type on a particular drive, including those
in subfolders, into a table. I need to do it *fast*!!!</FONT></P>
<P><FONT face=Arial size=2>TIA</FONT> </P>
<P><FONT face=Arial size=2>Roz</FONT>
</P></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>