Vista - err object and looping

I have a script that reads folders for files, and then opens them and
e-mails them if they exist.

I have some trouble where if the file is still being created when I discover
it, the script fails.

I've used err.number for other things, but I'm not sure if this will work:
can you loop around an err.number?
like this:

fName = LCase(f1.name)
writelog("Opening File: "&fname) ' Writelog is a separate
function
Set f2 = fso.opentextfile(folderspec3&"\"&fname)
Do While err.number <> 0
Writelog ("Error: " & err.description & "Encountered, Waiting
30 Seconds")
wscript.sleep 30000
Set f2 = nothing
err.clear
Set f2 = fso.opentextfile(folderspec3&"\"&fname)
Loop

"Lee" <ldspmAT@xxxxxx> wrote in message
news:AA60D3FC-CD7C-408D-86B0-F735BB9F078A@xxxxxxYes, you can run a loop like yours, provided that you precede it with "on
error resume next". You should also remove the statement "Set f2 =
nothing" - it only generates additional errors which can confuse the issue.

If you wish to test for the existence of your file then the oFSO.FileExists
method would be a more elegant solution.

On Feb 25, 11:05*am, "Lee" <ldsp...@xxxxxx> wrote:Sure, but you need to take control of the error trapping from the host
with an

On Error Resume Next

statement, maybe something like this ...

On Error Resume Next ' take control of error trapping
Do
err.clear
Set f2 = fso.opentextfile(folderspec3&"\"&fname)
if err.Number <> 0 then
Writelog ("Error: " & err.description _
& "Encountered, Waiting 30 Seconds")
wscript.sleep 30000
Set f2 = nothing
else
exit do
end if
Loop
On Error Goto 0 ' return control to the host

Tom Lavedas
***********
http://there.is.no.more/tglbatch/

"T Lavedas" <tglbatch@xxxxxx> wrote in message
news:675d9b87-5bfd-4261-a51b-6b4071422beb@xxxxxx
On Feb 25, 11:05 am, "Lee" <ldsp...@xxxxxx> wrote:Sure, but you need to take control of the error trapping from the host
with an

On Error Resume Next

statement, maybe something like this ...

On Error Resume Next ' take control of error trapping
Do
err.clear
Set f2 = fso.opentextfile(folderspec3&"\"&fname)
if err.Number <> 0 then
Writelog ("Error: " & err.description _
& "Encountered, Waiting 30 Seconds")
wscript.sleep 30000
Set f2 = nothing
else
exit do
end if
Loop
On Error Goto 0 ' return control to the host

Tom Lavedas
***********

=============

You might want to consider other reasons for such a failure, as these might
not all resolve themselves. If, for example, the folderspec3 refers to a
mapped folder that is no longer mapped... or if you have only read access...

/Al

it's a local file on the C:\ Drive.

I do an err.clear before this part of the script, and I have on error resume
next already in place.