[VB] Aprire un file

[Johnny_Depp]

Utilizza una Listbox e cattura tutti i file di una directory
che inserisci come parametro tu, in una TextBox

Private Sub cmd_visualizza_Click()
    On Error GoTo cattura_exception
    Dim dir_corrente as String
    Dim ptr_file1 As String
    dir_corrente = txt_curDir.Text & "\*"
    If dir_corrente <> "" Then
        ListBox.Clear
        ptr_file1 = Dir$(dir_corrente)
        While ptr_file1 <> ""
            ListBox.AddItem ptr_file1
            ptr_file1 = Dir$
        Wend
    Else
        txt_curDir = "inseire un percorso es: ""C:\Documenti"""
    End If
cattura_exception:
    txt_curDir.Text = "Percorso non valido"
End Sub

Poi quando "clickki" sul file che vuoi aprire (visualiz. nella lista)

Private Sub ListBox_Click()
    Dim ptr_file as String
    ptr_file = ListBox.Text
    'LEGGE
    Open txt_curDir &"\"& ptr_file For Input As #1
    Close #1
    'SCRIVE in APPEND
    Open txt_curDir &"\"& ptr_file For Append Shared As #nFile
    Close #1
End Sub