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