[AccessD] Grab filenames

XP, but I haven't done as much programming in XP as I did in 97.

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


What version of Access are you using?  It wasn't available in 97, but you
did have access to the FileSystem object through VBA.
 
Charlotte Foust

-----Original Message-----
From: Roz Clarke [mailto:roz.clarke at donnslaw.co.uk] 
Sent: Monday, May 19, 2003 7: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 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030519/1fb7a7f0/attachment-0001.html>