Connecting Tech Pros Worldwide Forums | Help | Site Map

Copying root directory

NoodNutt
Guest
 
Posts: n/a
#1: Dec 17 '05
G'day ppl

Is there a process whereby I can copy the text labels of all the files in a
root directory?

I recall going back a long way seeing something about it but did not take
any notice as I didn't think I would ever use it.

TIA
Mark



Randy Harris
Guest
 
Posts: n/a
#2: Dec 17 '05

re: Copying root directory



"NoodNutt" <noodnutt@iprimus.com.au> wrote in message
news:43a3b523_1@news.iprimus.com.au...[color=blue]
> G'day ppl
>
> Is there a process whereby I can copy the text labels of all the files in[/color]
a[color=blue]
> root directory?
>
> I recall going back a long way seeing something about it but did not take
> any notice as I didn't think I would ever use it.
>
> TIA
> Mark
>
>[/color]

Mark, I think you might have posted this to the wrong newsgroup. This group
is for support of Microsoft Access, the desktop database application.

--
Randy Harris
tech at promail dot com
I'm pretty sure I know everything that I can remember.

Mark Lind
Guest
 
Posts: n/a
#3: Dec 17 '05

re: Copying root directory


G'day Randy & thx for your reply.

Totally aware of the NG, my dilemma is that I want to import the root
directory file labels into a table, hence the reason I am posting in an
access forum.

Cheers.
Mark.



*** Sent via Developersdex http://www.developersdex.com ***
Terry Kreft
Guest
 
Posts: n/a
#4: Dec 17 '05

re: Copying root directory


I think your looking for something like

dim strName as string

strname = Dir("c:\*.*")

do while len(strname) > 0
debug.print strname
strname = dir
loop

--
Terry Kreft



"NoodNutt" <noodnutt@iprimus.com.au> wrote in message
news:43a3b523_1@news.iprimus.com.au...[color=blue]
> G'day ppl
>
> Is there a process whereby I can copy the text labels of all the files in
> a root directory?
>
> I recall going back a long way seeing something about it but did not take
> any notice as I didn't think I would ever use it.
>
> TIA
> Mark
>[/color]


Randy Harris
Guest
 
Posts: n/a
#5: Dec 17 '05

re: Copying root directory


Oops, sorry. Bad assumption on my part.

The code that Terry provided should do nicely, just substitute an insert for
the debug.print.

--
Randy Harris
tech at promail dot com
I'm pretty sure I know everything that I can remember.


"Mark Lind" <noodnutt@iprimus.com.au> wrote in message
news:q3Tof.1$QO.656@news.uswest.net...[color=blue]
> G'day Randy & thx for your reply.
>
> Totally aware of the NG, my dilemma is that I want to import the root
> directory file labels into a table, hence the reason I am posting in an
> access forum.
>
> Cheers.
> Mark.
>
>
>
> *** Sent via Developersdex http://www.developersdex.com ***[/color]

NoodNutt
Guest
 
Posts: n/a
#6: Dec 18 '05

re: Copying root directory


Thx Randy & Terry

Although Terry, code did not work, though I have no idea if I did it correct
or not.

I paste the code behind the OnClick of a cmdbtn but zip happened.

here's the deal:

Using this code, I would like it to collect the info that is displayed in
the explorer view of a folder.

this info would be:
Name/Size/Type/Duration..........etc...etc..
I am building a jukebox/library of all the mp3/mpeg/dvd I have on my system,
and don't really want to have to pain stakingly input every one of them.

Thx again
Mark.

"Terry Kreft" <terry.kreft@mps.co.uk> wrote in message
news:0bSdnVaaD9UjYj7eSa8jmw@karoo.co.uk...[color=blue]
>I think your looking for something like
>
> dim strName as string
>
> strname = Dir("c:\*.*")
>
> do while len(strname) > 0
> debug.print strname
> strname = dir
> loop
>
> --
> Terry Kreft
>
>
>
> "NoodNutt" <noodnutt@iprimus.com.au> wrote in message
> news:43a3b523_1@news.iprimus.com.au...[color=green]
>> G'day ppl
>>
>> Is there a process whereby I can copy the text labels of all the files in
>> a root directory?
>>
>> I recall going back a long way seeing something about it but did not take
>> any notice as I didn't think I would ever use it.
>>
>> TIA
>> Mark
>>[/color]
>
>[/color]


Terry Kreft
Guest
 
Posts: n/a
#7: Dec 19 '05

re: Copying root directory


