Solved

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

Posted on 2006-06-20
3
352 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
0
Comment
Question by:VBBRett
  • 2
3 Comments
 

Author Comment

by:VBBRett
ID: 16943504
Anyone?  Why is my program running so slow when I open it and point it towards the Desktop?
0
 
LVL 96

Accepted Solution

by:
Bob Learned earned 500 total points
ID: 16945343
Is this 2005?

Bob
0
 

Author Comment

by:VBBRett
ID: 16945465
Yes, I figured it out Bob.  I set the .CheckFileExists property to False.
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Article by: Kraeven
Introduction Remote Share is a simple remote sharing tool, enabling you to see, add and remove remote or local shares. The application is written in VB.NET targeting the .NET framework 2.0. The source code and the compiled programs have been in…
The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

840 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question