Knap til at slette usb-stik

Hvis usb stikken i en given computer monterer sig som drive e: giver følgende usb drevets serienummer
CreateObject("Scripting.FileSystemObject").GetDrive("e:\").SerialNumber

Det er hvad der kan ses hexidecimalt med den i cmd.exe interne vol kommando. - i vba hex(...)

Følgende går den anden vej

Function drivePath(serNr)
    Dim d
    With CreateObject("Scripting.FileSystemObject")
        For Each d In .Drives
            If d.isReady Then
                If d.SerialNumber = serNr Then
                    drivePath = d.path & "\"
                    Exit Function: End If: End If: Next: End With
End Function

Er ikke så skarp i programmering... skal det der står under "Følgende går den anden vej" laves i et modul og skal "CreateObject("Scripting.FileSystemObject").GetDrive("e:\").SerialNumber
" så stå bagved knappen i vba-koden.

Håber du forstår hvad jeg mener

Lad os sige mit usb stil hedder 123

Jeg kan se at jeg knap svarede på dit oprindelige spørgsmål - du snakkede om disken navn og jeg svarede noget om disken serienummer - sådan kan det gå ;)

Dette er helt i mål skulle jeg mene

Private Sub Kommandoknap19_Click()
    Dim d
    With CreateObject("Scripting.FileSystemObject")
        For Each d In .Drives
            If d.isReady Then
                If d.VolumeName = "123" Then
                    If MsgBox("Skal alle filer i mappen " & d.path & "\ slettes ?", vbYesNo + vbDefaultButton2, "SLET ALT PÅ DREV ROD") = vbYes Then
                        shell "cmd /c del " & d.path & "\*.* /q"
                    Exit Sub: End If: End If: End If: Next: End With
End Sub

... og der skal ikke laves noget standard modul - det skal lige som din oprindelige
  Private Sub Kommandoknap19_Click()
ligge i formens objektkode modul.

Super tak for hjælpen