By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
425,811 Members | 785 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 425,811 IT Pros & Developers. It's quick & easy.

Read and Import folder names from a CD?

P: n/a
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
Share this Question
Share on Google+
35 Replies


P: n/a
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

P: n/a
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

P: n/a

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

P: n/a
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

P: n/a
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

P: n/a

"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

P: n/a
<<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

P: n/a
"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

P: n/a
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

P: n/a
"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

P: n/a
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

P: n/a
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

P: n/a
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

P: n/a
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

P: n/a
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

P: n/a
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

P: n/a
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

P: n/a
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

P: n/a
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

P: n/a
<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

P: n/a
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

P: n/a
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

P: n/a
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

P: n/a
"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

P: n/a

"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

P: n/a
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

P: n/a
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

P: n/a
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

P: n/a
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

P: n/a

"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

P: n/a
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

P: n/a
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

P: n/a
"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

P: n/a
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

P: n/a
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 discussion thread is closed

Replies have been disabled for this discussion.