We help IT Professionals succeed at work.
Get Started

Why is my OpenFileDialog box soo slow on the desktop and how can I fix it?

VBBRett
VBBRett asked
on
724 Views
Last Modified: 2010-04-23
I have a program where I open 3 files and save one.  The openfiledialog box should be pretty quick as with any other program, but when I tap the open file dialog button, it moves like a snail and the program almost freezes up.  Why is my program so slow when I try to open the OpenFileDialog box and point it towards the Desktop, but the speed for any other directory is a reasonable speed?  Here is my code for the form..see below.

Option Explicit On
Imports NIPreadandwrite.NIPGroupimportapp
Imports System
Imports System.IO


Public Class Form2

    Private Sub btnFileFind1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFileFind1.Click

        Dim strFileName As String
        Dim DidWork As Integer


        'OpenFD.InitialDirectory = "C:\PRU401k"

        OpenFD.Title = "Open a text file"
        OpenFD.Filter = "Text Files(*.txt)|*******R.txt"
        DidWork = OpenFD.ShowDialog()

        If DidWork = DialogResult.Cancel Then
            MsgBox("Cancel button clicked")
            Exit Sub
        Else
            strFileName = OpenFD.FileName
            'MsgBox(strFileName)
            TextBox1.Text = strFileName
        End If



    End Sub

    Private Sub btnFilefind2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFilefind2.Click

        Dim strFileName2 As String
        Dim DidWork2 As Integer


        'OpenFD2.InitialDirectory = "C:\PRU401k"

        OpenFD2.Title = "Open a text file"
        OpenFD2.Filter = "Text Files(*.txt)|*******L.txt"
        DidWork2 = OpenFD2.ShowDialog()

        If DidWork2 = DialogResult.Cancel Then
            MsgBox("Cancel button clicked")
            Exit Sub
        Else

            strFileName2 = OpenFD2.FileName
            'MsgBox(strFileName2)
            TextBox2.Text = strFileName2
        End If
    End Sub

    Private Sub btnFilefind3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFilefind3.Click

        Dim strFileName3 As String
        Dim DidWork3 As Integer

        'OpenFD3.InitialDirectory = "C:\PRU401k"
        OpenFD3.Title = "Open the CSV file"
        OpenFD3.Filter = "Text Files(*.csv)|*.csv"
        DidWork3 = OpenFD3.ShowDialog()

        If DidWork3 = DialogResult.Cancel Then
            MsgBox("Cancel button clicked")
            Exit Sub
        Else
            strFileName3 = OpenFD3.FileName
            ' MsgBox(strFileName3)
            TextBox3.Text = strFileName3
        End If
    End Sub

    Private Sub btnSaveFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveFile.Click

        Dim strFileName4 As String
        Dim DidWork4 As Integer


        SaveFD.Filter = "Text Files(*.txt)|*.txt"
        SaveFD.Title = "Save the output file"
        SaveFD.ShowDialog()

        If DidWork4 = DialogResult.Cancel Then
            MsgBox("Cancel button clicked")
            Exit Sub
        Else

            strFileName4 = SaveFD.FileName
            'MsgBox(strFileName4)
            TextBox4.Text = strFileName4
        End If

    End Sub

    Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRun.Click

        If (TextBox1.Text.Length = 0 Or TextBox2.Text.Length = 0 Or TextBox3.Text.Length = 0 Or TextBox4.Text.Length = 0) Then
            MsgBox("Please fill all text boxes with a file path")
        Else
            ' Dim logdate As Date = Now()
            'Dim strdaterun As String
            'Dim strtimerun As String
            'Dim timenow As String

            Dim MyCmdargs(3) As String

            'strdaterun = logdate.Date.Year.ToString("0000") & logdate.Date.Month.ToString("00") & logdate.Date.Day.ToString("00")
            'strtimerun = logdate.Hour.ToString("00") & logdate.Minute.ToString("00") & logdate.Second.ToString("00")

            MyCmdargs(0) = TextBox1.Text
            MyCmdargs(1) = TextBox2.Text
            MyCmdargs(2) = TextBox3.Text
            MyCmdargs(3) = TextBox4.Text
            'MyCmdargs(4) = Path.GetFileNameWithoutExtension(TextBox4.Text & ".log")

            Dim c As New NIPGroupimportapp
            c.Main(MyCmdargs)
            Me.Hide()
            Form3.Show()
        End If




    End Sub

    Private Sub mnuOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpen.Click
        btnFileFind1.PerformClick()

    End Sub

    Private Sub OpenSecondtxtFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenSecondtxtFileToolStripMenuItem.Click
        btnFilefind2.PerformClick()

    End Sub

    Private Sub Open401kChartToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Open401kChartToolStripMenuItem.Click
        btnFilefind3.PerformClick()

    End Sub

    Private Sub btnDone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDone.Click
        Me.Close()
        Application.Exit()

    End Sub

    Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click
        btnDone.PerformClick()
    End Sub

    Private Sub mnuSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSave.Click
        btnSaveFile.PerformClick()

    End Sub

    Private Sub ViewTextBoxesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViewTextBoxesToolStripMenuItem.Click
        System.Diagnostics.Process.Start(OpenFD.FileName)
    End Sub

    Private Sub mnuStrip_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles mnuStrip.ItemClicked

    End Sub
End Class
Comment
Watch Question
CERTIFIED EXPERT
Most Valuable Expert 2012
Top Expert 2008
Commented:
This problem has been solved!
Unlock 1 Answer and 3 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE