Acelerar Archivo.Existe para recursos compartidos de red no existentes

Tengo que comprobar si un conjunto de rutas de archivo representan un archivo existente.

Funciona bien excepto cuando la ruta contiene un recurso compartido de red en una máquina que no está en la red actual. En este caso, se necesita un tiempo bastante largo (30 o 60 segundos) para que el tiempo de espera.

Preguntas

• ¿Hay alguna manera de acortar el tiempo de espera para los recursos compartidos de red no existentes? (Estoy seguro de que cuando existan responderán rápidamente, por lo que un tiempo de espera de 1 segundo sería fine)

• ¿Hay alguna otra manera de resolver este problema sin comenzar a almacenar en caché y hacer que el algoritmo sea más complejo? (es decir, ya sé que estos recursos compartidos de red X no existen, omita el resto de las rutas coincidentes)

ACTUALIZACIÓN: El uso de hilos de trabajo, no particularmente elegante, aunque

public bool pathExists(string path) 
{
    bool exists = true;
    Thread t = new Thread
    (
        new ThreadStart(delegate () 
        {
            exists = System.IO.File.Exists(path); 
        })
    );
    t.Start();
    bool completed = t.Join(500); //half a sec of timeout
    if (!completed) { exists = false; t.Abort(); }
    return exists;
}

Esta solución evita la necesidad de un subproceso por intento, primero verifique qué unidades son accesibles y guárdelas en algún lugar.

Intercambio de expertos solución:

En primer lugar, hay un valor de "tiempo de espera" que puede establecer en la función IsDriveReady. Lo tengo configurado por 5 segundos, pero lo puse para lo que funcione para ti.

3 métodos se utilizan a continuación:

1. La primera es la función API de WNetGetConnection que obtiene UNC (\servername\share) de la unidad
2. El segundo es nuestro método principal: El evento button1_Click
3. La tercera es la función IsDriveReady eso hace sonar al servidor.

Esto funcionó muy bien para mí! Aquí tienes:

'This API Function will be used to get the UNC of the drive
Private Declare Function WNetGetConnection Lib "mpr.dll" Alias _
"WNetGetConnectionA" _
(ByVal lpszLocalName As String, _
ByVal lpszRemoteName As String, _
ByRef cbRemoteName As Int32) As Int32


'This is just a button click event - add code to your appropriate event
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim bIsReady As Boolean = False

    For Each dri As IO.DriveInfo In IO.DriveInfo.GetDrives()

        'If the drive is a Network drive only, then ping it to see if it's ready.
        If dri.DriveType = IO.DriveType.Network Then

            'Get the UNC (\\servername\share) for the 
            '    drive letter returned by dri.Name
            Dim UNC As String = Space(100)
            WNetGetConnection(dri.Name.Substring(0, 2), UNC, 100)

            'Presuming the drive is mapped \\servername\share
            '    Parse the servername out of the UNC
            Dim server As String = _
                 UNC.Trim().Substring(2, UNC.Trim().IndexOf("\", 2) - 2)

            'Ping the server to see if it is available
            bIsReady = IsDriveReady(server)

        Else
            bIsReady = dri.IsReady

        End If

        'Only process drives that are ready
        If bIsReady = True Then
            'Process your drive...
            MsgBox(dri.Name & " is ready:  " & bIsReady)

        End If

    Next

    MsgBox("All drives processed")

End Sub

Private Function IsDriveReady(ByVal serverName As String) As Boolean
    Dim bReturnStatus As Boolean = False

    '***  SET YOUR TIMEOUT HERE  ***
    Dim timeout As Integer = 5    '5 seconds

    Dim pingSender As New System.Net.NetworkInformation.Ping()
    Dim options As New System.Net.NetworkInformation.PingOptions()

    options.DontFragment = True

    'Enter a valid ip address
    Dim ipAddressOrHostName As String = serverName
    Dim data As String = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
    Dim buffer As Byte() = System.Text.Encoding.ASCII.GetBytes(data)
    Dim reply As System.Net.NetworkInformation.PingReply = _
                pingSender.Send(ipAddressOrHostName, timeout, buffer, options)

    If reply.Status = Net.NetworkInformation.IPStatus.Success Then
        bReturnStatus = True

    End If

    Return bReturnStatus
End Function