Board index » Visual Studio » Loop without Do

Visual Studio81
Hi,



I'm using the code below: It's almost an exact paste of sample code shown

for "DIR" in the Help.



I keep getting the Compile Error: 'Loop Without Do', but I DO have a DO.

All I'm trying to do is determine whether a certain directory exists, not

any files in the directory. In other words, I want to get a message back

that the directory does/doesn't exist. I don't care right now what files

might be in that directory, I just want to know if it exists.



I suspect it's an obvious error, but I can't see it:

-------------------

Option Explicit

Option Compare Text

' Display the names in 'C:\Program Files' that represent directories.



Private Sub Form_Click()

Dim MyPath As String

Dim MyName As String



MyPath = "c:\program files\" ' 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



End If

MyName = Dir ' Get next entry.

Loop



End Sub

---------------------



Dir, Loop, Do, Do while, etc., in Help, all seem to indicate I'm OK. What

the heck as I doing wrong?



TIA,



Pop`


-

missing one end if

:-)



"Pop`" <nodoby@devnull.spamcop.net>wrote in message



-

Oh, good grief! Thanks!



Pop`





MP wrote:





-

"Pop`" <nodoby@devnull.spamcop.net>wrote in message



Remember that if you ever get the similar "Next without For" error, or

basically any error that says "<end construct>without <beginning

construct>." That's your red flag that there's something in the middle

that's not "closed."





-

I once wrote this to the NG :-), Should have added your one as well:-)





I hate VB 6 because:



In break mode I alter a line of code within a select case statement and I

get a msgbox saying 'This action will reset your project'



When it tells me 'Constant expression required', even though the contstant

is declaired. So then I have to save the project, shut it down then restart.



When the line method tells me 'Wrong number of arguments or invalid property

assingments'. So I comment out the line, re run the project, stop the

project, uncomment the line then all is well.



When the Find dialog box has the Find Next button disabled.



When it tells me I have 'Next without For' when in fact it should be If

without End If



The Immediate Window pops up when it's not being used.



Anything with a Scalemode property defaults to Twips.



But these are nothing compared to the very worst problem with using VB6. The

biggest bug I have found is - it does what I told it to do, instead of what

I wanted it to do.

Does any one have a solultion to this that does not involve kicking the cat

or punching the screen.



But!!! all the above is outweighed by the things I like about VB6



Thanks



Ivar





-

I am pretty sure Microsoft plans to fix all those problems you mentioned in

the next release of VB.



<LOL>... I crack me up!...<LOL>



Rick



-

Jeff Johnson wrote:

Good advice; thanks, I will! Even added it to my notes til it becomes more

second nature.

Guess I stared at it for too long; no excuses, just stupid chair error.



Pop`





-

Ivar wrote:

- it does what I told it to do,

Yeah! I've been muttering that to myself several times a day lately it

seems<g>! I'm still too ignorant to have a love/hate with it yet, but I'll

get there!



Pop`



Here's one: Go ahead and expose all your ignorance, lack of forethought,

bad habits and unintentional laziness for all to see clearly, by posting it

here for help that it turns out I didn't need in the first place IFF only

... .

It helps, but I still make really dumb mistakes.



Cheers,





Pop`







-

"Ivar" <ivar.ekstromer000@ntlworld.com>wrote in message



My all time favorite VB screw up was when I once applied thoughtful naming

conventions to my class and dutifully declared a class member as ...



Private mID As Long



I then spent a really embarrassingly amount of time trying to figure out why

my Properties and Calls that used it were returning "Mismatched Type" and

"Wrong number of arguments or invalid property assingments" errors at

runtime.



<g>

-ralph









-

"Ivar" <ivar.ekstromer000@ntlworld.com>wrote in message



Why rule out kicking the cat? Seems like a good idea to me. If your cat was

much larger than it is then it would certainly enjoy kicking you, whether

you annoyed it or not, and it would get a lot of fun out of doing so. It

only sucks up to you and pretends to be friendly because you're bigger than

it and you provide the food. It doesn't really mean it. All cats are cruel

and vicious creatures. Only a small percentage of humans (or any other

animal) behave similarly.



Mike





-

And what...dogs are any better? If a dog were a person it would be put away

because it was unintelligent, codependant and made noise for no other reason

than because it could. People who own cats enjoy a mutual respect, people

who own dogs are looking for something to control because it's the classic

dominant/submissive relationship. And what dogs owners mistake as

unconditional love is nothing more than codependancy. Ignore a cat and it

will punish you by ignoring you right back. Ignore a dog and it will whine,

moan, destory furniture and urinate/crap all over the place because it isn't

smart enough to do anything else. Also, cats can be box trained, dogs

cannot. If you kick a cat, it will scowl and ignore you days as punishment,

if you kick a dog, it typically comes back for more.



So if any pet should be kicked, it's the dog...since you brought it up. And

maybe a good swift kick for the dog owner as well since they are typically

just as demonic.



"Mike Williams" <mikea@whiskyandCoke.com>wrote in message

| "Ivar" <ivar.ekstromer000@ntlworld.com>wrote in message

| news:RZbKi.165$%q2.139@newsfe1-gui.ntli.net...

|

|>The biggest bug I have found is - it does what I told it to

|>do, instead of what I wanted it to do. Does any one have

|>a solultion to this that does not involve kicking the cat . . .

|

| Why rule out kicking the cat? Seems like a good idea to me. If your cat

was

| much larger than it is then it would certainly enjoy kicking you, whether

| you annoyed it or not, and it would get a lot of fun out of doing so. It

| only sucks up to you and pretends to be friendly because you're bigger

than

| it and you provide the food. It doesn't really mean it. All cats are cruel

| and vicious creatures. Only a small percentage of humans (or any other

| animal) behave similarly.

|

| Mike

|

|





-

"Kevin Provance" <casey@tpasoft.com>wrote in message

<cut>

That is incorrect, at least for many dogs. I know of a few that use a

litterbox and many that are paper trained. It's less common certainly, but

not unheard of.





-

Ralph wrote:

(with the same frustration)



Pop` - you need to sleep occasionally. When you wake up, and have another look,

