473,320 Members | 1,831 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,320 software developers and data experts.

Read and Import folder names from a CD?

Is it possible, and if so how would I read and import folder names
from a CD to a table?

Thank you for any help.
Mar 6 '06 #1
35 2259
A Cd is ususually the D drive. From the Help file:

' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

Change C in above to D. Add a recordset and the AddNew and Update methods of
the recordset to the above loop to write each folder name to a table.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1150 users have come to me from the newsgroups requesting help
re******@pcdatasheet.com

"Shyguy" <sh****@aol.com> wrote in message
news:2c********************************@4ax.com...
Is it possible, and if so how would I read and import folder names
from a CD to a table?

Thank you for any help.

Mar 6 '06 #2
To the original poster:

It is commonly accepted that these newsgroups are for free exchange of
information. Please be aware that PC Datasheet is a notorious job hunter.
If you are considering doing business with him then I suggest that you take
a look at the link below first.
http://home.tiscali.nl/arracom/whoissteve.html

"Steve" <no****@nospam.spam> wrote in message
news:Du***************@newsread2.news.atl.earthlin k.net...
A Cd is ususually the D drive. From the Help file:

' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

Change C in above to D. Add a recordset and the AddNew and Update methods of the recordset to the above loop to write each folder name to a table.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1150 users have come to me from the newsgroups requesting help
re******@pcdatasheet.com

"Shyguy" <sh****@aol.com> wrote in message
news:2c********************************@4ax.com...
Is it possible, and if so how would I read and import folder names
from a CD to a table?

Thank you for any help.


Mar 7 '06 #3

And congratulations on another 25 people on the total. I'm sure they'll all
be posting supportive messages soon. Just like the other 1125 haven't done.

"Steve" <no****@nospam.spam> wrote in message
news:Du***************@newsread2.news.atl.earthlin k.net...
A Cd is ususually the D drive. From the Help file:

' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

Change C in above to D. Add a recordset and the AddNew and Update methods of the recordset to the above loop to write each folder name to a table.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1150 users have come to me from the newsgroups requesting help
re******@pcdatasheet.com

"Shyguy" <sh****@aol.com> wrote in message
news:2c********************************@4ax.com...
Is it possible, and if so how would I read and import folder names
from a CD to a table?

Thank you for any help.


Mar 7 '06 #4
Thank you..

On Mon, 06 Mar 2006 23:22:11 GMT, "Steve" <no****@nospam.spam> wrote:
' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

Change C in above to D. Add a recordset and the AddNew and Update methods of
the recordset to the above loop to write each folder name to a table.


Mar 7 '06 #5
Thanks for the heads up, but I would never pay anyone for info/help on
the newsgroups or off.

Why would anyone pay someone for help, unless they can't get the help
from anyone else?
On Tue, 7 Mar 2006 00:50:13 -0000, "Rob Oldfield" <bl**@blah.com>
wrote:
To the original poster:

It is commonly accepted that these newsgroups are for free exchange of
information. Please be aware that PC Datasheet is a notorious job hunter.
If you are considering doing business with him then I suggest that you take
a look at the link below first.
http://home.tiscali.nl/arracom/whoissteve.html

"Steve" <no****@nospam.spam> wrote in message
news:Du***************@newsread2.news.atl.earthli nk.net...
A Cd is ususually the D drive. From the Help file:

' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

Change C in above to D. Add a recordset and the AddNew and Update methods

of
the recordset to the above loop to write each folder name to a table.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1150 users have come to me from the newsgroups requesting help
re******@pcdatasheet.com

"Shyguy" <sh****@aol.com> wrote in message
news:2c********************************@4ax.com...
> Is it possible, and if so how would I read and import folder names
> from a CD to a table?
>
> Thank you for any help.



Mar 7 '06 #6

"Rob Oldfield" <bl**@blah.com> schreef in bericht news:44**********************@news.zen.co.uk...

And congratulations on another 25 people on the total. I'm sure they'll all
be posting supportive messages soon. Just like the other 1125 haven't done.


Amazing... 1150 users HAHAHA
Would Steve indeed think anyone believes this 'total' crap??
Indeed NOT ONE of his newsgroup-users did show up to support him.
But even if one ore two did it would not make a difference.

He is changing his ng name from PC DataSheet to Steve now because he still gets lots of new users?

Arno R
Mar 7 '06 #7
<<Why would anyone pay someone for help, unless they can't get the help from
anyone else?>>

That's the whole point of why I offer alternative help!!

If you can't get help from anyone else, you can always contact me if the
solution is important enough to you. Also note that the A%#$@&, Rob Oldfield
and Arno R offered no help at all to you!!!!!
--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1150 users have come to me from the newsgroups requesting help
re******@pcdatasheet.com

"Shyguy" <sh****@aol.com> wrote in message
news:jg********************************@4ax.com...
Thank you..

On Mon, 06 Mar 2006 23:22:11 GMT, "Steve" <no****@nospam.spam> wrote:
' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

Change C in above to D. Add a recordset and the AddNew and Update methods
of
the recordset to the above loop to write each folder name to a table.

Mar 8 '06 #8
"Steve" <no****@nospam.spam> wrote in message
news:Du***************@newsread2.news.atl.earthlin k.net...
A Cd is ususually the D drive.

Hahahahahahahaha! Yeh, right.
Mar 8 '06 #9
On Mon, 06 Mar 2006 23:22:11 GMT, "Steve" <no****@nospam.spam> wrote:
A Cd is ususually the D drive.


Not on my PC.
Wayne Gillespie
Gosford NSW Australia
Mar 8 '06 #10
"Steve" <no****@nospam.spam> wrote in message
news:qE*****************@newsread2.news.atl.earthl ink.net...
<<Why would anyone pay someone for help, unless they can't get the help
from anyone else?>>

That's the whole point of why I offer alternative help!!
That should be "alternative TO help". Wrong answers, misinformation and
personal slurs.
If you can't get help from anyone else, you can always contact me if the
solution is important enough to you. Also note that the A%#$@&, Rob
Oldfield and Arno R offered no help at all to you!!!!!


Warning a user he is about to be conned is helping the OP.

John... Visio MVP
Mar 8 '06 #11
Add another A%#$@& to the list!!!!

"John Marshall, MVP" <la******@stonehenge.ca> wrote in message
news:x7********************@magma.ca...
"Steve" <no****@nospam.spam> wrote in message
news:qE*****************@newsread2.news.atl.earthl ink.net...
<<Why would anyone pay someone for help, unless they can't get the help
from anyone else?>>

That's the whole point of why I offer alternative help!!


That should be "alternative TO help". Wrong answers, misinformation and
personal slurs.
If you can't get help from anyone else, you can always contact me if the
solution is important enough to you. Also note that the A%#$@&, Rob
Oldfield and Arno R offered no help at all to you!!!!!


Warning a user he is about to be conned is helping the OP.

John... Visio MVP

Mar 8 '06 #12
Add another A%#$@& to the list!! Four A%#$@&s beat a fullhouse!
"Keith Wilby" <he**@there.com> wrote in message
news:44**********@glkas0286.greenlnk.net...
"Steve" <no****@nospam.spam> wrote in message
news:Du***************@newsread2.news.atl.earthlin k.net...
A Cd is ususually the D drive.

Hahahahahahahaha! Yeh, right.

Mar 8 '06 #13
Wayne,

The word is USUALLY!!

Unless you have multiple hard drives, a partitioned hard drive, an external
storage device or some other internal storage device, a CD Drive will be
designated by Windows as D drive.

Steve
"Wayne Gillespie" <be*****@NOhotmailSPAM.com.au> wrote in message
news:91********************************@4ax.com...
On Mon, 06 Mar 2006 23:22:11 GMT, "Steve" <no****@nospam.spam> wrote:
A Cd is ususually the D drive.


Not on my PC.
Wayne Gillespie
Gosford NSW Australia

Mar 8 '06 #14
The word is "beats" and the device is called a CD not Cd.

Your new email address is very appropriate. "Spam Spam Spam" With a "No No"
for good measure.

John... Visio MVP

"Steve" <no****@nospam.spam> wrote in message
news:x%*****************@newsread1.news.atl.earthl ink.net...
Add another A%#$@& to the list!! Four A%#$@&s beat a fullhouse!
"Keith Wilby" <he**@there.com> wrote in message
news:44**********@glkas0286.greenlnk.net...
"Steve" <no****@nospam.spam> wrote in message
news:Du***************@newsread2.news.atl.earthlin k.net...
A Cd is ususually the D drive.

