Igual como escribirias y leerias cualquier archivo

 
 
'---------------------------------------------------------------------------------------
' Procedimiento : ReadFile
' Autor         : Karcrack
' Fecha         : 07/04/2009
' Parametro(s)  : sPath -> La ruta del fichero
' Return        : Devuelve un Byte array con los bytes del fichero
'---------------------------------------------------------------------------------------
 
Private Function ReadFile(ByVal sPath As String) As Byte()
    Dim bvTmp()         As Byte
 
    Open sPath For Binary As #1
        ReDim bvTmp(0 To LOF(1) - 1)
        Get #1, , bvTmp
    Close #1
 
    ReadFile = bvTmp
End Function
 
 
'---------------------------------------------------------------------------------------
' Procedimiento : SaveFile
' Autor         : Karcrack
' Fecha         : 07/04/2009
' Parametro(s)  : bvData() -> Array de datos
'                 sPath    -> Ruta de guardado
'---------------------------------------------------------------------------------------
 
Private Sub SaveFile(ByRef bvData() As Byte, ByVal sPath As String)
    Open sPath For Binary As #1
        Put #1, , bvData
    Close #1
End Sub
 

y para detectarlos

http://foro.elhacker.net/programacion_vb/source_detectar_unidades_extraibles_usb-t214774.0.html;msg1030424

yo cree una funcion similar leo los archivos que cree luego los cierro pero dejo funcionado mi programa el problema surge cuando quiero extraer el pen haciendo click en extraer harware con seguridad o con una funcion similar a la de cobien
me dice que no se puede extraer por que otra aplicacion (en este caso mi programa ) esta usando el pen

espero haber sido claro
gracias un saludo

Con close #numero , por cierto usa las funciones que te pase de karcrack , si no te fubnciona con eso no se por donde va la cosa de el mensaje de que esta ocupado el pendrive.

Hola, si o si necesitas el ESN del fabricante del USB en tu aplicacion ???

No entiendo cual es la diferencia de tener almacenado en la base de datos el número serial que windows te dá al formatar en lugar del ESN,

A) que el load de tu aplicación revise el serial de formateo y si no coincide no se ejecuta

B) si en alguna instancia de tu aplicación tenes que formatear el USB, en este caso borras todo el contenido del USB en lugar de formatearlo (para mantener el seria de windows)