Well I think you're missing where the output is going.

After you click the button press Ctrl-G on the keyboard that will take you
to the Immmediate window where you should see the file names listed.



--
Terry Kreft



"NoodNutt" <noodnutt@iprimus.com.au> wrote in message
news:43a5423c_1@news.iprimus.com.au...[color=blue]
> Thx Randy & Terry
>
> Although Terry, code did not work, though I have no idea if I did it
> correct or not.
>
> I paste the code behind the OnClick of a cmdbtn but zip happened.>>[/color]
<SNIP>[color=blue][color=green][color=darkred]
>>> TIA
>>> Mark
>>>[/color]
>>
>>[/color]
>
>[/color]



pietlinden@hotmail.com
Guest
 
Posts: n/a
#8: Dec 19 '05

re: Copying root directory


I've done this... essentially all you need to do inside the loop is
indicate where the data is going...

'--specify where the information is going to go...
dim rsFiles as DAO.recordset
set rsFIles = DbEngine(0)(0).OprenRecordset("MyDestTable",dbOpen Table)

'--Borrowed from Terry Kreft...
dim strName as string

strname = Dir("c:\*.*")

do while len(strname) > 0
'debug.print strname
strname = dir
'--Write to table...
rs.AddNew
rs.Fields("FileName")=strname
rs.Update
loop

rs.close
set rs=nothing

Terry Kreft
Guest
 
Posts: n/a
#9: Dec 19 '05

re: Copying root directory


Whoops, slight error there piet. It should be as below except

do while len(strname) > 0
'debug.print strname
'--Write to table...
rs.AddNew
rs.Fields("FileName")=strname
rs.Update

strname = dir ' Get thye next one after you've written to the recordset
loop




--
Terry Kreft



<pietlinden@hotmail.com> wrote in message
news:1135023972.054556.155700@o13g2000cwo.googlegr oups.com...[color=blue]
> I've done this... essentially all you need to do inside the loop is
> indicate where the data is going...[color=green]
> > '--specify where the information is going to go...[/color]
> dim rsFiles as DAO.recordset
> set rsFIles = DbEngine(0)(0).OprenRecordset("MyDestTable",dbOpen Table)
>
> '--Borrowed from Terry Kreft...
> dim strName as string
>
> strname = Dir("c:\*.*")
>
> do while len(strname) > 0
> 'debug.print strname
> strname = dir
> '--Write to table...
> rs.AddNew
> rs.Fields("FileName")=strname
> rs.Update
> loop
>
> rs.close
> set rs=nothing
>[/color]


pietlinden@hotmail.com
Guest
 
Posts: n/a
#10: Dec 19 '05

re: Copying root directory


sorry, that's what happens when you write off the top of your head in
notepad...

Terry Kreft
Guest
 
Posts: n/a
#11: Dec 20 '05

re: Copying root directory


Don't I know it <g>.

..MoveNext the bane of my life. If I get a bug in a recordset iteration it's
because I've missed that line by typing faster than I can think (and I don't
type fast <g>).

--
Terry Kreft



<pietlinden@hotmail.com> wrote in message
news:1135028782.180425.143120@o13g2000cwo.googlegr oups.com...[color=blue]
> sorry, that's what happens when you write off the top of your head in
> notepad...
>[/color]


NoodNutt
Guest
 
Posts: n/a
#12: Dec 22 '05

re: Copying root directory


Terry & Piet.

Firstly, Seasons greetings to both you and your families.

Thank you so much, between the 2 of you I managed to piece it together.

I would like to go 2 steps further if you can assist:

I think this is a big ask & will test you.. :-)

1. I need to copy a portion of text from 1 field to another. eg "Tom Jones -
She's A Lady"... I would like to cut "Tom Jones - " delete the 2 spaces &
dash then paste "Tom Jones" into the new field, structured in a loop fashion
to do all records that match this type of criteria.

2. It would save me literally months of data entry if there was a way of
copying the "tag info" of each file, that which is displayed in the windows
explorer.

Thx again.

TIA
Mark.


