none
detection de peripherique connecter RRS feed

  • Question

  • bonjour,

    je voudrais réaliser une application qui lorsque un périphérique usb est connecter affiche un message dans un label que je définirais.

    mais je vois pas comment m'y prendre.

    merci de votre aide.


    Cardinal dev


    mardi 26 janvier 2016 02:06

Réponses

  • Dans une function ou au click d'un bouton le code ci-dessous
     Dim drives As DriveInfo()
            drives = DriveInfo.GetDrives()
    
            For i As Integer = 0 To drives.Length - 1
    
                If drives(i).DriveType = DriveType.Fixed Then
                    Debug.Print(drives(i).Name & " - Disque dur")
                    Debug.Print("*************************************")
                    TypeDisque(drives(i))
                End If
                If drives(i).DriveType = DriveType.CDRom Then
                    Debug.Print(drives(i).Name & " - Lecteur CD - DVD")
                    Debug.Print("*************************************")
                    TypeDisque(drives(i))
                End If
                If drives(i).DriveType = DriveType.Network Then
                    Debug.Print(drives(i).Name & " - Lecteur Network")
                    Debug.Print("*************************************")
                    TypeDisque(drives(i))
                End If
                If drives(i).DriveType = DriveType.Ram Then
                    Debug.Print(drives(i).Name & " - Lecteur Ram")
                    Debug.Print("*************************************")
                    TypeDisque(drives(i))
                End If
                If drives(i).DriveType = DriveType.Unknown Then
                    Debug.Print(drives(i).Name & " - Lecteur Inconnu")
                    Debug.Print("*************************************")
                    TypeDisque(drives(i))
                End If
    
                If drives(i).DriveType = DriveType.Removable Then
                    Debug.Print(drives(i).Name & " - Lecteur USB")
                    Debug.Print("*************************************")
                    TypeDisque(drives(i))
                    'Debug.Print(drives(i).Name & " - Clef USB")
                    ' Debug.Print("{0} est un lecteur amovible et est-il ready ? {1}", drives(i).Name, drives(i).IsReady)
                    'If drives(i).IsReady Then
                    'Debug.Print("Format :" & drives(i).DriveFormat)
                    'Debug.Print("Type :" & drives(i).DriveType)
                    'Debug.Print("Nom :" & drives(i).Name)
                    'Debug.Print("Nom du volume:" & drives(i).VolumeLabel)
                    'Debug.Print("Espace total :" & drives(i).TotalSize)
                    'Debug.Print("Espace libre :" & drives(i).AvailableFreeSpace)
    
                    'End If
                End If
            Next
    
     Function TypeDisque(ByVal drives As DriveInfo) As Boolean
            If drives.IsReady Then
    
                Debug.Print("Format :" & drives.DriveFormat)
                Debug.Print("Type :" & drives.DriveType)
                Debug.Print("Nom :" & drives.Name)
                Debug.Print("Nom du volume:" & drives.VolumeLabel)
                Debug.Print("Espace total :" & drives.TotalSize)
                Debug.Print("Espace libre :" & drives.AvailableFreeSpace)
                Debug.Print("Disque prêt ? :" & drives.IsReady)
                Debug.Print("-------------------------------------")
            End If
        End Function


    Jacques
    Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci

    mardi 26 janvier 2016 02:54

Toutes les réponses

  • Dans une function ou au click d'un bouton le code ci-dessous
     Dim drives As DriveInfo()
            drives = DriveInfo.GetDrives()
    
            For i As Integer = 0 To drives.Length - 1
    
                If drives(i).DriveType = DriveType.Fixed Then
                    Debug.Print(drives(i).Name & " - Disque dur")
                    Debug.Print("*************************************")
                    TypeDisque(drives(i))
                End If
                If drives(i).DriveType = DriveType.CDRom Then
                    Debug.Print(drives(i).Name & " - Lecteur CD - DVD")
                    Debug.Print("*************************************")
                    TypeDisque(drives(i))
                End If
                If drives(i).DriveType = DriveType.Network Then
                    Debug.Print(drives(i).Name & " - Lecteur Network")
                    Debug.Print("*************************************")
                    TypeDisque(drives(i))
                End If
                If drives(i).DriveType = DriveType.Ram Then
                    Debug.Print(drives(i).Name & " - Lecteur Ram")
                    Debug.Print("*************************************")
                    TypeDisque(drives(i))
                End If
                If drives(i).DriveType = DriveType.Unknown Then
                    Debug.Print(drives(i).Name & " - Lecteur Inconnu")
                    Debug.Print("*************************************")
                    TypeDisque(drives(i))
                End If
    
                If drives(i).DriveType = DriveType.Removable Then
                    Debug.Print(drives(i).Name & " - Lecteur USB")
                    Debug.Print("*************************************")
                    TypeDisque(drives(i))
                    'Debug.Print(drives(i).Name & " - Clef USB")
                    ' Debug.Print("{0} est un lecteur amovible et est-il ready ? {1}", drives(i).Name, drives(i).IsReady)
                    'If drives(i).IsReady Then
                    'Debug.Print("Format :" & drives(i).DriveFormat)
                    'Debug.Print("Type :" & drives(i).DriveType)
                    'Debug.Print("Nom :" & drives(i).Name)
                    'Debug.Print("Nom du volume:" & drives(i).VolumeLabel)
                    'Debug.Print("Espace total :" & drives(i).TotalSize)
                    'Debug.Print("Espace libre :" & drives(i).AvailableFreeSpace)
    
                    'End If
                End If
            Next
    
     Function TypeDisque(ByVal drives As DriveInfo) As Boolean
            If drives.IsReady Then
    
                Debug.Print("Format :" & drives.DriveFormat)
                Debug.Print("Type :" & drives.DriveType)
                Debug.Print("Nom :" & drives.Name)
                Debug.Print("Nom du volume:" & drives.VolumeLabel)
                Debug.Print("Espace total :" & drives.TotalSize)
                Debug.Print("Espace libre :" & drives.AvailableFreeSpace)
                Debug.Print("Disque prêt ? :" & drives.IsReady)
                Debug.Print("-------------------------------------")
            End If
        End Function


    Jacques
    Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci

    mardi 26 janvier 2016 02:54
  • ok merci je teste et je fait le retour

    Cardinal dev

    mardi 26 janvier 2016 13:37
  • merci.

    mais je voudrais savoir le "debug.print" n'affiche pas les éléments dans la form que j'ai crée !

    je ne les vois pas.

    j'ai dû mettre des label a la place des "debug.print" dans la fonction (dans le code) pour pouvoir les afficher.

    est-ce-que c'est normale ou y a t-il une façon d'utiliser le " debug.print"

    merci pour votre réponse.


    Cardinal dev

    mardi 26 janvier 2016 16:40
  • Bonjour,

    L'affichage du debug.print se dans la fenêtre execution :-)


    Jacques
    Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci

    mercredi 27 janvier 2016 01:55