renommer cle usb

[al1000]

bonjour,


comment renommer une cle usb

elle s'appelle J

et je veucx qyuelle s'apelle F (car toute mes macro se nomme F)


a+

 

[al1000]

Re : renommer cle usb

bonsoir

merci

 

[Compte Supprimé 979]

Re : renommer cle usb

Salut tout le monde,

Al1000, plutôt que de renommer le lecteur de ta clé,
pourquoi ne pas intégrer dans ton code la recherche de la lettre et le chemin d'accès !?

Code ci-dessous :

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

Ensuite dans ton code tu fais une recherche du code "F:\" que tu remplaces par la variable "VPath" par exemple

A+