<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Message</TITLE>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2800.1170" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><SPAN class=824391620-20052003><FONT face="Comic Sans MS" color=#0000ff
size=2>Nope. On my machine with a reference set to both scrrun.dll and the
Office 10 object library, it doesn't work.</FONT></SPAN></DIV>
<DIV><SPAN class=824391620-20052003><FONT face="Comic Sans MS" color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=824391620-20052003><FONT face="Comic Sans MS" color=#0000ff
size=2>Charlotte Foust</FONT></SPAN></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV></DIV>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left><FONT
face=Tahoma size=2>-----Original Message-----<BR><B>From:</B> A.D.Tejpal
[mailto:ad_tp@hotmail.com] <BR><B>Sent:</B> Tuesday, May 20, 2003 12:10
PM<BR><B>To:</B> accessd@databaseadvisors.com<BR><B>Subject:</B> Re: [AccessD]
Grab Filenames<BR><BR></FONT></DIV>
<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></BLOCKQUOTE></BODY></HTML>