Create a USB lock code!!

[phoanglong]

Is there anybody know how to create a code that can be put into a USB flash Driver and generate a encrypt code so we can lock that USB. For example if I have a USB flash Driver and I want nobody knows what do I have inside it even if they found it.

I already knew the code that can make the VB complied code auto run just like when you insert your CD/DVD into your CD/DVD player.

Another things, this is the code for you if the person that entering password but 3 times wrong then all files inside the usb will be auto delete

Public Sub DeleteAllFiles(ByVal strFolderSpec As String)

On Error GoTo Handler

Dim oFs As New FileSystemObject
Dim oFolder As FOLDER
Dim oFile As File

If oFs.FolderExists(strFolderSpec) Then
Set oFolder = oFs.GetFolder(strFolderSpec)
On Error Resume Next
For Each oFile In oFolder.Files
oFile.Delete True 'setting force to true
'deletes read-only file
Next
End If

Exit Sub

Handler:
MsgBox Err.description, vbCritical, "Error " & Str(Err.Number)

End Sub