Visual Basic

Dim docName = FindWindow(vbNullString, "File Download - Security Warning")

Const BM_CLICK As Integer = &H102

SendMessage(docName, BM_CLICK, 0, 0)

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