sDeleteFolder = "Test"
Set oFS = CreateObject("Scripting.FileSystemObject")
Set dUSBKeys = ScanForUSBKeys()
For Each oUSBKey in dUSBKeys.Keys
    If Left(oUSBKey, 1) = "" Then
       sKey = oUSBKey
    Else
        sKey = oUSBKey & ""
    End If
    oFS.DeleteFolder sdeleteFolder, sKey
Next
Set dUSBKeys = Nothing
Set oFS = Nothing

 MsgBox "Done Del all the folder from USB Drivs", vbOKOnly+VBINformation+VBSystemModal, "DONE"
Function ScanForUSBKeys()
    Set oWMI = GetObject("winmgmts:\.rootcimv2")
    Set dTemp = CreateObject("Scripting.Dictionary")
Set cDisks = oWMI.ExecQuery("Select InterfaceType,MediaType,PNPDeviceID,DeviceID,Size from Win32_DiskDrive")
For Each oDisk in cDisks
    If InStr(LCase(oDisk.InterfaceType),"usb") > 0 AND InStr(LCase(oDisk.MediaType),"removable") > 0 _
      AND InStr(LCase(oDisk.PNPDeviceID),"blackberry") = 0 AND InStr(LCase(oDisk.PNPDeviceID),"ipod") = 0 _
      AND NOT oDisk.PNPDeviceID = "" Then
        Set cDrivePartitions = oWMI.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID='" & _
                              oDisk.DeviceID & "'} WHERE AssocClass = Win32_DiskDriveToDiskPartition" )
        For Each oDrivePartition in cDrivePartitions
            Set cDriveLetters = oWMI.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID='" & _
                                oDrivePartition.DeviceID & "'} WHERE AssocClass = Win32_LogicalDiskToPartition")
            For Each oDriveLetter in cDriveLetters
                dTemp.Add oDriveLetter.DeviceID, 1
            Next
            Set cDriveLetters = Nothing
        Next
        Set cDrivePartitions = Nothing
    End If
Next
Set cDisks = Nothing
Set ScanForUSBKeys = dTemp
Set dTemp = Nothing
Set oWMI = Nothing