Charlotte Foust
cfoust at infostatsystems.com
Tue May 20 15:17:12 CDT 2003
Nope. On my machine with a reference set to both scrrun.dll and the
Office 10 object library, it doesn't work.
Charlotte Foust
-----Original Message-----
From: A.D.Tejpal [mailto:ad_tp at hotmail.com]
Sent: Tuesday, May 20, 2003 12:10 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Grab Filenames
I have tried Rocky's application(FS_A) as well as John's
code(FS_B). Both are working fine.
FS_A is a sweet finished application with built in Folder
browsing whereas this feature can be suitably added to FS_B.
On the other hand, FS_B gets much more information about the
files and also covers subfolders.
Note - It has to be ensured that following References are
available amongst others -
(a) Microsoft Scripting Runtime
(b) Microsoft Office 10 (Or 9) Object Library
Thanks to you both - John , Rocky.
Regards,
A.D.Tejpal
--------------
----- Original Message -----
From: Charlotte Foust
<mailto:cfoust at infostatsystems.com>
To: accessd at databaseadvisors.com
Sent: Tuesday, May 20, 2003 23:30
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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030520/78f2a698/attachment-0001.html>