quite often you get "Bugger! THAT's the problem" <bg>



I've had the same problem. I find it easier to look through the indentation

(ignore the contents) to find the matching structures to see where I've left out

a structure close statement (eg IF.. Endif - it's a classic for a DO.. Loop)

I've done it so often, I don't even get embarrassed about it anymore - pissed

orf (sic), yes.



Graham

-

"Bob Butler" <noway@nospam.ever>wrote in message

up than when they just do their business anywhere in the yard!







-

Fair enough. I'll modify my argument then to say that to train a dog to use

a "place" to do their business, it can take many months of grueling

training. You drop a kitten in a litterbox and it picks up the concept

almost instantly...or so has been my experience.



"Bob Butler" <noway@nospam.ever>wrote in message

| "Kevin Provance" <casey@tpasoft.com>wrote in message

| news:eff3A07$HHA.5328@TK2MSFTNGP05.phx.gbl...

| <cut>

|>Also, cats can be box trained, dogs cannot.

|

| That is incorrect, at least for many dogs. I know of a few that use a

| litterbox and many that are paper trained. It's less common certainly,

but

| not unheard of.

|

|





-

What does IFF stand for?





Rob





-

Robert Morley wrote:

Mostly that I was typing with my palms again; nothing more. Like I said ...

what I meant, not ... ;-}



Pop`





-

argusy wrote:

lol, if I ever get to where I'm not embarassed about it, I'll consider

myself almost useful with VB.



Cheers,



Pop`





-

"Kevin Provance" <casey@tpasoft.com>wrote in message



I Agree with you there, Kevin. Kick the dog. Then kick the cat.



Mike





-

Can I suggest kicking the housefly instead? It's much less cruel (at least in most peoples' minds), generally serves no purpose,

but if you ARE lucky enough to succeed, you'll only have gotten rid of an annoying pest.



Of course, if you ARE going to kick a dog or a cat, may I suggest a Doberman, Rottweiler, or for cats, maybe one of the greater cats

like a panther. Typically, one will very quickly develop an appreciation for things from the animal's point of view in most of

these cases, as it turns on you and returns the favour.





Rob



"Mike Williams" <mikea@whiskyandCoke.com>wrote in message news:e8mOBIBAIHA.3548@TK2MSFTNGP06.phx.gbl...



-

"Robert Morley" <rmorley@magma.ca.N0.Freak1n.sparn>wrote in message

I doubt even kicking houseflies would pass PETA - as they support only

nonlethal methods in pest control.



It looks like we are back to punching the monitor. Which should be PC until

AI arrives. <g>



-ralph





-

"Ralph" <nt_consulting64@yahoo.com>wrote in message news:Ovb57SFAIHA.4732@TK2MSFTNGP04.phx.gbl...

Woohoo! Kick the robot cat/dog! Which will be PC until their AI evolves sufficiently for them to demand the same rights as

biological cats & dogs, at which point we will devolve their AI to that of a biological cat or dog, and they will no longer be able

to demand those rights, thus creating an infinite loop...at least until millennia from now, cats & dogs learn to speak for

themselves.



