<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=US-ASCII">
<TITLE>Message</TITLE>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY>
<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></BODY></HTML>