[AccessD] Grab filenames

Actually I want to specify the filetype tho I don't care about the name.

I'm running a chunk of code now but it's being going 10 minutes and I'm not
sure what it's doing 'cause I forgot to turn on the immediate window. Duh!

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com] 
Sent: 19 May 2003 16:43
To: accessd at databaseadvisors.com
Subject: RE: [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
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com