Mensajes

Alee !! Que aburrimiento, arrays para poner una simple fecha jeje.

El rar no contiene ningun .exe solo lleva ficheros que se pueden abrir con VB. El icono sale con todos los enlaces de rapidshare --> http://rapidshare.com/Eresunpringado.rar.html

Si te sale el iconito que quieres que haga??... No tiene ningún ejecutable el icono sale en todos los enlaces de rapidshare, el .rar solo tiene archivos .vbp = Visual Basic Project

Buenas, empecé ha hacer un antivirus para bat pero no tengo tiempo ni ganas de continuarlo asi que lo publico y si quereis seguir x'dd... ya se que es una chorrada el código pero bueno...

http://rapidshare.com/files/171388366/BatScaner.rar.html

Muy bueno, lo que me gustó fue: No toques el form que se peta jeje.

Podrías crear una conexión con los programas "hijos" y que si se cierra ese que se envie una información a los "hijos" diciendo que se cierren.

deberias leer un poco mejor, ademas mira el titulo del post

Sabes rectifiacr tus fallos... bueno bueno

si tienes juan en text2 pues al darle click en el commandbutton tienes que agregar: text2.text & ".bat" asi concatenas el nombre que el usuario ingresa en el text2 y la extensión en este caso .bat

Eso no es lo que el pregunta, el pregunta que después de Juan pueden poner los usuarios las extensiones que quieran y él solo quiere que se ponga un nombre, ninguna extensión.

--------------------------------------------------------
Private Sub Form_Load()
Dim obj As New Class1

    ' extensión del archivo
    obj.Extension = ".xxx"
    obj.Title = "Titulo descriptivo de esta extension"
    obj.Class = "Clase.xxx"
    ' ruta del ejecutable
    obj.AppCommand = "c:\windows\notepad.exe"
    ' ruta del icono
    obj.DefaultIcon = "C:\Windows\Notepad.exe,1"
           
    ' asociar la extension
    obj.Associate
    Set obj = Nothing
    ' Unload Me ?????

End Sub

----------------------------------------------

cual e sla manera correcta para q se pueda serrar gracias

Si, utiliza el Unload Me pero sin el ' delante.

[.]

Puedes hacer que no acepte . sería una cosa asi al presionar el boton

Código (vb) [Seleccionar] Expandir

If instr(Text2.text,".") Then
MsgBOx "Hay un punto en el campo del nombre"
Else
'Aqui generas el bat
End If