"Terry Kreft" <terry.kreft@mps.co.uk> wrote in message
news:1EadnVEcB-HHvjreSa8jmw@karoo.co.uk...[color=blue]
> Whoops, slight error there piet. It should be as below except
>
> do while len(strname) > 0
> 'debug.print strname
> '--Write to table...
> rs.AddNew
> rs.Fields("FileName")=strname
> rs.Update
>
> strname = dir ' Get thye next one after you've written to the
> recordset
> loop
>
>
>
>
> --
> Terry Kreft
>
>
>
> <pietlinden@hotmail.com> wrote in message
> news:1135023972.054556.155700@o13g2000cwo.googlegr oups.com...[color=green]
>> I've done this... essentially all you need to do inside the loop is
>> indicate where the data is going...[color=darkred]
>> > '--specify where the information is going to go...[/color]
>> dim rsFiles as DAO.recordset
>> set rsFIles = DbEngine(0)(0).OprenRecordset("MyDestTable",dbOpen Table)
>>
>> '--Borrowed from Terry Kreft...
>> dim strName as string
>>
>> strname = Dir("c:\*.*")
>>
>> do while len(strname) > 0
>> 'debug.print strname
>> strname = dir
>> '--Write to table...
>> rs.AddNew
>> rs.Fields("FileName")=strname
>> rs.Update
>> loop
>>
>> rs.close
>> set rs=nothing
>>[/color]
>
>[/color]


NoodNutt
Guest
 
Posts: n/a
#13: Dec 22 '05

re: Copying root directory


I managed to fix no.1 by parsing the text using Left$ & Right$, so thats
cool.

thx again
Mark


"NoodNutt" <noodnutt@iprimus.com.au> wrote in message
news:43aa82fd_1@news.iprimus.com.au...[color=blue]
> Terry & Piet.
>
> Firstly, Seasons greetings to both you and your families.
>
> Thank you so much, between the 2 of you I managed to piece it together.
>
> I would like to go 2 steps further if you can assist:
>
> I think this is a big ask & will test you.. :-)
>
> 1. I need to copy a portion of text from 1 field to another. eg "Tom
> Jones - She's A Lady"... I would like to cut "Tom Jones - " delete the 2
> spaces & dash then paste "Tom Jones" into the new field, structured in a
> loop fashion to do all records that match this type of criteria.
>
> 2. It would save me literally months of data entry if there was a way of
> copying the "tag info" of each file, that which is displayed in the
> windows explorer.
>
> Thx again.
>
> TIA
> Mark.
>
>
> "Terry Kreft" <terry.kreft@mps.co.uk> wrote in message
> news:1EadnVEcB-HHvjreSa8jmw@karoo.co.uk...[color=green]
>> Whoops, slight error there piet. It should be as below except
>>
>> do while len(strname) > 0
>> 'debug.print strname
>> '--Write to table...
>> rs.AddNew
>> rs.Fields("FileName")=strname
>> rs.Update
>>
>> strname = dir ' Get thye next one after you've written to the
>> recordset
>> loop
>>
>>
>>
>>
>> --
>> Terry Kreft
>>
>>
>>
>> <pietlinden@hotmail.com> wrote in message
>> news:1135023972.054556.155700@o13g2000cwo.googlegr oups.com...[color=darkred]
>>> I've done this... essentially all you need to do inside the loop is
>>> indicate where the data is going...
>>> > '--specify where the information is going to go...
>>> dim rsFiles as DAO.recordset
>>> set rsFIles = DbEngine(0)(0).OprenRecordset("MyDestTable",dbOpen Table)
>>>
>>> '--Borrowed from Terry Kreft...
>>> dim strName as string
>>>
>>> strname = Dir("c:\*.*")
>>>
>>> do while len(strname) > 0
>>> 'debug.print strname
>>> strname = dir
>>> '--Write to table...
>>> rs.AddNew
>>> rs.Fields("FileName")=strname
>>> rs.Update
>>> loop
>>>
>>> rs.close
>>> set rs=nothing
>>>[/color]
>>
>>[/color]
>
>[/color]


Chuck Grimsby
Guest
 
Posts: n/a
#14: Dec 22 '05

re: Copying root directory



Mark, Are you trying to read in the MP3 tags off of MP3 files, or are
you using the file names themselves?

