Simple question regarding loop.

[Doxie]

This is not working, complains about overflow...

First()
Second()
Exit

Func First()
Run("net use z: \\server\share /user:**** ***** /y")
EndFunc

Func Second()
$var = DriveStatus( "z:\" )
IF $var = "READY" THEN
    FileCopy("z:\test2.txt", "C:\")
    Run("net use z: /d")
Else
    Second()
EndIf
Sleep(5000)
EndFunc
Exit

How can i make it continue testing the DriveStatus and proceed when ready?

I could use a simple "Sleep" command, but since the time it take to map the drive vary alot, it would be best if it could just check when its done.

Any suggestions?

[pekster]

How can i make it continue testing the DriveStatus and proceed when ready?

Try this:

First()
Second()
Exit

Func First()
  Run("net use z: \\server\share /user:**** ***** /y")
EndFunc

Func Second()
  While DriveStatus("z\") <> "READY"
    Sleep(100)
  WEnd
  FileCopy("z:\test2.txt", "C:\")
  Run("net use z: /d")
  Sleep(5000)
EndFunc
Exit

Note how I don't use a recursive function call when it could theoretically call up to the max allowed recursion level. Use a while loop instead for that.

[Doxie]

This seems to work

Else
    Sleep(5000)
    Config()
EndIf
EndFunc

I just moved the sleep command, and now it does not complain about overflow.

[Doxie]

Thanks Pekster

I need to learn more about the while loops

Your code look much better then my desperate attempt.

:iamstupid:

[Doxie]

I remade the whole script, now it looks like this.

Run("net use z: \\server\share /user:***** ***** /y")

 While DriveStatus("z:\") <> "READY"
   Sleep(100)
 WEnd
 FileCopy("z:\*.*", "d:\")
Run("net use z: /d")
Sleep(5000)
Exit

Less code, but doing the job better

PS. I really like to use the smilies