[AccessD] Grab filenames

Oops, you're right.  I forgot about that problem.  But Roz is just
trying to get all the filenames in the folder, so she doesn't need that
line anyhow.

Charlotte Foust

-----Original Message-----
From: Jim DeMarco [mailto:Jdemarco at hshhp.org] 
Sent: Monday, May 19, 2003 7:37 AM
To: accessd at databaseadvisors.com
Subject: RE: [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".
************************************************************************
***********

_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com