[AccessD] Grab Filenames

Charlotte Foust cfoust at infostatsystems.com
Tue May 20 10:47:38 CDT 2003


That's interesting, Roz.  I just pulled your code out, changed the path
to point to a folder on my machine with mdbs in it, and got a zero for
the FoundFiles count.  And I had the same problem with Rocky's sample
database.  It has to be a setting that is causing the failures some of
us are experiencing.  Now, if we could just figure out what it is ...
:o{

Rocky, any suggestions?

Charlotte Foust

-----Original Message-----
From: Roz Clarke [mailto:roz.clarke at donnslaw.co.uk] 
Sent: Tuesday, May 20, 2003 7:27 AM
To: 'accessd at databaseadvisors.com'
Subject: [AccessD] Grab Filenames



Hmm. I ran a variation of Charlotte's code (informed by Rocky's, but
Charlotte's was closer to what I think I want) that looks like this:

  Dim varItem As Variant
  With Application.FileSearch
    .NewSearch
    .SearchSubFolders = True
    .FileName = "*.mdb"
    .LookIn = "G:\"
    .Execute
    'Debug.Print .FoundFiles.Count
    DoCmd.SetWarnings False
    For Each varItem In .FoundFiles
        strSQL = "INSERT INTO tblFiles (FileInfo) VALUES ( '" & varItem
& "' )"
        'Debug.Print strSQL
        DoCmd.RunSQL strSQL
    Next varItem
  End With

This gets me the filepath, with name, though not the file size or any
date info. But that's fine, I can live with that.

What's baffling me is that the above drive has 280 .mdb files on it
(yes, I know that's ridiculous, which is the point of the exercise) but
the .FoundFiles.count only returns 152. It doesn't seem to have looked
in any sub folders beginning with 'R'. Is this the sort of whacky
behaviour you guys have experienced?!

Roz

-----Original Message-----
From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com] 
Sent: 20 May 2003 15:21
To: Roz Clarke
Subject: Re: Your last E-Mail to donnslaw.co.uk was corrupt of
unreadable. Find Files db


Was curious about the code.  Standing by...

Rocky

----- Original Message ----- 
From: "Roz Clarke" <roz.clarke at donnslaw.co.uk>
To: "'Rocky Smolin - Beach Access Software'" <bchacc at san.rr.com>
Sent: Tuesday, May 20, 2003 6:32 AM
Subject: RE: Your last E-Mail to donnslaw.co.uk was corrupt of
unreadable. Find Files db


> The email or the code?
>
> I got the zip file but I haven't had a chance to try the code out yet
> - spent all day so far on a really nasty bit of data conversion and
> now have
a
> stack of support jobs to do. *sigh*
>
> I'll let you know!
>
> -----Original Message-----
> From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com]
> Sent: 20 May 2003 14:20
> To: Roz Clarke
> Subject: Re: Your last E-Mail to donnslaw.co.uk was corrupt of 
> unreadable. Find Files db
>
>
> did it work?
>
> ----- Original Message -----
> From: "Roz Clarke" <roz.clarke at donnslaw.co.uk>
> To: "'Rocky Smolin - Beach Access Software'" <bchacc at san.rr.com>
> Sent: Tuesday, May 20, 2003 1:00 AM
> Subject: RE: Your last E-Mail to donnslaw.co.uk was corrupt of
> unreadable. Find Files db
>
>
> > cheers
> >
> > -----Original Message-----
> > From: Rocky Smolin - Beach Access Software 
> > [mailto:bchacc at san.rr.com]
> > Sent: 19 May 2003 17:26
> > To: Roz Clarke
> > Subject: Re: Your last E-Mail to donnslaw.co.uk was corrupt of 
> > unreadable. Find Files db
> >
> >
> > Just sent it.  Note in the code that I'm only grabbing files with a 
> > .jpg extension.  But you can change that to whatever you want.
> >
> > Rocky
> >
> > ----- Original Message -----
> > From: "Roz Clarke" <roz.clarke at donnslaw.co.uk>
> > To: "'Rocky Smolin - Beach Access Software'" <bchacc at san.rr.com>
> > Sent: Monday, May 19, 2003 9:11 AM
> > Subject: RE: Your last E-Mail to donnslaw.co.uk was corrupt of
unreadable.
> > Find Files db
> >
> >
> > > I should get zip files OK... Will have to slap our notwork guys
> > >
> > >
> > > Try zora_db at yahoo.com
> > >
> > > -----Original Message-----
> > > From: Rocky Smolin - Beach Access Software 
> > > [mailto:bchacc at san.rr.com]
> > > Sent: 19 May 2003 17:10
> > > To: Roz Clarke
> > > Subject: Fw: Your last E-Mail to donnslaw.co.uk was corrupt of
> > > unreadable. Find Files db
> > >
> > >
> > > Roz:
> > >
> > > Apparently I can't send either MDB or ZIP attachments.  :(
> > >
> > > Do you have another email address that might let these go through?
> > >
> > > Rocky
> > >
> > > ----- Original Message -----
> > > From: "Internet Manager Message Inspector" 
> > > <ted.walsh at donnslaw.co.uk>
> > > To: <bchacc at san.rr.com>
> > > Sent: Monday, May 19, 2003 9:08 AM
> > > Subject: Your last E-Mail to donnslaw.co.uk was corrupt of
> > > unreadable.
> > Find
> > > Files db
> > >
> > >
> > > > The message you sent does not conform with our company 
> > > > electronic communications policy.
> > > >
> > > >
> > > >
> > > > Your message was entitled:  Find Files db
> > > > It was addressed to: roz.clarke at donnslaw.co.uk
> > > > and dated:  Mon, 19 May 2003 09:08:13 -0700
> > > > From IP: 66.75.160.17
> > > >
> > > > The message was redirected for later inspection.
> > > >
> > >
> > >
> >
> >
>
>

_______________________________________________
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


More information about the AccessD mailing list