On Thu, 22 Dec 2005 21:42:04 +1100, "NoodNutt"
<noodnutt@iprimus.com.au> wrote:[color=blue]
>Thank you so much, between the 2 of you I managed to piece it together.
>I would like to go 2 steps further if you can assist:
>I think this is a big ask & will test you.. :-)
>1. I need to copy a portion of text from 1 field to another. eg "Tom Jones -
>She's A Lady"... I would like to cut "Tom Jones - " delete the 2 spaces &
>dash then paste "Tom Jones" into the new field, structured in a loop fashion
>to do all records that match this type of criteria.
>2. It would save me literally months of data entry if there was a way of
>copying the "tag info" of each file, that which is displayed in the windows
>explorer.[/color]
[color=blue]
>"Terry Kreft" <terry.kreft@mps.co.uk> wrote in message
>news:1EadnVEcB-HHvjreSa8jmw@karoo.co.uk...[color=green]
>> Whoops, slight error there piet. It should be as below except
>> do while len(strname) > 0
>> 'debug.print strname
>> '--Write to table...
>> rs.AddNew
>> rs.Fields("FileName")=strname
>> rs.Update
>> strname = dir ' Get thye next one after you've written to the
>> recordset
>> loop[/color][/color]
[color=blue][color=green]
>> <pietlinden@hotmail.com> wrote in message
>> news:1135023972.054556.155700@o13g2000cwo.googlegr oups.com...[color=darkred]
>>> I've done this... essentially all you need to do inside the loop is
>>> indicate where the data is going...
>>> > '--specify where the information is going to go...
>>> dim rsFiles as DAO.recordset
>>> set rsFIles = DbEngine(0)(0).OprenRecordset("MyDestTable",dbOpen Table)
>>> '--Borrowed from Terry Kreft...
>>> dim strName as string
>>> strname = Dir("c:\*.*")
>>> do while len(strname) > 0
>>> 'debug.print strname
>>> strname = dir
>>> '--Write to table...
>>> rs.AddNew
>>> rs.Fields("FileName")=strname
>>> rs.Update
>>> loop
>>> rs.close
>>> set rs=nothing[/color][/color][/color]


--
Drive C: Error. (A)bort (R)etry (S)mack The Darned Thing

NoodNutt
Guest
 
Posts: n/a
#15: Dec 23 '05

re: Copying root directory


G'day chuck,

Thx for replying, I actually have imported all the file names already, I was
hoping there was a way of extracting the tagged info that accompanies mp3
files.

unless there is another program that can store tag info & export in
tab/comma delimited.

thx again.
Mark

"Chuck Grimsby" <c.grimsby@worldnet.att.net.invalid> wrote in message
news:32cmq1d1596vm09bgmdml4g5m0c36am8ct@4ax.com...[color=blue]
>
> Mark, Are you trying to read in the MP3 tags off of MP3 files, or are
> you using the file names themselves?
>
> On Thu, 22 Dec 2005 21:42:04 +1100, "NoodNutt"
> <noodnutt@iprimus.com.au> wrote:[color=green]
>>Thank you so much, between the 2 of you I managed to piece it together.
>>I would like to go 2 steps further if you can assist:
>>I think this is a big ask & will test you.. :-)
>>1. I need to copy a portion of text from 1 field to another. eg "Tom
>>Jones -
>>She's A Lady"... I would like to cut "Tom Jones - " delete the 2 spaces &
>>dash then paste "Tom Jones" into the new field, structured in a loop
>>fashion
>>to do all records that match this type of criteria.
>>2. It would save me literally months of data entry if there was a way of
>>copying the "tag info" of each file, that which is displayed in the
>>windows
>>explorer.[/color]
>[color=green]
>>"Terry Kreft" <terry.kreft@mps.co.uk> wrote in message
>>news:1EadnVEcB-HHvjreSa8jmw@karoo.co.uk...[color=darkred]
>>> Whoops, slight error there piet. It should be as below except
>>> do while len(strname) > 0
>>> 'debug.print strname
>>> '--Write to table...
>>> rs.AddNew
>>> rs.Fields("FileName")=strname
>>> rs.Update
>>> strname = dir ' Get thye next one after you've written to the
>>> recordset
>>> loop[/color][/color]
>[color=green][color=darkred]
>>> <pietlinden@hotmail.com> wrote in message
>>> news:1135023972.054556.155700@o13g2000cwo.googlegr oups.com...
>>>> I've done this... essentially all you need to do inside the loop is
>>>> indicate where the data is going...
>>>> > '--specify where the information is going to go...
>>>> dim rsFiles as DAO.recordset
>>>> set rsFIles = DbEngine(0)(0).OprenRecordset("MyDestTable",dbOpen Table)
>>>> '--Borrowed from Terry Kreft...
>>>> dim strName as string
>>>> strname = Dir("c:\*.*")
>>>> do while len(strname) > 0
>>>> 'debug.print strname
>>>> strname = dir
>>>> '--Write to table...
>>>> rs.AddNew
>>>> rs.Fields("FileName")=strname
>>>> rs.Update
>>>> loop
>>>> rs.close
>>>> set rs=nothing[/color][/color]
>
>
> --
> Drive C: Error. (A)bort (R)etry (S)mack The Darned Thing
>[/color]