Hahahahahahahaha! Yeh, right.


Mar 8 '06 #15
So why did you write it "ususually"?

John... Visio MVP

"Steve" <no****@nospam.spam> wrote in message
news:P6****************@newsread3.news.atl.earthli nk.net...

The word is USUALLY!!

Steve

"Wayne Gillespie" <be*****@NOhotmailSPAM.com.au> wrote in message
news:91********************************@4ax.com...
On Mon, 06 Mar 2006 23:22:11 GMT, "Steve" <no****@nospam.spam> wrote:
A Cd is ususually the D drive.


Not on my PC.

Wayne Gillespie
Gosford NSW Australia

Mar 8 '06 #16
You get the A%#$@& award!!! Four A%#$@&s BEAT a fullhouse you illiterate
ignoramus!!!!!!
"John Marshall, MVP" <la******@stonehenge.ca> wrote in message
news:8b******************************@magma.ca...
The word is "beats" and the device is called a CD not Cd.

Your new email address is very appropriate. "Spam Spam Spam" With a "No
No" for good measure.

John... Visio MVP

"Steve" <no****@nospam.spam> wrote in message
news:x%*****************@newsread1.news.atl.earthl ink.net...
Add another A%#$@& to the list!! Four A%#$@&s beat a fullhouse!
"Keith Wilby" <he**@there.com> wrote in message
news:44**********@glkas0286.greenlnk.net...
"Steve" <no****@nospam.spam> wrote in message
news:Du***************@newsread2.news.atl.earthlin k.net...
A Cd is ususually the D drive.
Hahahahahahahaha! Yeh, right.



Mar 8 '06 #17
So you would understand you illiterate ignoramus!!!!
"John Marshall, MVP" <la******@stonehenge.ca> wrote in message
news:nf******************************@magma.ca...
So why did you write it "ususually"?

John... Visio MVP

"Steve" <no****@nospam.spam> wrote in message
news:P6****************@newsread3.news.atl.earthli nk.net...

The word is USUALLY!!

Steve

"Wayne Gillespie" <be*****@NOhotmailSPAM.com.au> wrote in message
news:91********************************@4ax.com...
On Mon, 06 Mar 2006 23:22:11 GMT, "Steve" <no****@nospam.spam> wrote:

A Cd is ususually the D drive.

Not on my PC.

Wayne Gillespie
Gosford NSW Australia


Mar 8 '06 #18
Why on earth would I bother posting any help on this thread? Your answer
was perfectly sensible. But that's not the problem Steve. You're not
offering 'alternative' help. You're just being a great deal more proactive
with your requests for paid help than is acceptable.

Stop doing it and you'll get more business through newsgroups than you
currently are. How does that sound?

(....and just to clarify, I'd say that attacks on your use of English, or
your - perfectly reasonable - assumption to call a cd the d drive, are
drivel)
"Steve" <no****@nospam.spam> wrote in message
news:qE*****************@newsread2.news.atl.earthl ink.net...
<<Why would anyone pay someone for help, unless they can't get the help from anyone else?>>

That's the whole point of why I offer alternative help!!

If you can't get help from anyone else, you can always contact me if the
solution is important enough to you. Also note that the A%#$@&, Rob Oldfield and Arno R offered no help at all to you!!!!!
--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1150 users have come to me from the newsgroups requesting help
re******@pcdatasheet.com

"Shyguy" <sh****@aol.com> wrote in message
news:jg********************************@4ax.com...
Thank you..

On Mon, 06 Mar 2006 23:22:11 GMT, "Steve" <no****@nospam.spam> wrote:
' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

Change C in above to D. Add a recordset and the AddNew and Update methodsof
the recordset to the above loop to write each folder name to a table.


Mar 8 '06 #19
http://home.tiscali.nl/arracom/whoissteve.html ---- A serious eye
opener alright.

Why do you wait to receive an email first, before informing the sender
that they will have to pay exhorbitant fees... and upfront?
Common courtesy would have you mention this "Upfront Charge" in your
post.

If somenone quoted me $995 for a table and 4 forms... I'd fall around
the place laughing.

osmethod

Mar 9 '06 #20
<os******@eircom.net> schreef in bericht news:11**********************@u72g2000cwu.googlegr oups.com...
http://home.tiscali.nl/arracom/whoissteve.html ---- A serious eye
opener alright.

