Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 404
  • Last Modified:

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

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
0
VBBRett
Asked:
VBBRett
  • 2
1 Solution
 
VBBRettAuthor Commented:
Anyone?  Why is my program running so slow when I open it and point it towards the Desktop?
0
 
Bob LearnedCommented:
Is this 2005?

Bob
0
 
VBBRettAuthor Commented:
Yes, I figured it out Bob.  I set the .CheckFileExists property to False.
0

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now