Chuck Grimsby
Guest
 
Posts: n/a
#16: Dec 23 '05

re: Copying root directory



Check out the Tag & Rename program. It will do exactly that!

http://www.softpointer.com/tr.htm

I think it's about $25.

If you want to do it all inside Access, there are a couple of MP3
class files on the web that can do this, but the tag&rename program is
a lot nicer to use, and has a bunch of nice features already built-in
that you won't have to program in.

I have the Tag&&Rename program myself (I'm a user, I didn't write it)
and use it for editing the tags and exporting the tag information to a
CSV, then I import the data into my MP3 Database in Access/SQL.

I spent quite a bit of time doing it all myself with my own code, but
in the end it was just easier and simpler to do it with the Tag&Rename
program (which will also link up with a couple of CD Libraries on the
web and grab information for you.)

On Fri, 23 Dec 2005 20:30:49 +1100, "NoodNutt"
<noodnutt@iprimus.com.au> wrote:[color=blue]
>Thx for replying, I actually have imported all the file names already, I was
>hoping there was a way of extracting the tagged info that accompanies mp3
>files.
>unless there is another program that can store tag info & export in
>tab/comma delimited.[/color]
[color=blue]
>"Chuck Grimsby" <c.grimsby@worldnet.att.net.invalid> wrote in message
>news:32cmq1d1596vm09bgmdml4g5m0c36am8ct@4ax.com.. .[color=green]
>>
>> Mark, Are you trying to read in the MP3 tags off of MP3 files, or are
>> you using the file names themselves?
>>
>> On Thu, 22 Dec 2005 21:42:04 +1100, "NoodNutt"
>> <noodnutt@iprimus.com.au> wrote:[color=darkred]
>>>Thank you so much, between the 2 of you I managed to piece it together.
>>>I would like to go 2 steps further if you can assist:
>>>I think this is a big ask & will test you.. :-)
>>>1. I need to copy a portion of text from 1 field to another. eg "Tom
>>>Jones -
>>>She's A Lady"... I would like to cut "Tom Jones - " delete the 2 spaces &
>>>dash then paste "Tom Jones" into the new field, structured in a loop
>>>fashion
>>>to do all records that match this type of criteria.
>>>2. It would save me literally months of data entry if there was a way of
>>>copying the "tag info" of each file, that which is displayed in the
>>>windows
>>>explorer.[/color]
>>[color=darkred]
>>>"Terry Kreft" <terry.kreft@mps.co.uk> wrote in message
>>>news:1EadnVEcB-HHvjreSa8jmw@karoo.co.uk...
>>>> Whoops, slight error there piet. It should be as below except
>>>> do while len(strname) > 0
>>>> 'debug.print strname
>>>> '--Write to table...
>>>> rs.AddNew
>>>> rs.Fields("FileName")=strname
>>>> rs.Update
>>>> strname = dir ' Get thye next one after you've written to the
>>>> recordset
>>>> loop[/color]
>>[color=darkred]
>>>> <pietlinden@hotmail.com> wrote in message
>>>> news:1135023972.054556.155700@o13g2000cwo.googlegr oups.com...
>>>>> I've done this... essentially all you need to do inside the loop is
>>>>> indicate where the data is going...
>>>>> > '--specify where the information is going to go...
>>>>> dim rsFiles as DAO.recordset
>>>>> set rsFIles = DbEngine(0)(0).OprenRecordset("MyDestTable",dbOpen Table)
>>>>> '--Borrowed from Terry Kreft...
>>>>> dim strName as string
>>>>> strname = Dir("c:\*.*")
>>>>> do while len(strname) > 0
>>>>> 'debug.print strname
>>>>> strname = dir
>>>>> '--Write to table...
>>>>> rs.AddNew
>>>>> rs.Fields("FileName")=strname
>>>>> rs.Update
>>>>> loop
>>>>> rs.close
>>>>> set rs=nothing[/color]
>>
>>
>> --
>> Drive C: Error. (A)bort (R)etry (S)mack The Darned Thing
>>[/color]
>[/color]


--
Drive C: Error. (A)bort (R)etry (S)mack The Darned Thing

NoodNutt
Guest
 
Posts: n/a
#17: Dec 30 '05

re: Copying root directory


Thx heaps chuck, I'll get strait on it after my new year hangover.

