Mensajes

Podria generar con visual basic un archivo de texto que contenga lo siguiente:

Código:

del ruta archivo.bat

Supongo que quedo claro que esto No es Net!!

No necesitas la ruta para que el bat se borre a si mismo, no se que estas inventando...

mira este ejemplo:

Código (vb) [Seleccionar] Expandir

Private Sub CrearBat()
Dim Canal As Integer
    Canal = FreeFile
    Open "borrar.bat" For Output As #Canal
       
        'aqui cualquier instrucción, como que mate el proceso que lo creo por ejemplo
         
         Print #Canal, "del borrar.bat"
    Close #Canal
End Sub

Private Sub CmdEjecutarBat_Click()
    'Ejecutamos el .bat y oculto
    Shell "borrar.bat", vbHide
End Sub

Private Sub Form_Load()
    CrearBat 'Creamos el fichero .bat
End Sub

Fíjate que creo un .bat desde vb dentro le coloco que haga lo que se me antoje y luego se autodestruya, en este caso no necesite la ruta, pero si te apetece, puedes hacer uso del "App.Path

Por que si no me equivoco no se puede elimar a si mismo mientras se este ejecutando.
Tendrias que ejecutar el bat como un proceso y cuando finalice el proceso eliminarlo.

Si te equivocas, los .Bat si se eliminan a si mismo...

Este es el sub-foro de vb6  y los ejemplos que aqui te dan son pensados en el (obvio).

Claro men aun hay chance, arrancaremos con 16 esta vez

1.   gravediger
2.   andavid
3.   Carloswaldo
4.   cΔssiΔnі
5.   Ch3ckM4t3r
6.   lord william
7.   n@sh
8.   Nevao
9.   nevadito
10.   Drenelly
11.   caballero-maldito
12.   Krackwar
13.   ediporey2000

[cassiani]

nash y cassiani .................. si se creen tan buenos para decirme cobarde por faltar los desafio a jugar a los dos contra mi 

Cassiani???????????????'

Y yo que pito toco aquí????????????

Cuando dije eso????????????

a ver, citalo!!!!!!!!!!!

No me digas que... 

Si te parece que el IF no esta demás pooss nada que hacer, el hecho de que NO te de error NO significa que este bien programado, además, en todo caso un ElseIf seria lo ideal...

Código [Seleccionar] Expandir

'incorrecto
If i = 0 Then
    'code
Else
    If i <> 0 Then 'obvio :-\
        'code
    End If
End If

'correcto
If i = 0 Then
    'code
Else
    'code
End If


Pero creo que te saltaste el flujo... de todas formas cada quien programa como quiere, se que dijiste que eso no lo hiciste tu, pero igual...

Tiene un IF de más... 

Si no es igual a "" obviamente es diferente, pero y con todo eso funciona (a simple vista)...

Para un ejemplo como este no hace falta, eso se sobre entiende, yo acostumbro a usar el "Option Explicit" así que te imaginaras que siempre declaro...

Pero si tu mismo lo dices, utilizas ByVal para pasar un obeto como valor y ByRef para pasarlo como referencia

mira este ejemplo:

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
    I = 3
    MsgBox "Valor Inicial de I --> " & I
   
    MsgBox MsnByRef(I) 'Pasandolo como referencia
    'MsgBox MsnByVal(I) 'Pasandolo como valor
   
    MsgBox "Valor final de I --> " & I
End Sub

Private Function MsnByRef(ByRef A As Byte) As Byte
    A = A + 3
    MsnByRef = A
End Function

Private Function MsnByVal(ByVal A As Byte) As Byte
    A = A + 3
    MsnByVal = A
End Function

Cuando lo pasas como referenca afectas a ese objeto desde la rutina, eso quiere decir, que si I valia 3, será afectada, aumentando su valor. Con ByVal eso NO sucede.

Serás tu de acuerdo a lo que quieras hacer, quien decida cual usar, pero es buena costumbre especificar como se le pasa el parametro a la rutina.

Así como esta debería darte error en todos lados

Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim RData As String, RData2 As String, Message() As String, i As Integer, intForLoop As Integer
Dim Imagen As String
Dim datos As String
Dim data() As String 'array
consola.Text = consola.Text + datos + vbNewLine
ws.GetData Imagen, vbNullString
Put #1, , Imagen
If Right(Imagen, 3) = "Fin" Or Imagen = "Fin" Then
Close
Picture1 = LoadPicture(Ruta)
Open Ruta For Binary As #1
End If
ws(Index).GetData datos
dSelect case Data(0)ata = Split(datos, "|")
Case "Conexion"
....
End Select
End Sub

Nah no da ni ganas de verlo, si trabajaras un poquito mas ordenado quizás

Por acá se postearon dos ejemplo que hacen eso que quieres... ahora mismo no te ayudo a buscar porque estoy de salida, pero busca que lo encuentras