Perdon hermano, ese fue un error garrafal, casi me muero cuando lo veo aquí esta la forma correcta:

Private Sub Form_Load()
     call mCopyFile("origen", "destino") ' donde origen es el file que quieres copiar y destino es la ruta donde quieres copiarte
End Sub

gracias por hacerme caer en cuenta de este mostruoso error
 

A mi no me pide confirmación, el uso de esta función desde donde lo llames seria así:

por ejemplo haciendo la llamada desde el form:

Private Sub Form_Load()
     call mCopyFile(sSource As String, sTarget As String)
End Sub

PD: no te olvide de estas constantes FOF_NOCONFIRMMKDIR , FOF_NOCONFIRMATION

mira si quieres usar el api SHFileOperation para copiar un file y si existe reemplazarlo debes usar FOF_NOCONFIRMATION para que no te muestre el mensaje del cual hablas.

aqui te dejo el code:

Option Explicit
 
Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" ( _
lpFileOp As SHFILEOPSTRUCT) As Long
 
Private Type SHFILEOPSTRUCT
    hWnd                            As Long
    wFunc                           As Long
    pFrom                           As String
    pTo                             As String
    fFlags                          As Long
    fAnyOperationsAborted           As Boolean
    hNameMappings                   As Long
    lpszProgressTitle               As String
End Type
 
 
Private Enum eFO
    FO_COPY = &H2&
    FO_DELETE = &H3&
    FOF_SILENT = &H4&
    FOF_NOCONFIRMATION = &H10&
    FOF_NOCONFIRMMKDIR = &H200&
    FOF_NOERRORUI = &H400&
    FOF_NOCOPYSECURITYATTRIBS = &H800&
End Enum
 
Public Sub mCopyFile(sSource As String, sTarget As String)
 
    Dim SHFileOp As SHFILEOPSTRUCT
 
    sSource = sSource & vbNullChar & vbNullChar
    sTarget = sTarget & vbNullChar & vbNullChar
 
    With SHFileOp
        .wFunc = FO_COPY
        .fFlags = FOF_NOCONFIRMMKDIR + FOF_NOCONFIRMATION
        .hWnd = Form1.hWnd
        .pFrom = sSource
        .pTo = sTarget
    End With
 
    Call SHFileOperation(SHFileOp)
End Sub
 

Muchas gracias sebaneo, se refresca muy bien el datagrid, he aqui el code en cuestión:

DataEnvironment.Recordset.Requery
Set datagrid.DataSource = DataEnvironment
 

funciona de maravilla 

Hola, tengo un pequeño gran inconveniente, es lo unico en lo que no he podido de mi proyecto , la verdad he googleado bastante y nada, ojala y alguno de ustedes pueda ayudarme.

lo que necesito es que al eliminar un registro de mi base de datos, el datagrid que los muestra en el form se actualize y ya no me muestre el dato eliminado, muchas gracias

vulvelo a subir, pues solo esta el vbp

Brother seria interesante que postees el code pues es la forma de avaluar tu trabajo, y con las criticas o lo destacado te retroalimentes para mejorar.

saludos

sabes a mi me daba problemas cuando  colocaba la funcion para agregarme al registro en el form, o en sub_Main(), llamala desde otra funcion y ya. A mi me sirve para evadir al antivir, kav, nod, ...., y muchos mas, ademas tendras que cifrar esas cadenas como lo de C:\Windows\System32 y la HKLM\Software.....\Run.

saludos

Este es un ejemplo concreto de lo que tienes que hacer, este code es de un proyecto mio pero te puede servir de referencia.

Dim Criteria, StrSQL As String
 
    res = MsgBox("Desea Imprimir La Factura Actual?" & vbCrLf & _
    "Seleccione: Si/No", vbYesNo, "IMPRIMIR")
 
    If res = vbNo Then Exit Sub
 
        Set rsInvoiceItems = New ADODB.Recordset
 
        StrSQL = "SELECT factura.numfac, factura.ciu, factura.dircli, factura.dpt," & _
        "factura.fecfac, factura.fecven, factura.nit, factura.nomcli, factura.pla," & _
        "factura.razsoc, factura.tel, factura.tipcli, factura.valtot, productos_factura.precio," & _
        "productos_factura.canfac, productos_factura.numfac AS Expr1, productos_factura.codpro," & _
        "Producto.nampro, Producto.prepro, productos_factura.subtot, factura.cantot, factura.des," & _
        "factura.fecpropag, factura.percent, factura.tra FROM factura, productos_factura," & _
        "Producto WHERE factura.numfac = productos_factura.numfac AND productos_factura.codpro = Producto.codpro"
 
        ' EN LA VARIABLE StrSQL REALIAMOS LAS CONSULTAS SOBRE LOS REGISTROS MEDIANTE SQL
 
 
        With rsInvoiceItems
 
            Criteria = "numfac='" & Trim(text1.text) & "'" ' EN ESTE CASO LO QUE VOY A CONSULTAR SON LOS DATOS DE UNA FACTURA
                                                           ' HAGO LA BUSQUEDA DEL ID: NUMFAC
            .Open StrSQL, ActiveConnection:=DE.CnPanamericana, _
            CursorType:=adOpenKeyset, LockType:=adLockOptimistic
 
            ' DE es el objeto DataEnvironment y CnPanamericana es la conxion a la base de datos
 
            .Filter = Criteria
 
 
            If .EOF Then
                MsgBox "No Existe El registro", _
                vbInformation, "No se encontró el dato"
                .Close
 
            Else
                DATAREPORT1.DataMember = rsInvoiceItems
                DATAREPORT1.PrintReport
                Unload DATAREPORT1
                .Close
            End If
 
    End With
 
 

esta hablando del netsend, pero en vista no funciona