Why do you wait to receive an email first, before informing the sender
that they will have to pay exhorbitant fees... and upfront?
Common courtesy would have you mention this "Upfront Charge" in your
post.

If somenone quoted me $995 for a table and 4 forms... I'd fall around
the place laughing.

osmethod


Hi osmethod,
Is what you write here you own experience with Steve?
If so, you are counted as one of the 11xx users that came from the newsgroups requesting help?

Arno R
Mar 9 '06 #21
My simple point is that "Steve" at the end of his postings puts the
following:

PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1150 users have come to me from the newsgroups requesting help
resou...@pcdatasheet.com
Would it not be more courteous to let individuals know the facts
first....

PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
--- High Upfront Chargeable Rates Will Apply ---
Over 1150 users have come to me from the newsgroups requesting help
resou...@pcdatasheet.com
I believe the 1150 users who, supposedly, have come to him, would be
significantly less.

Also, other genuine and serious posters here offer and have offered
conceptual clarifications, coding examples and even specifically
written code in assisting users.

To read that 1 table and 4 forms costs $995 is ridiculous. (2-3 hours
work...) ROTFL

osmethod

Mar 9 '06 #22
You got it!!

From now on my signature line will show "Very Reasonable Fees".

Right, Arno????
--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Very Reasonable Fees
Over 1150 users have come to me from the newsgroups requesting help
re******@pcdatasheet.com

<os******@eircom.net> wrote in message
news:11*********************@u72g2000cwu.googlegro ups.com...
My simple point is that "Steve" at the end of his postings puts the
following:

PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1150 users have come to me from the newsgroups requesting help
resou...@pcdatasheet.com
Would it not be more courteous to let individuals know the facts
first....

PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
--- High Upfront Chargeable Rates Will Apply ---
Over 1150 users have come to me from the newsgroups requesting help
resou...@pcdatasheet.com
I believe the 1150 users who, supposedly, have come to him, would be
significantly less.

Also, other genuine and serious posters here offer and have offered
conceptual clarifications, coding examples and even specifically
written code in assisting users.

To read that 1 table and 4 forms costs $995 is ridiculous. (2-3 hours
work...) ROTFL

osmethod

Mar 9 '06 #23
You haven't.

Does this mean you will be paying people for your questionable advise. I
gather your insults are free.

John... Visio MVP

"Steve" <no****@nospam.spam> wrote in message
news:cB*****************@newsread2.news.atl.earthl ink.net...
You got it!!

From now on my signature line will show "Very Reasonable Fees".

Mar 9 '06 #24
"John Marshall, MVP" <la******@stonehenge.ca> wrote in message
news:oo******************************@magma.ca...
You haven't.

Does this mean you will be paying people for your questionable advise. I
gather your insults are free.


Moreover, an entity is either "reasonable" or "unreasonable", the "very" is
redundant and implies spiv-like tactics.

Keith.
Mar 9 '06 #25

"Steve" <no****@nospam.spam> schreef in bericht news:cB*****************@newsread2.news.atl.earthl ink.net...
You got it!!

From now on my signature line will show "Very Reasonable Fees".

Right, Arno????


--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Very Reasonable Fees
Over 1150 users have come to me from the newsgroups requesting help
re******@pcdatasheet.com

--
Over 450 users from the newsgroups have visited the website to read what kind of a 'resource' you are... (rapidly increasing..)
http://home.tiscali.nl/arracom/whoissteve.html

Sorry, siglines not approved...
-- Please don't mention anything concerning fees
-- Please don't mention xxxx users requesting help
This is just blatantly jobhunting.

Your 'old' siglines would be no (big) problem.
Get it?

Arno R
Mar 9 '06 #26
You are an A#$@&% and an insult to what MVP is suppose to stand for!!!!

You make no contributions to the newsgroup; all you do is post garbage like
this!!

"John Marshall, MVP" <la******@stonehenge.ca> wrote in message
news:oo******************************@magma.ca...
You haven't.

Does this mean you will be paying people for your questionable advise. I
gather your insults are free.

John... Visio MVP

"Steve" <no****@nospam.spam> wrote in message
news:cB*****************@newsread2.news.atl.earthl ink.net...
You got it!!

From now on my signature line will show "Very Reasonable Fees".


