How can I change a FOR EACH loop to a DO WHILE loop?

[AutoShutdown]

How can I change a FOR EACH loop to a DO WHILE loop?
I have this code...
For Each objFile In objFolder.Files
response.write objFile.Name
Next

Actually this code is part of a file, used to fetch Image(.jpeg)
file and check wether it is registered or not.
The 'objFile' is the Image file
and objFolder.Files is the Folder.

How can I change it to a DO WHILE loop?

Thanks.

--
AutoShutdown
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------

[Mike Brind]

AutoShutdown wrote:

How can I change a FOR EACH loop to a DO WHILE loop?
I have this code...
For Each objFile In objFolder.Files
response.write objFile.Name
Next

Actually this code is part of a file, used to fetch Image(.jpeg)
file and check wether it is registered or not.
The 'objFile' is the Image file
and objFolder.Files is the Folder.

How can I change it to a DO WHILE loop?

Thanks.

--
AutoShutdown
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------

Why do you want ot change it? What condition are you checking for?

--
Mike Brind

[Mike Brind]

AutoShutdown wrote:

How can I change a FOR EACH loop to a DO WHILE loop?
I have this code...
For Each objFile In objFolder.Files
response.write objFile.Name
Next

Actually this code is part of a file, used to fetch Image(.jpeg)
file and check wether it is registered or not.
The 'objFile' is the Image file
and objFolder.Files is the Folder.

How can I change it to a DO WHILE loop?

Thanks.

--
AutoShutdown
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------

Why do you want to change it? What condition are you checking for?

--
Mike Brind

[Anthony Jones]

"AutoShutdown" <Au*****************@mail.codecomments.com> wrote in message
news:Au*****************@mail.codecomments.com...

How can I change a FOR EACH loop to a DO WHILE loop?
I have this code...
For Each objFile In objFolder.Files
response.write objFile.Name
Next

Actually this code is part of a file, used to fetch Image(.jpeg)
file and check wether it is registered or not.
The 'objFile' is the Image file
and objFolder.Files is the Folder.

How can I change it to a DO WHILE loop?

Thanks.

--
AutoShutdown
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------

Dim i
Dim oFiles
Dim oFile

i = 1
oFiles = objFolder.Files
Do While i <= oFiles.Count
Set oFile = oFiles(i)
Response.Write oFile.Name
i = i + 1
Loop

But like Mike says why would you want this?