Test lecture sur disque réseau

Résolu/Fermé

RomainESIPE Messages postés 6 Date d'inscription mardi 5 juillet 2016 Statut Membre Dernière intervention 6 juillet 2016 - Modifié par jordane45 le 5/07/2016 à 17:34
RomainESIPE Messages postés 6 Date d'inscription mardi 5 juillet 2016 Statut Membre Dernière intervention 6 juillet 2016 - 6 juil. 2016 à 12:49

Bonjour,

Je développe sous vb.net avec Visual Studio 2015.

Je souhaite tester si j'arrive à me connecter à un disque réseau.

Pour faire ceci, j'ai mis dans un try une ligne de code permettant d'ouvrir un fichier bloc notes situé sur ce réseau et si le try ne fonctionne pas alors j'affiche un message d'erreur.

Problème : le try passe bon même quand le disque n'est pas connecter. Et un message d'erreur apparaît : « le chemin d’accès spécifié est introuvable. »

Y aurait-il un moyen pour que le message ne s’affiche pas et que mon try détecte l’erreur ??

Ou alors un autre moyen plus simple ou plus complet de tester la connexion à un disque réseau !!

Merci d’avance pour vos réponses !!!

Voici le code en question :

Dim TestCo As Boolean
        Try

         
            Dim startInfo As New ProcessStartInfo("notepad.exe")
            startInfo.WindowStyle = ProcessWindowStyle.Minimized
            startInfo.Arguments = "H:\URL.txt"
            Process.Start(startInfo)

            TestCo = True

        Catch ex As Exception 'ne voit pas le "try" mauvais

            TestCo = False
            MsgBox("Erreur de connexion")

        End Try

Cordialement,

EDIT : Ajout des balises de code

A voir également:

Test lecture sur disque réseau
Test performance pc - Guide
Cloner disque dur - Guide
Defragmenter disque dur - Guide
Test vitesse disque dur - Guide
Confirmation de lecture whatsapp - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
6 juil. 2016 à 12:02

Bonjour,

Une piste:

 If My.Computer.FileSystem.FileExists("H:\URL.txt") Then'si fichier existe
            Dim startInfo As New ProcessStartInfo("notepad.exe")
            startInfo.WindowStyle = ProcessWindowStyle.Minimized
            startInfo.Arguments = "H:\URL.txt"
            Process.Start(startInfo)
        Else
            MsgBox("Fichier inconnu.")
        End If

RomainESIPE Messages postés 6 Date d'inscription mardi 5 juillet 2016 Statut Membre Dernière intervention 6 juillet 2016
6 juil. 2016 à 12:49

merci à toi !!
J'avais hésité avec un truc dans ce genre et je vois que d'autre personne le conseil alors je vais prendre ça !! ^^

Discussions similaires

Branchez le câble réseau du player freebox

Retrouver l'image originale après avoir fait des modifications ?

Livebox s'allume mais marque pas de réseau orange

Erreur de lecture sur iptv smarters

Discussions similaires

Newsletters