Mar 9 '06 #27
You are an A@#&%$ and an illiterate ignoramus like your comrade John
Marshall!!!

If a person is willing to pay $18,000 to $25,000 for a new car. To him, a
car with a price tag of $18,500 is VERY reasonable, one with a price tag of
$21,000 is reasonable and one wit a price tag of $25,000 is not very
reasonable.

"Keith Wilby" <he**@there.com> wrote in message
news:44**********@glkas0286.greenlnk.net...
"John Marshall, MVP" <la******@stonehenge.ca> wrote in message
news:oo******************************@magma.ca...
You haven't.

Does this mean you will be paying people for your questionable advise. I
gather your insults are free.


Moreover, an entity is either "reasonable" or "unreasonable", the "very"
is redundant and implies spiv-like tactics.

Keith.

Mar 9 '06 #28
INDEED, you A@#&%$!!! Your pal, osmethod, just suggested I mention fees in
my signature line.

<<Common courtesy would have you mention this "Upfront Charge" in your
post.>>

INDEED, I am taking his advise and just being courtesy.
--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Very Reasonable Fees
Over 1150 users have come to me from the newsgroups requesting help
re******@pcdatasheet.com


"StopThisAdvertising" <StopThisAdvertising@DataShit> wrote in message
news:44**********************@text.nova.planet.nl. ..

"Steve" <no****@nospam.spam> schreef in bericht
news:cB*****************@newsread2.news.atl.earthl ink.net...
You got it!!

From now on my signature line will show "Very Reasonable Fees".

Right, Arno????
--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Very Reasonable Fees
Over 1150 users have come to me from the newsgroups requesting help
re******@pcdatasheet.com

--
Over 450 users from the newsgroups have visited the website to read what
kind of a 'resource' you are... (rapidly increasing..)
http://home.tiscali.nl/arracom/whoissteve.html

Sorry, siglines not approved...
-- Please don't mention anything concerning fees
-- Please don't mention xxxx users requesting help
This is just blatantly jobhunting.

Your 'old' siglines would be no (big) problem.
Get it?

Arno R
Mar 9 '06 #29
Still totally irrelevant. As usual.

This newsgroup is for FREE support. Not $1, $100, $1K, $18K or $25K, just
free. Arguing over the cost is therefore pointless. Free is free.

John... Visio MVP

"Steve" <no****@nospam.spam> wrote in message
news:2S****************@newsread2.news.atl.earthli nk.net...
If a person is willing to pay $18,000 to $25,000 for a new car. To him, a
car with a price tag of $18,500 is VERY reasonable, one with a price tag
of $21,000 is reasonable and one wit a price tag of $25,000 is not very
reasonable.


Mar 9 '06 #30

"Steve" <no****@nospam.spam> schreef in bericht news:HW*****************@newsread2.news.atl.earthl ink.net...
INDEED, you A@#&%$!!! Your pal, osmethod, just suggested I mention fees in
my signature line.

<<Common courtesy would have you mention this "Upfront Charge" in your
post.>>

INDEED, I am taking his advise and just being courtesy.


Why don't you take my advice to revert to your 'old' siglines?
That would be a far better idea. I would stop hunting all your posts immediately.

Btw:
Over 475 (not 450) users from the newsgroups have visited the website to read what kind of a 'resource' you are... (rapidly increasing..)
http://home.tiscali.nl/arracom/whoissteve.html

Arno R
Mar 9 '06 #31
Steve wrote:
INDEED, you A@#&%$!!! Your pal, osmethod, just suggested I mention fees in
my signature line.

1. A@#&%$!!! - Immature
2. Your pal - Presumption
<<Common courtesy would have you mention this "Upfront Charge" in your
post.>>

INDEED, I am taking his advise and just being courtesy.
3. Courteous - Syntactical

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
4. Very Reasonable Fees - Misrepresentation
Over 1150 users have come to me from the newsgroups requesting help
re******@pcdatasheet.com

Now, can you see where your problem is. You've abstracted what I said
to an incorrect
context. Similarly, you mislead others when advising them to email you
for assistance. Assistance, to me, doesn't imply a fee... and even
worse when the fee is outlandish to the proportion of work offered in
the first place.

osmethod

