<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2600.0" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV> I have tried Rocky's application(FS_A) as well as John's
code(FS_B). Both are working fine.
<DIV> </DIV>
<DIV> FS_A is a sweet finished application with built in
Folder browsing whereas this feature can be suitably added to FS_B.</DIV>
<DIV> </DIV>
<DIV> On the other hand, FS_B gets much more information
about the files and also covers subfolders.</DIV>
<DIV> </DIV>
<DIV> Note - It has to be ensured
that following References are available amongst others -</DIV>
<DIV> (a) Microsoft Scripting Runtime</DIV>
<DIV> (b) Microsoft Office 10 (Or 9) Object Library</DIV>
<DIV> </DIV>
<DIV> Thanks to you both - John , Rocky.</DIV>
<DIV> </DIV>
<DIV>Regards,</DIV>
<DIV><STRONG>A.D.Tejpal</STRONG></DIV>
<DIV><STRONG>--------------</STRONG></DIV></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=cfoust@infostatsystems.com
href="mailto:cfoust@infostatsystems.com">Charlotte Foust</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=accessd@databaseadvisors.com
href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Tuesday, May 20, 2003 23:30</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> RE: [AccessD] Grab
Filenames</DIV>
<DIV><BR></DIV>I'm running OXP and I don't even find the Extensibility in my
list of<BR>references, but it shouldn't make any difference. How
annoying,<BR>especially since I know I've used this in the past with
A2k.<BR><BR>Charlotte Foust<BR><BR>-----Original Message-----<BR>From: Rocky
Smolin - Beach Access Software [mailto:bchacc@san.rr.com] <BR>Sent: Tuesday,
May 20, 2003 8:52 AM<BR>To: <A
href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A><BR>Subject:
Re: [AccessD] Grab Filenames<BR><BR><BR>I've got a couple of references
checked which you may not have although<BR>it should fail to compile without
them?<BR><BR>Windows Script Host Object Model<BR>VBA Extensibility 5.3<BR>OLE
Automation<BR>Office 9.0 Object Library<BR>DAO 3.6 Object Library<BR>Access
9.0 Object Library<BR>VB for A<BR><BR>Is varPicturePath returning the right
value?<BR><BR>It's also set up to retrieve only files with .jpg
extension.<BR><BR> .FileName =
"*.jpg"<BR><BR><BR>Rocky<BR><BR>----- Original Message ----- <BR>From:
"Charlotte Foust" <<A
href="mailto:cfoust@infostatsystems.com">cfoust@infostatsystems.com</A>><BR>To:
<<A
href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A>><BR>Sent:
Tuesday, May 20, 2003 8:47 AM<BR>Subject: RE: [AccessD] Grab
Filenames<BR><BR><BR>> That's interesting, Roz. I just pulled your
code out, changed the <BR>> path to point to a folder on my machine with
mdbs in it, and got a <BR>> zero for the FoundFiles count. And I had
the same problem with <BR>> Rocky's sample database. It has to be a
setting that is causing the <BR>> failures some of us are
experiencing. Now, if we could just figure <BR>> out what it is ...
:o{<BR>><BR>> Rocky, any suggestions?<BR>><BR>> Charlotte
Foust<BR>><BR>> -----Original Message-----<BR>> From: Roz Clarke
[mailto:roz.clarke@donnslaw.co.uk]<BR>> Sent: Tuesday, May 20, 2003 7:27
AM<BR>> To: <A
href="mailto:'accessd@databaseadvisors.com'">'accessd@databaseadvisors.com'</A><BR>>
Subject: [AccessD] Grab Filenames<BR>><BR>><BR>><BR>> Hmm. I ran a
variation of Charlotte's code (informed by Rocky's, but <BR>> Charlotte's
was closer to what I think I want) that looks like
this:<BR>><BR>> Dim varItem As Variant<BR>>
With Application.FileSearch<BR>>
.NewSearch<BR>> .SearchSubFolders =
True<BR>> .FileName =
"*.mdb"<BR>> .LookIn =
"G:\"<BR>> .Execute<BR>>
'Debug.Print .FoundFiles.Count<BR>>
DoCmd.SetWarnings False<BR>> For Each varItem In
.FoundFiles<BR>> strSQL =
"INSERT INTO tblFiles (FileInfo) VALUES ( '" & <BR>> varItem & "'
)"<BR>> 'Debug.Print
strSQL<BR>> DoCmd.RunSQL
strSQL<BR>> Next varItem<BR>> End
With<BR>><BR>> This gets me the filepath, with name, though not the file
size or any <BR>> date info. But that's fine, I can live with
that.<BR>><BR>> What's baffling me is that the above drive has 280 .mdb
files on it <BR>> (yes, I know that's ridiculous, which is the point of the
exercise) <BR>> but the .FoundFiles.count only returns 152. It doesn't seem
to have <BR>> looked in any sub folders beginning with 'R'. Is this the
sort of <BR>> whacky behaviour you guys have experienced?!<BR>><BR>>
Roz<BR>><BR>> -----Original Message-----<BR>> From: Rocky Smolin -
Beach Access Software [mailto:bchacc@san.rr.com]<BR>> Sent: 20 May 2003
15:21<BR>> To: Roz Clarke<BR>> Subject: Re: Your last E-Mail to
donnslaw.co.uk was corrupt of <BR>> unreadable. Find Files
db<BR>><BR>><BR>> Was curious about the code. Standing
by...<BR>><BR>> Rocky<BR>><BR>> ----- Original Message
-----<BR>> From: "Roz Clarke" <<A
href="mailto:roz.clarke@donnslaw.co.uk">roz.clarke@donnslaw.co.uk</A>><BR>>
To: "'Rocky Smolin - Beach Access Software'" <<A
href="mailto:bchacc@san.rr.com">bchacc@san.rr.com</A>><BR>> Sent:
Tuesday, May 20, 2003 6:32 AM<BR>> Subject: RE: Your last E-Mail to
donnslaw.co.uk was corrupt of<BR>> unreadable. Find Files
db<BR>><BR>><BR>> > The email or the code?<BR>> ><BR>>
> I got the zip file but I haven't had a chance to try the code out
<BR>> > yet<BR>> > - spent all day so far on a really nasty bit of
data conversion and<BR>> > now have<BR>> a<BR>> > stack of
support jobs to do. *sigh*<BR>> ><BR>> > I'll let you
know!<BR>> ><BR>> > -----Original Message-----<BR>> > From:
Rocky Smolin - Beach Access Software <BR>> >
[mailto:bchacc@san.rr.com]<BR>> > Sent: 20 May 2003 14:20<BR>> >
To: Roz Clarke<BR>> > Subject: Re: Your last E-Mail to donnslaw.co.uk
was corrupt of<BR>> > unreadable. Find Files db<BR>> ><BR>>
><BR>> > did it work?<BR>> ><BR>> > ----- Original
Message -----<BR>> > From: "Roz Clarke" <<A
href="mailto:roz.clarke@donnslaw.co.uk">roz.clarke@donnslaw.co.uk</A>><BR>>
> To: "'Rocky Smolin - Beach Access Software'" <<A
href="mailto:bchacc@san.rr.com">bchacc@san.rr.com</A>><BR>> > Sent:
Tuesday, May 20, 2003 1:00 AM<BR>> > Subject: RE: Your last E-Mail to
donnslaw.co.uk was corrupt of <BR>> > unreadable. Find Files db<BR>>
><BR>> ><BR>> > > cheers<BR>> > ><BR>> > >
-----Original Message-----<BR>> > > From: Rocky Smolin - Beach Access
Software <BR>> > > [mailto:bchacc@san.rr.com]<BR>> > > Sent:
19 May 2003 17:26<BR>> > > To: Roz Clarke<BR>> > > Subject:
Re: Your last E-Mail to donnslaw.co.uk was corrupt of <BR>> > >
unreadable. Find Files db<BR>> > ><BR>> > ><BR>> >
> Just sent it. Note in the code that I'm only grabbing files with
<BR>> > > a .jpg extension. But you can change that to whatever
you want.<BR>> > ><BR>> > > Rocky<BR>> > ><BR>>
> > ----- Original Message -----<BR>> > > From: "Roz Clarke"
<<A
href="mailto:roz.clarke@donnslaw.co.uk">roz.clarke@donnslaw.co.uk</A>><BR>>
> > To: "'Rocky Smolin - Beach Access Software'" <<A
href="mailto:bchacc@san.rr.com">bchacc@san.rr.com</A>><BR>> > >
Sent: Monday, May 19, 2003 9:11 AM<BR>> > > Subject: RE: Your last
E-Mail to donnslaw.co.uk was corrupt of<BR>> unreadable.<BR>> > >
Find Files db<BR>> > ><BR>> > ><BR>> > > > I
should get zip files OK... Will have to slap our notwork guys<BR>> >
> ><BR>> > > ><BR>> > > > Try <A
href="mailto:zora_db@yahoo.com">zora_db@yahoo.com</A><BR>> > >
><BR>> > > > -----Original Message-----<BR>> > > >
From: Rocky Smolin - Beach Access Software <BR>> > > >
[mailto:bchacc@san.rr.com]<BR>> > > > Sent: 19 May 2003
17:10<BR>> > > > To: Roz Clarke<BR>> > > > Subject:
Fw: Your last E-Mail to donnslaw.co.uk was corrupt of <BR>> > > >
unreadable. Find Files db<BR>> > > ><BR>> > >
><BR>> > > > Roz:<BR>> > > ><BR>> > > >
Apparently I can't send either MDB or ZIP attachments. :(<BR>> >
> ><BR>> > > > Do you have another email address that might
let these go <BR>> > > > through?<BR>> > > ><BR>>
> > > Rocky<BR>> > > ><BR>> > > > -----
Original Message -----<BR>> > > > From: "Internet Manager Message
Inspector" <BR>> > > > <<A
href="mailto:ted.walsh@donnslaw.co.uk">ted.walsh@donnslaw.co.uk</A>><BR>>
> > > To: <<A
href="mailto:bchacc@san.rr.com">bchacc@san.rr.com</A>><BR>> > >
> Sent: Monday, May 19, 2003 9:08 AM<BR>> > > > Subject: Your
last E-Mail to donnslaw.co.uk was corrupt of <BR>> > > >
unreadable.<BR>> > > Find<BR>> > > > Files db<BR>>
> > ><BR>> > > ><BR>> > > > > The message
you sent does not conform with our company <BR>> > > > >
electronic communications policy.<BR>> > > > ><BR>> >
> > ><BR>> > > > ><BR>> > > > > Your
message was entitled: Find Files db<BR>> > > > > It was
addressed to: <A
href="mailto:roz.clarke@donnslaw.co.uk">roz.clarke@donnslaw.co.uk</A><BR>>
> > > > and dated: Mon, 19 May 2003 09:08:13 -0700<BR>>
> > > > From IP: 66.75.160.17<BR>> > > > ><BR>>
> > > > The message was redirected for later
inspection.<BR> _______________________________________________<BR>>
AccessD mailing list<BR>> <A
href="mailto:AccessD@databaseadvisors.com">AccessD@databaseadvisors.com</A>
<BR>> <A
href="http://databaseadvisors.com/mailman/listinfo/accessd">http://databaseadvisors.com/mailman/listinfo/accessd</A><BR>>
Website: <A
href="http://www.databaseadvisors.com">http://www.databaseadvisors.com</A>
<BR></BLOCKQUOTE></BODY></HTML>