Rocky Smolin - Beach Access Software
bchacc at san.rr.com
Tue May 20 13:26:52 CDT 2003
Just got an email from another list member to whom I sent a copy and he
reports that it works straight up. Don't know what Access version or OS
he's using.
Rocky
----- Original Message -----
From: "Charlotte Foust" <cfoust at infostatsystems.com>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, May 20, 2003 11:00 AM
Subject: RE: [AccessD] Grab Filenames
> I'm running OXP and I don't even find the Extensibility in my list of
> references, but it shouldn't make any difference. How annoying,
> especially since I know I've used this in the past with A2k.
>
> Charlotte Foust
>
> -----Original Message-----
> From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com]
> Sent: Tuesday, May 20, 2003 8:52 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Grab Filenames
>
>
> I've got a couple of references checked which you may not have although
> it should fail to compile without them?
>
> Windows Script Host Object Model
> VBA Extensibility 5.3
> OLE Automation
> Office 9.0 Object Library
> DAO 3.6 Object Library
> Access 9.0 Object Library
> VB for A
>
> Is varPicturePath returning the right value?
>
> It's also set up to retrieve only files with .jpg extension.
>
> .FileName = "*.jpg"
>
>
> Rocky
>
> ----- Original Message -----
> From: "Charlotte Foust" <cfoust at infostatsystems.com>
> To: <accessd at databaseadvisors.com>
> Sent: Tuesday, May 20, 2003 8:47 AM
> Subject: RE: [AccessD] Grab Filenames
>
>
> > 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
> > _______________________________________________
> > 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
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>