_FileExistsTimeout()

[Gibbo]

Hi All, 
I went searching for something to speed up checking for files on the network (UNC Paths)

Most examples were rather complicated but someones multi-threaded solution gave me an idea.

Hope it is useful to someone.

Seems to work well so far. 
 

Func _FileExistsTimeout($sPath, $iTimeout = 1000)
    Local $hTimer = TimerInit() ; Begin the timer and store the handle in a variable.
    Local $iPID = Run(@AutoItExe & ' /AutoIt3ExecuteLine  "ConsoleWriteError(FileExists(""' & $sPath & '""))"', @ScriptDir, @SW_HIDE, $STDERR_CHILD)
    Local $sOutput = ""
    Local $iDiff = 0
    While $iDiff < $iTimeout
        $iDiff = TimerDiff($hTimer)
        $sOutput &= StderrRead($iPID)
        If @error Then ; Exit the loop if the process closes or StderrRead returns an error.
            ExitLoop
        EndIf
    WEnd
    ProcessClose($iPID)
    Switch StringStripWS($sOutput, 8)
        Case 1
            Return True
        Case Else
            Return False
    EndSwitch
EndFunc   ;==>_FileExistsTimeout