Abrir archivo

[-SharK_90-]

Haber si alguien me puede ayudar:!!

Yo, quiero guardar el texto, de un ListBox en un archivo... pero que tambien se pueda abrir y aparesca el texto en el ListBox...

Para guardarlo en un archivo (*.txt) es algo así:

Private Sub Command1_Click()

On Error Resume Next
Dim pr As Integer
CommonDialog1. ShowSave
CommonDialog1. Filter = "Documento de Texto(*.Txt)|*.txt"
pr = FreeFile
Open CommonDialog1. FileName For Output As pr
    Print #pr, List1.Text
Close #pr

End Sub

pero, nose como abrirlo y que me aparesca en el ListBox::!!
Bueno... Nose si se entiende..
SALU2 -

[ziBboh]

Saludos shark_90
Encontre este codigo, pero no lo he probado, de todas maneras te lo dejo a ver si te funciona, (espero y si) nos vemos brother

Código:

-----Cargar datos de un archivo de texto a un listview -----
'Codigo Fuente
sacado de www.DragonJAR.us
Public Function CargarLW(Lw As ListView, Fname As String, Br As
ProgressBar)

    Dim FileId As Integer
    Dim LVI As ListItem
    Dim fData As New Collection
    Dim Buffer As String
    Dim x As Integer
    Dim i As Integer
    Dim y As Integer
    Dim sIdx As Integer
   
    sIdx = Lw.ColumnHeaders.Count - 1
    i = 0
    FileId = FreeFile
    On Error Resume Next
    Open Fname For Input As #FileId
    While Not EOF(FileId)
        i = i + 1
        For x = 0 To sIdx
            Input #FileId, Buffer
            fData.Add Buffer
        Next
        Set LVI = Lw.ListItems.Add(, , , , 1)
        LVI.Text = fData.Item(fData.Count - sIdx)
        For y = 1 To sIdx
            LVI.SubItems(y) = fData.Item(fData.Count + y - sIdx)
        Next
       
        ' Con barra de proceso
        If Br.Value < Br.Max Then
            Br.Value = i + 1
        ElseIf Br.Value = Br.Max Then
        Br.Max = Br.Max + 200
        End If

    Wend
    Close #FileId
   
    Br.Min = 0
    Br.Max = 200
    Br.Value = Br.Min
End Function

[crypto136]

ahi esta el code :
Agrega 1 commandbutton, un listbox, y reemplaza el codigo:
(esta comprobado, si funka, esto no es muy dificil de hacer)

Código:

Public Lista As String
Public Texto As String

Private Sub Command1_Click()
dialog.ShowOpen
Texto = dialog.FileName
Lista = FreeFile
Open Texto For Input As #Lista
    Do While Not EOF(1)
        Line Input #1, Lista
        List1.AddItem (Lista)
    Loop
Close
End Sub

Private Sub Form_Load()
dialog.Filter = "Documentos de Texto | *.txt | Logs | *.log"
End Sub

ahi vas a abrir los archivos Log, tambien.... nos vemos suerte   

[JKey]

Me aparece un error en tiempo de ejecucion...No sé que podrá ser.

[crypto136]

upss.... pido disculpas me olvidaba , tienen que agregar un commondialog tambien, y ponerle nombre "dialog" jejeje disculpen.