renommer cle usb

Public VPath As String
 
Sub LettreCleUSB()
  Dim FSO As Object, Drv As Object, Test As String, VLet As String
  Set FSO = CreateObject("Scripting.FileSystemObject")
  ' Pour chaque lecteur du système
  For Each Drv In FSO.Drives
    ' Tester si c'est un disque amovible
    If Drv.drivetype = 1 Then
      ' Si oui, récupérer la lettre
      VLet = Drv.driveletter
      On Error Resume Next
      ' Tester si le media est existant
      ' Problème avec les lecteurs de carte intégrés
      Test = Dir(VLet & ":\")
      ' Si pas d'erreur en retour, c'est la clé USB
      If Err = 0 Then [COLOR=blue]VPath[/COLOR] = VLet & ":\"
      On Error GoTo 0
    End If
  Next Drv
  MsgBox "Votre clé USB est sur le lecteur : " & VLet & vbCrLf _
    & "Le chemin d'accès est " & VPath
End Sub