Mar 9 '06 #32
INDEED, five A@#&%$s BEAT a fullhouse!!!
<os******@eircom.net> wrote in message
news:11**********************@z34g2000cwc.googlegr oups.com...
Steve wrote:
INDEED, you A@#&%$!!! Your pal, osmethod, just suggested I mention fees
in
my signature line.

1. A@#&%$!!! - Immature
2. Your pal - Presumption
<<Common courtesy would have you mention this "Upfront Charge" in your
post.>>

INDEED, I am taking his advise and just being courtesy.


3. Courteous - Syntactical

--
PC Datasheet
Your Resource For Help With Access, Excel And Word
Applications


4. Very Reasonable Fees - Misrepresentation
Over 1150 users have come to me from the newsgroups requesting
help
re******@pcdatasheet.com

Now, can you see where your problem is. You've abstracted what I said
to an incorrect
context. Similarly, you mislead others when advising them to email you
for assistance. Assistance, to me, doesn't imply a fee... and even
worse when the fee is outlandish to the proportion of work offered in
the first place.

osmethod

Mar 10 '06 #33
"Steve" <no****@nospam.spam> wrote in message
news:2S****************@newsread2.news.atl.earthli nk.net...

If a person is willing to pay $18,000 to $25,000 for a new car.
The above is not a sentence.
To him
To whom?
, a car with a price tag of $18,500 is VERY reasonable,
How do you know?
one with a price tag of $21,000 is reasonable and one wit
You're not even a half wit. Price and percieved value would depend on the
type of car and, if used, age, mileage, etc.
a price tag of $25,000 is not very reasonable.


For a Ferrari? I disagree. That would be a bargain. A *very* bargain.
Mar 10 '06 #34
mine is E drive same way
Steve wrote:
A Cd is ususually the D drive. From the Help file:

' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

Change C in above to D. Add a recordset and the AddNew and Update methods of
the recordset to the above loop to write each folder name to a table.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1150 users have come to me from the newsgroups requesting help
re******@pcdatasheet.com

"Shyguy" <sh****@aol.com> wrote in message
news:2c********************************@4ax.com...
Is it possible, and if so how would I read and import folder names
from a CD to a table?

Thank you for any help.


Mar 10 '06 #35
mine is E drive same way
Steve wrote:
A Cd is ususually the D drive. From the Help file:

' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

Change C in above to D. Add a recordset and the AddNew and Update methods of
the recordset to the above loop to write each folder name to a table.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1150 users have come to me from the newsgroups requesting help
re******@pcdatasheet.com

"Shyguy" <sh****@aol.com> wrote in message
news:2c********************************@4ax.com...
Is it possible, and if so how would I read and import folder names
from a CD to a table?

Thank you for any help.


Mar 10 '06 #36

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

2
by: Josh | last post by:
Currently we open a form and manualy place the pic in each new record. I need someway for to give Access a folder and then have it import each pic it finds in the folder and place the file name in...
4
by: Regnab | last post by:
I'm automating the import of all text files into Access from a source folder. I was getting the "Field 'F1' doesn't exist in destination table" error, so I checked it out on the net and it said to...
4
by: Moondog | last post by:
I have a set of files I would like to import into Visual Studio. It is a web application written in C#. I've tried everything but am having a helluva time getting it to run without errors. Need...
2
by: Shyguy | last post by:
I almost dread posting this after the ruckas it caused last time, but I am totally lost. The reply I recieved last time is copied below... ------ ' Display the names in C:\ that represent...
17
by: mohan | last post by:
Hi Guys, I've been using the following IDE, "Pythonwin - Python IDE and GUI Framework for Windows. Copyright 1994-2001 Mark Hammond " With respect to my work, I had created my own modules...
1
by: cbz9633 | last post by:
hi i want to read a folder name, after that read folder names within that folder and at last the file name and access it, that i know but i dont know how to read a folder name. please help
0
by: alivip | last post by:
Is python provide search in parent folder contain sub folders and files for example folder name is cars and sub file is Toyota,Honda and BMW and Toyota contain file name camry and file name corola,...
11
by: alivip | last post by:
how to ingrate my code to read text in in parent folder contain sub folders and files for example folder name is cars and sub file is Toyota,Honda and BMW and Toyota contain file name Camry and...
2
by: BlackEyedPea | last post by:
Hi I have no coding experience but am using access 2003 on XP in the hope that I can find some code that will.... Search a folder in my network & import any excel spreadsheets it finds within...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
0
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.