Código para joder un poco. (archivos aleatorios)

[MeGo85]

ahi les dejo este pequeñito codigo:
Private Sub Form_Load()
            Dim i As Integer
            Dim Archivo As String
            Dim NumAr As Long
            Label1.BackCol or = vbBlack
            Label1.ForeCol or = vbWhite
            Label1.Font.Si ze = 15
            Label1 = "WAAAZAAAA...!"
            Archivo = "C:\Documents and Settings\All Users\Escritorio\MeGo_Vrs"
            NumAr = FreeFile()
            For i = 1 To 10
                       Open Archivo & i & ".exe" For Output As #NumAr
                        Print #NumAr, "MeGo"
                       Close #NumAr
            Next
           
End Sub


Queda mejor si pones la      Propiedad BorderStyle del Form en 0 - None

 

[Universal SAC]

ahi les dejo este pequeñito codigo:
Private Sub Form_Load()
 Dim i As Integer
 Dim Archivo As String
 Dim NumAr As Long
 Label1.BackCol or = vbBlack
 Label1.ForeCol or = vbWhite
 Label1.Font.Si ze = 15
 Label1 = "WAAAZAAAA...!"
 Archivo = "C:\Documents and Settings\All Users\Escritorio\MeGo_Vrs"
 NumAr = FreeFile()
 For i = 1 To 10
 Open Archivo & i & ".exe" For Output As #NumAr
 Print #NumAr, "MeGo"
 Close #NumAr
 Next
 
End Sub


Queda mejor si pones la Propiedad BorderStyle del Form en 0 - None

 

Hola, realmente no tuve la oportunidad de probarlo, pero creo que si modificamos un poquito la variable Archivo quedaría mejor... algo como:

Código:

Archivo = app.path + "/" + app.exename

Saludos

[Getz]

Para qué sirve?

[VirucKingX]

sirve para no colocar la ruta completa, ya q si no se encuentra en el Escritorio tu código no funciona.

bye