Mensajes

command1.enabled = false

Lo que quieres es masomenos asi:??????

Private Sub Command1_Click()
Shell (Text1.Text)
End Sub
Private Sub Form_Load()
CommonDialog1.ShowOpen
End Sub
Private Sub Text1_Change()
Text1.Text = CommonDialog1.FileName
End Sub

desde la pagina de sonypsp buscas en firmware y sigues los pasos para actualizar tu psp

q no c m entienda mal  yo solo le taba diciendo a Cortex q ya habia visto el error, q no volviera a poner k era con i, jajaj pero no iba eso x ti robocop, en todo caso m excedi en las formas

salu2!

No todo esta bien , nomas digo que perdon para lixkeu porque lo escribi mal y puse i en lugar de L  y esque cite otro post que no era iva a citar uno mas arriva 

Busca el crack para el control funciona como si estuvieras crackeando un exe

¬¬ pero weno, no acabo yo d dcir k no es ink sino lnk ¬¬???
a ver asiii --> ( "LNK" ) ES ELEEEE (L) NO (I) VAMOS A MENOS K MI VB6 ESTE LOKO Y M  LO BORRE X LA CARA 

si perdon es lnk esque no revise el post pero segun yo escribi l no I

Busca todos los registros del programa y eliminando archivos en modo seguro para que este dañado luego con CCleaner le pones quitar de la lista en lugar de desinstalar

tambien puede ser asi

shell "shutdown -s "

si te sabes el nombre del archivo asi seria
kill "Escritorio\nombre.ink"

aver que te parece este code :

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
For a = 1 To Text2.Text
FileCopy Text1.Text, "C:\nombre" & "." & extensión

Next
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
Select Case KeyAscii:
Case 48 To 57, vbKeyBack:
Case Else:
KeyAscii = 0
End Select
End Sub

Private Sub Text3_Change()
extensión = Text3.Text
End Sub

En el text1 aparece el directorio en el text2 pones el numero de veces que se va a copiar y en el text3 pones la extensión con la que quieres que se copie