(Boy do I ever get convoluted when I haven't had my morning coffee yet!)





Rob





-

Do what I have always done....

Whenever I open an If - End If

Select - End Select

Do -Loop, et al...



I close it BEFORE I put ANYTHING inside it.

Just make it a habit.



Long live VB Classic.





On Sep 25, 5:01 pm, argusy <arg...@slmember.on.net>wrote:



-

bojo wrote:

So do I, believe it or not. But, after commenting out, uncommenting,

adding, deleting, pasting and otherwise bastardizing the poor thing, I

sometimes (as in my latest dumb query here) leave something commented out

that I shouldn't have. Due to my poor structuring habits, it looked like

the "End If" I commented out belonged to the commented code above it; which

it didn't.



So, great as that advice is, ALSO keep code structures ACCURATE! I find

structure at this early point in my experience to be my second worst habit

to fix. The first one is to THIMK more from around the box edges<g>.

Forest, tree ... .



Cheers,



Pop`









-

In case you don't have it, or something similar, you might find Stephen

Bullen's 'Smart Indenter' useful.



www.oaltd.co.uk/Indenter/Default.htm">www.oaltd.co.uk/Indenter/Default.htm



Regards,

Peter T



"Pop`" <nodoby@devnull.spamcop.net>wrote in message



-

Hmm, thanks, I'll try that out. It would have helped in this case.



Regards,



Pop`





Peter T wrote:





-

Just a short note: That app does a pretty decent job of balancing the

pages. Think I'll keep it around.



Pop`





Peter T wrote:





-

"Pop`" <nodoby@devnull.spamcop.net>wrote in message

Doesn't MZTools have that functionality built in?





--

Ken Halter - MS-MVP-VB - Please keep all discussions in the groups..

In Loving Memory - www.vbsight.com/Remembrance.htm">www.vbsight.com/Remembrance.htm





-

Ken Halter wrote:

I just went and looked again to be sure. No, not that I can find, at least.

If I'm mistaken, I'd love to be corrected since it'd eliminate an add-in,

but I don't think I am.

Tab/Shift-Tab a highlighted block does work of course, but that's not

what the thread's about.



Regards,



Pop`





-

"Pop`" wrote in message

I wasn't quite sure if Ken's question was rhetorical but I double checked

too. If similar functionality is built in to MZTools it's kept at a very low

profile.



FWIW I've had 'Smart Indenter' permanently set to Load at start-up since the

VB6 version was available (having used the VBA version for a long time

previously). Never had a problem with it and wouldn't want to lose it. I

couldn't estimate how many little riddles like the one you posted it has

solved for me!



Regards,

Peter T





-

Peter T wrote:

Thanks, your confidence-comment on the add in is appreciated. I can't see

where it's borked anything so I left it on; need all the help I can get<g>.

Played just a tad with the Options and have it looking pretty great. It's a

good addition.



Pop`





-

"Pop`" <nodoby@devnull.spamcop.net>wrote in message

fwiw, I've been using CodeSMART since version 3.x... now, I can't leave home

without it <g>It's not free, but the time saving features, shortcuts and

macros pay for themselves many times over.



The indenter will reformat single procedures, up to entire project groups. I

use it mostly for snips I copy/paste from here and there (mostly here <g>)

The indenter will also wrap lines at a specific length, inserting the

continuation character when needed... very handy for posting code to

newsgroups <g>... you can set it to add blank lines at specific points to

keep things readable. It'll optionally remove all existing blank lines

before starting the process, to keep things neat and tidy <g>



I haven't even mentioned the enhanced immediate window, file comparison

tools or the transparent lines that connect If with its matching End If/Do

with it's Loop, etc, etc.... well, here. Check it out for yourself, if

interested.



www.axtools.com/products/codesmart.htm">www.axtools.com/products/codesmart.htm





--

Ken Halter - MS-MVP-VB - Please keep all discussions in the groups..

In Loving Memory - www.vbsight.com/Remembrance.htm">www.vbsight.com/Remembrance.htm





-

"Ken Halter" <Ken_Halter@Use_Sparingly_Hotmail.com>wrote in message



How do you manage to see these transparent lines? Are special goggles

provided? ;-)



Mike





-

Ken Halter wrote:

Hoo, that looks great. I used to use something similar but a lot less power

for Ahston Tate's dBase; the "transparent lines" you mention were life

savers. Unfortunately it's a bit out of my budget grasp right now but who

knows what tomorrow might bring? I tucked the link away with a note who

it's from; maybe someday.



Best Regards,



Pop`





-

"Mike Williams" <mikea@whiskyandCoke.com>wrote in message

Ok.... Semi-transparent, then (geez <g>)



--

Ken Halter - MS-MVP-VB - Please keep all discussions in the groups..

In Loving Memory - www.vbsight.com/Remembrance.htm">www.vbsight.com/Remembrance.htm





-