como puedo que vb6 me resconosca una usb espesifica

[01ebb]

hola a todos me gustaria que me muestren un ejemplo que cuando uno meta una usb me la reconosca y poderle meter archivos automaticament e sin que el usuario sede cuenta pero me gustaria que a otros no cuando metan la usb espero que me entiendan este trabalenguas


muchas pero muchas gracias


por sierto la pagina quedo super

[richardvp2003]

Obviamenet por su numero de serie del USB....

Private Declare Function GetVolumeInfor mation Lib "Kernel32" Alias "GetVolumeInfor mationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBu ffer As String, ByVal nVolumeNameSiz e As Long, lpVolumeSerial Number As Long, lpMaximumCompo nentLength As Long, lpFileSystemFl ags As Long, ByVal lpFileSystemNa meBuffer As String, ByVal nFileSystemNam eSize As Long) As Long

Private Function DriveSerial(ByVal sDrv As String) As Long
    Dim RetVal As Long
    Dim str As String * MAX_FILENAME_L EN
    Dim str2 As String * MAX_FILENAME_L EN
    Dim a As Long
    Dim b As Long
    Call GetVolumeInfor mation(sDrv & ":\", str, MAX_FILENAME_L EN, RetVal, a, b, str2, MAX_FILENAME_L EN)
    DriveSerial = RetVal
End Function

y ahy sacas el numero de seri de la unidad... lo k me falta es bloquear el usb si no es el mismo numero de serie alguna idea ?

mi correo es prohibidoslosm ailsenposts@hotmail.com