<!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>