<!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=881574315-19052003><FONT face=Arial color=#0000ff size=2>XP,
but I haven't done as much programming in XP as I did in 97.</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:35<BR><B>To:</B> accessd@databaseadvisors.com<BR><B>Subject:</B> RE:
[AccessD] Grab filenames<BR><BR></FONT></DIV>
<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></BLOCKQUOTE></BODY></HTML>