[AccessD] Grab filenames

Roz,

Please let us know if this attached code works for you.  I've been trying the FileSearch object since Susan H. and Charlotte mentioned it a couple of weeks ago but I keep crashing on the ".Filename =" line (Invalid procedure call error).

Thanks, 

Jim DeMarco 
Director of Product Development 
HealthSource/Hudson Health Plan 

-----Original Message-----
From: Roz Clarke [mailto:roz.clarke at donnslaw.co.uk]
Sent: Monday, May 19, 2003 11:25 AM
To: 'accessd at databaseadvisors.com'
Subject: RE: [AccessD] Grab filenames


thanks Charlotte, this looks great. I had never heard of the filesearch object! learn something new every day :)

Roz
-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com] 
Sent: 19 May 2003 16:03
To: accessd at databaseadvisors.com
Subject: RE: [AccessD] Grab filenames


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.

Sub SimpleSearch()
  'Perform simple search using the FileSearch object,\.
  Dim varItem as Variant
  With Application.Filesearch
    .NewSearch
    .FileName = "*.ini"
    .LookIn = "C:\Windows"
    .Execute
    For Each varItem in .foundFiles
      Debug.print varItem
    Next varItem
  End With
End Sub

Charlotte Foust
-----Original Message-----
From: Roz Clarke [mailto:roz.clarke at donnslaw.co.uk] 
Sent: Monday, May 19, 2003 6:54 AM
To: 'accessd at databaseadvisors.com'
Subject: [AccessD] Grab filenames


Hi all 
Does anyone have a code snippet for pulling file search results into Access? 
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*!!!
TIA 
Roz 


***********************************************************************************
"This electronic message is intended to be for the use only of the named recipient, and may contain information from Hudson Health Plan (HHP) that is confidential or privileged.  If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution or use of the contents of this message is strictly prohibited.  If you have received this message in error or are not the named recipient, please notify us immediately, either by contacting the sender at the electronic mail address noted above or calling HHP at (914) 631-1611. If you are not the intended recipient, please do not forward this email to anyone, and delete and destroy all copies of this message.  Thank You".
***********************************************************************************