VBBRett
asked on
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.NIPGroupim portapp
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.ToStrin g("00") & logdate.Date.Day.ToString( "00")
'strtimerun = logdate.Hour.ToString("00" ) & logdate.Minute.ToString("0 0") & logdate.Second.ToString("0 0")
MyCmdargs(0) = TextBox1.Text
MyCmdargs(1) = TextBox2.Text
MyCmdargs(2) = TextBox3.Text
MyCmdargs(3) = TextBox4.Text
'MyCmdargs(4) = Path.GetFileNameWithoutExt ension(Tex tBox4.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 OpenSecondtxtFileToolStrip MenuItem_C lick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenSecondtxtFileToolStrip MenuItem.C lick
btnFilefind2.PerformClick( )
End Sub
Private Sub Open401kChartToolStripMenu Item_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Open401kChartToolStripMenu Item.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 ViewTextBoxesToolStripMenu Item_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViewTextBoxesToolStripMenu Item.Click
System.Diagnostics.Process .Start(Ope nFD.FileNa me)
End Sub
Private Sub mnuStrip_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolS tripItemCl ickedEvent Args) Handles mnuStrip.ItemClicked
End Sub
End Class
Option Explicit On
Imports NIPreadandwrite.NIPGroupim
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
'strtimerun = logdate.Hour.ToString("00"
MyCmdargs(0) = TextBox1.Text
MyCmdargs(1) = TextBox2.Text
MyCmdargs(2) = TextBox3.Text
MyCmdargs(3) = TextBox4.Text
'MyCmdargs(4) = Path.GetFileNameWithoutExt
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 OpenSecondtxtFileToolStrip
btnFilefind2.PerformClick(
End Sub
Private Sub Open401kChartToolStripMenu
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 ViewTextBoxesToolStripMenu
System.Diagnostics.Process
End Sub
Private Sub mnuStrip_ItemClicked(ByVal
End Sub
End Class
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Yes, I figured it out Bob. I set the .CheckFileExists property to False.
ASKER