MartyConnelly
martyconnelly at shaw.ca
Tue May 20 15:58:26 CDT 2003
Oh if it hits some of the hidden directories on winXP like "System
Volume Information" it can hang
or do odd things, should throw an error 70.
I have a similar program that does it via Dir calls rather than FileSys
object that I wrote about 5 years ago I use to search for duplicate mdbs
or .urls and stick in a table.. I would offer it but it uses goto's to
backup trees rather than use recursion. Hangs head in shame. But if you
would like to try it?
Roz Clarke wrote:
>Well I'm running Office XP on WXP w/ Service Pack 1.
>
>I can't think of any specific settings which would lead to the exclusion of
>the particular databases I'm missing :(
>
>Roz
>
>-----Original Message-----
>From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
>Sent: 20 May 2003 16:48
>To: accessd at databaseadvisors.com
>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
>
>
>