reg's
Mark.

"Chuck Grimsby" <c.grimsby@worldnet.att.net.invalid> wrote in message
news:7mmnq157sfendlo8jq0ekbcn08dabb00u1@4ax.com...[color=blue]
>
> Check out the Tag & Rename program. It will do exactly that!
>
> http://www.softpointer.com/tr.htm
>
> I think it's about $25.
>
> If you want to do it all inside Access, there are a couple of MP3
> class files on the web that can do this, but the tag&rename program is
> a lot nicer to use, and has a bunch of nice features already built-in
> that you won't have to program in.
>
> I have the Tag&&Rename program myself (I'm a user, I didn't write it)
> and use it for editing the tags and exporting the tag information to a
> CSV, then I import the data into my MP3 Database in Access/SQL.
>
> I spent quite a bit of time doing it all myself with my own code, but
> in the end it was just easier and simpler to do it with the Tag&Rename
> program (which will also link up with a couple of CD Libraries on the
> web and grab information for you.)
>
> On Fri, 23 Dec 2005 20:30:49 +1100, "NoodNutt"
> <noodnutt@iprimus.com.au> wrote:[color=green]
>>Thx for replying, I actually have imported all the file names already, I
>>was
>>hoping there was a way of extracting the tagged info that accompanies mp3
>>files.
>>unless there is another program that can store tag info & export in
>>tab/comma delimited.[/color]
>[color=green]
>>"Chuck Grimsby" <c.grimsby@worldnet.att.net.invalid> wrote in message
>>news:32cmq1d1596vm09bgmdml4g5m0c36am8ct@4ax.com. ..[color=darkred]
>>>
>>> Mark, Are you trying to read in the MP3 tags off of MP3 files, or are
>>> you using the file names themselves?
>>>
>>> On Thu, 22 Dec 2005 21:42:04 +1100, "NoodNutt"
>>> <noodnutt@iprimus.com.au> wrote:
>>>>Thank you so much, between the 2 of you I managed to piece it together.
>>>>I would like to go 2 steps further if you can assist:
>>>>I think this is a big ask & will test you.. :-)
>>>>1. I need to copy a portion of text from 1 field to another. eg "Tom
>>>>Jones -
>>>>She's A Lady"... I would like to cut "Tom Jones - " delete the 2 spaces
>>>>&
>>>>dash then paste "Tom Jones" into the new field, structured in a loop
>>>>fashion
>>>>to do all records that match this type of criteria.
>>>>2. It would save me literally months of data entry if there was a way of
>>>>copying the "tag info" of each file, that which is displayed in the
>>>>windows
>>>>explorer.
>>>
>>>>"Terry Kreft" <terry.kreft@mps.co.uk> wrote in message
>>>>news:1EadnVEcB-HHvjreSa8jmw@karoo.co.uk...
>>>>> Whoops, slight error there piet. It should be as below except
>>>>> do while len(strname) > 0
>>>>> 'debug.print strname
>>>>> '--Write to table...
>>>>> rs.AddNew
>>>>> rs.Fields("FileName")=strname
>>>>> rs.Update
>>>>> strname = dir ' Get thye next one after you've written to the
>>>>> recordset
>>>>> loop
>>>
>>>>> <pietlinden@hotmail.com> wrote in message
>>>>> news:1135023972.054556.155700@o13g2000cwo.googlegr oups.com...
>>>>>> I've done this... essentially all you need to do inside the loop is
>>>>>> indicate where the data is going...
>>>>>> > '--specify where the information is going to go...
>>>>>> dim rsFiles as DAO.recordset
>>>>>> set rsFIles =
>>>>>> DbEngine(0)(0).OprenRecordset("MyDestTable",dbOpen Table)
>>>>>> '--Borrowed from Terry Kreft...
>>>>>> dim strName as string
>>>>>> strname = Dir("c:\*.*")
>>>>>> do while len(strname) > 0
>>>>>> 'debug.print strname
>>>>>> strname = dir
>>>>>> '--Write to table...
>>>>>> rs.AddNew
>>>>>> rs.Fields("FileName")=strname
>>>>>> rs.Update
>>>>>> loop
>>>>>> rs.close
>>>>>> set rs=nothing
>>>
>>>
>>> --
>>> Drive C: Error. (A)bort (R)etry (S)mack The Darned Thing
>>>[/color]
>>[/color]
>
>
> --
> Drive C: Error. (A)bort (R)etry (S)mack The Darned Thing
>[/color]


Closed Thread