Temas

AMIGOS COMO PUEDO LLAMAR A UN ARCHIVO LLAMADO  README.TXT   DESDE  VISUAL BASIC 6.0...   

es  decir solo  quisiera que al dar un click en un menu se  abra ese archivo llamado  README.TXT ubicado en C:\MALPIVA\README.TXT


GRACIAS POR SU AYUDA

[El caso es que cuando agrego nombres a la lista LIST2 y agregarlo a un archivo.TXT todo marcha muy bien pero necesito que cuando regrese algun otro momento al FORM y vuelva a agregar mas nombres esten ahi los nombres agregados anteriormente asi que hice otra lista llamada LIST3 como un respaldo para que se agregue a LIST2 pero al parecer mi problema son los INDEX.. como le puedo hacer ????es este el codigo y desactive unas cosas porque estoy atorado en esto... ojo por favor ayudenme porfis..]

El caso es  que cuando agrego nombres  a la lista   LIST2 y agregarlo a un archivo.TXT todo marcha muy bien pero  necesito que cuando regrese algun otro momento al FORM y vuelva a agregar mas nombres esten ahi los nombres agregados anteriormente asi que hice otra lista llamada LIST3 como un respaldo para que se agregue a LIST2 pero  al parecer mi problema son los INDEX.. como le puedo hacer ????

es este el codigo y desactive unas cosas porque estoy  atorado en esto...  ojo por favor  ayudenme  porfis..




Private Sub Command1_Click()

'List2.AddItem List3


List2.AddItem Text1.Text                 'AGREGO A LA LISTA
'List3.AddItem Text1.Text
Text1.Text = ""                      'LIMPIO TEXTBOX
List2.AddItem List2
'List3.AddItem List3

If List2.ListIndex = -1 Then Exit Sub
List2.RemoveItem List2.ListIndex

'If List3.ListIndex = -1 Then Exit Sub
'List3.RemoveItem List3.ListIndex

Call GuardarArchivo
End Sub

Private Sub GuardarArchivo()

Dim i As Integer                                'AGREGO AL ARCHIVO NOMBRES1
Open "c:\malpica\nombres1.txt" For Output As #1
For i = 0 To List2.ListCount - 1
Print #1, List2.List(i)
Next i
Close #1

'Open "c:\malpica\nombres2.txt" For Output As #1  'AGREGO AL ARCHIVO NOMBRES2
'For i = 0 To List3.ListCount - 1
'Print #1, List3.List(i)
'Next i
'Close #1

End Sub

Private Sub Command2_Click()   ' BOTON PARA ORDENAR ALFABETICAMENTE
List1.Clear
For x = 0 To (List2.ListCount - 1)
    List1.AddItem List2.List(x)
Next
End Sub

Private Sub Command3_Click()    ' BOTON PARA ELIMINAR VARIOS
List2.RemoveItem List2.MultiSelect - 1

End Sub

Private Sub Command4_Click()     'BOOTON PARA MODIFICAR
List2.RemoveItem List2.ListIndex
List2.AddItem Text2.Text

End Sub

Private Sub Command5_Click()  ' BOTON PARA ELIMINAR UNO

List2.RemoveItem List2.ListIndex   'elimino de la lista2

Open "c:\malpica\nombres1.txt" For Output As #1 'elimino de archivo nombres1
For i = 0 To List2.ListCount - 1
Print #1, List2.List(i)
Next i
Close #1

List3.AddItem List2

'List3.RemoveItem List3.ListIndex   'elimino de la lista3
'Open "c:\malpica\nombres2.txt" For Output As #1   'elimino del archivo nombres2
'For i = 0 To List3.ListCount - 1
'Print #1, List3.List(i)
'Next i
'Close #1

End Sub

Private Sub Form_Load()

'Dim i As Integer
'Open "c:\malpica\nombres1.txt" For Output As #1
'For i = 0 To List3.ListCount - 1
'Print #1, List3.List(i)
'Next i
'Close #1
'List2.AddItem List3

End Sub

 

Buenas  amigos...miren el caso que tengo es que:

tengo 2 FORM en uno de ellos leo un archivo .txt  ubicado en C:/MALPICA/NOMBRES.TXT  el caso esque cuando elimino algo de  ahi lo borra  de una lista y del archivo eso esta bien pero cuando vuelvo a  abrir el FORM y agrego un NOMBRE mas a la lista se  agrega  a la lista pero me  elimina todo lo ANTERIOR de el archivo   agregandose  el NUEVO  solamente  ...


alguien  puede  ayudar ???