Archief - Vb.net Commandline Argumenten meegeven aan een windows form

Public Class CharacterCounter

    Private Sub BrowseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowseButton.Click
        Dim commandLineArgs As String() = Environment.GetCommandLineArgs()

        Try
            If ContentOpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
                Me.InputFileTextBox.Text = ContentOpenFileDialog.FileName
            End If

            Dim path As String = ContentOpenFileDialog.FileName
            Dim myReader As New System.IO.StreamReader(path)
            Dim fileContent As String = myReader.ReadToEnd()

            Me.CountTextBox.Text = fileContent.Length

        Catch ex As System.IO.FileNotFoundException
            MessageBox.Show(ex.ToString())
            MessageBox.Show("Gelieve een bestand te selecteren.")
        Catch ex As System.ArgumentException
            MessageBox.Show(ex.ToString())
            MessageBox.Show("Er is een onverklaarbare fout opgetreden, start het programma opnieuw op aub.")
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
            MessageBox.Show("Er is een fout opgetreden, probeer opnieuw")
        End Try
    End Sub


End Class

For Each argument As String In My.Application.CommandLineArgs