Visual Basic

Public Class Form1

    '-- create a string for the folder path
    Dim myDirectory As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "select folder"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fbd As New FolderBrowserDialog
        fbd.RootFolder = Environment.SpecialFolder.Desktop
        If fbd.ShowDialog = DialogResult.OK Then
            '-- set the directory for use to load each file from the folder
            myDirectory = fbd.SelectedPath
        End If
        '-- load files in listbox, filenames only
        For Each file As String In My.Computer.FileSystem.GetFiles _
            (myDirectory, FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
            ListBox1.Items.Add(System.IO.Path.GetFileNameWithoutExtension(file))
        Next
        ListBox1.Select()
    End Sub

    Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        Try
            Dim myFile As String = myDirectory & "\" & ListBox1.SelectedItem & ".txt"
            '-- file content
            TextBox1.Text = IO.File.ReadAllText(myFile)
            '-- file name w/extension
            TextBox2.Text = IO.Path.GetFileName(myFile)
        Catch ex As Exception
        End Try
    End Sub

End Class

anandbpsri wrote:

VB 6.0

ObjWb.close()
            releaseObject(ObjWs)
            ObjWs = Nothing
            releaseObject(ObjWb)
            ObjWb = Nothing
            releaseObject(objFSO)

            objFSO = Nothing

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub