RéseauRésolu

Question

Je fais une application qui va chercher des fichiers sur le r&#233;seau pour les installer.
si aucours de l'installation, le r&#233;seau tombe, jaimerais afficher un message indiquant qu'il n'y a plus de r&#233;seau.
je pensais passer par un timer qui verifirait toutes les 2 secondes si le fichier existe avecla fonction trouv&#233;e sur vbfrance :

Public Function IsExist(file As String) As Boolean
    Dim FileInfo
    'initialisation
    IsExist = True
    On Error Resume Next
    'instruction sur le fichier on s'occupe pas du r&#233;sultat
    'ce qui nous interesse c'est la gestion d'erreur
    FileInfo = FileDateTime(file)
    Select Case Err
        Case 53, 76, 68 'le fichier n'existe pas
            IsExist = False
            Err = 0
        Case Else
            If Err <> 0 Then MsgBox "Erreur inconnue D&#233;tect&#233;e:" + vbCrLf + "    " + Err, vbOKOnly + vbExclamation, "Erreur Inconue"
    End Select
End Function

Le probl&#232;me est que m&#234;me quand je d&#233;brance le cable r&#233;seau, il trouve le fichier ??!

Avez vous une autre technique pour v&#233;rifier que le cable r&#233;seau est d&#233;branch&#233; et qu'il ny a plus de reseau, ou pour verifier qun fichier existe ou non m&#234;me quand le reseau tombe en pleine utilisation?

merci davance

BasicInstinct · Accepted Answer

'lut

essaie avec les api

Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

renvoie Vrai si le fichier existe
Faux sinon

++

 BasicInstinct

cs_Jack · Answer

Si, une fois le r&#233;seau coup&#233;, il te dit encore que le fichier est l&#224;, c'est qu'il questionne le buffer et ne repose pas la question au mat&#233;riel.
Tu peux utiliser le FileSystemObject (FSO) qui a une fonction  .IsReady  sur un Drive, qui te renvoie True ou False :
Mettre le fichier System32\SCRRUN.DLL dans les pr&#233;f&#233;rences (menu Projet, Pr&#233;f&#233;rence)

Dim Sys As Object, Bureautique As Object
Set Sys = CreateObject("Scripting.FileSystemObject")
Set Bureautique = Sys.GetDrive("N:")
If Not Bureautique.IsReady Then MsgBox "Serveur inaccessible"

Bien s&#251;r, les 3 1ere lignes auraient avantage &#224; &#234;tre plac&#233;e dans un Module et d&#233;finie qu'une seule fois pour tout le projet.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_cmora · Answer

merci beaucoup !! tout marche maintenant !

Réseau

3 réponses

Discussions similaires