Código: Seleccionar todo

'Coded By The Swash at 22/01/2010
'Web: http://Infrangelux.sytes.net & www.Indetectables.net
'Function to create file, replace Open,Put,Close
'Thx to BlackZeroX
Option Explicit
Public Function FileCreate(ByVal sPath As String, ByVal sInfo As String) As Long
Dim sObj      As Object
Dim sCreate   As Object
 
 If Len(sInfo) > 0 Then
 MsgBox Len(sInfo)
  Set sObj = CreateObject("Scripting.FileSystemObject")
  If Not sObj Is Nothing Then
   Set sCreate = sObj.CreateTextFile(sPath, True)
   sCreate.Write sInfo
   sCreate.Close
  End If
  Set sObj = Nothing
 FileCreate = 1
 End If
 
End Function

Código: Seleccionar todo

Private Sub Command1_Click()
Dim sFile As String

 Open "C:\x.exe" For Binary Access Read As #1
  sFile = String(FileLen("C:\x.exe"), " ")
  Get #1, , sFile
 Close #1
 
 If FileCreate("c:\xd.exe", sFile) = 1 Then MsgBox "Done"
  
End Sub