OpenFileDialog in een variable (Opgelost)

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' First create a FolderBrowserDialog object
        Dim FolderBrowserDialog1 As New FolderBrowserDialog

        ' Then use the following code to create the Dialog window
        ' Change the .SelectedPath property to the default location
        With FolderBrowserDialog1
            ' Desktop is the root folder in the dialog.
            .RootFolder = Environment.SpecialFolder.Desktop
            ' Select the C:\Windows directory on entry.
            .SelectedPath = "c:\windows"
            ' Prompt the user with a custom message.
            .Description = "Select the source directory"
            If .ShowDialog = DialogResult.OK Then
                ' Display the selected folder if the user clicked on the OK button.
                MessageBox.Show(.SelectedPath)
            End If
        End With

    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' First create a FolderBrowserDialog object
        Dim FolderBrowserDialog1 As New FolderBrowserDialog
 
        ' Then use the following code to create the Dialog window
        ' Change the .SelectedPath property to the default location
        With FolderBrowserDialog1
            ' Desktop is the root folder in the dialog.
            .RootFolder = Environment.SpecialFolder.Desktop
            ' Select the C:\Windows directory on entry.
            .SelectedPath = "c:\windows"
            ' Prompt the user with a custom message.
            .Description = "Select the source directory"
            If .ShowDialog = DialogResult.OK Then
                ' Display the selected folder if the user clicked on the OK button.
                MessageBox.Show(.SelectedPath)
            End If
        End With
 
    End Sub

 Dim strbestandsNaam As String

        'instellingen OpenFileDialog
        MyOpenFileDialog.Filter = "Alle bestanden (*.*)|*.*|Teksbestanden (*.txt)|*.txt"
        MyOpenFileDialog.FilterIndex = 2
        MyOpenFileDialog.InitialDirectory = "D:\"
        MyOpenFileDialog.RestoreDirectory = True
        MyOpenFileDialog.FileName = ""

        If MyOpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            'als op OK geklikt werd wordt bestandsnaam door
            'de FileDialog teruggegeven
            strbestandsNaam = MyOpenFileDialog.FileName
            'methode BestandInlezen oproepen om gekozen
            'bestand te openen en de gegevens op te halen
            BestandInlezen(strbestandsNaam)
            'knop Toon Selectie beschikbaar maken
            btnToonSelectie.Enabled = True
        Else
            'als niet op OK werd  geklikt
            'gebeurt er niets en dit wordt aan gebruiker
            'meegedeeld
            MessageBox.Show("Bewerking geannuleerd !", "Fout", _
                MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If

Dim strbestandsNaam As String
 
        'instellingen OpenFileDialog
        MyOpenFileDialog.Filter = "Alle bestanden (*.*)|*.*|Teksbestanden (*.txt)|*.txt"
        MyOpenFileDialog.FilterIndex = 2
        MyOpenFileDialog.InitialDirectory = "D:\"
        MyOpenFileDialog.RestoreDirectory = True
        MyOpenFileDialog.FileName = ""
 
        If MyOpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            'als op OK geklikt werd wordt bestandsnaam door
            'de FileDialog teruggegeven
            strbestandsNaam = MyOpenFileDialog.FileName
            'methode BestandInlezen oproepen om gekozen
            'bestand te openen en de gegevens op te halen
            BestandInlezen(strbestandsNaam)
            'knop Toon Selectie beschikbaar maken
            btnToonSelectie.Enabled = True
        Else
            'als niet op OK werd  geklikt
            'gebeurt er niets en dit wordt aan gebruiker
            'meegedeeld
            MessageBox.Show("Bewerking geannuleerd !", "Fout", _
                MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim strbestandsNaam As String

        'instellingen OpenFileDialog
        OpenFileDialog1.Filter = "Alle bestanden (*.*)|*.*|Zip Bestanden (*.zip)|*.zip"
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.InitialDirectory = "D:\"
        OpenFileDialog1.RestoreDirectory = True
        OpenFileDialog1.FileName = ""

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            'als op OK geklikt werd wordt bestandsnaam door
            'de FileDialog teruggegeven
            strbestandsNaam = OpenFileDialog1.FileName

            MessageBox.Show("U heeft het volgende bestand geselecteerd - " + strbestandsNaam)

        Else
            'als niet op OK werd  geklikt
            'gebeurt er niets en dit wordt aan gebruiker
            'meegedeeld
            MessageBox.Show("Bewerking geannuleerd !", "Fout", _
                MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If


    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim strbestandsNaam As String
 
        'instellingen OpenFileDialog
        OpenFileDialog1.Filter = "Alle bestanden (*.*)|*.*|Zip Bestanden (*.zip)|*.zip"
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.InitialDirectory = "D:\"
        OpenFileDialog1.RestoreDirectory = True
        OpenFileDialog1.FileName = ""
 
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            'als op OK geklikt werd wordt bestandsnaam door
            'de FileDialog teruggegeven
            strbestandsNaam = OpenFileDialog1.FileName
 
            MessageBox.Show("U heeft het volgende bestand geselecteerd - " + strbestandsNaam)
 
        Else
            'als niet op OK werd  geklikt
            'gebeurt er niets en dit wordt aan gebruiker
            'meegedeeld
            MessageBox.Show("Bewerking geannuleerd !", "Fout", _
                MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If
 
 
    End Sub

    Sub uploadfile()

        Dim client As New System.Net.WebClient()
        AddHandler client.UploadProgressChanged, AddressOf UpdateProgressBar

        With client

            .Credentials = New NetworkCredential("webwinkelpro", "sephimar")
            .UploadFileAsync(New Uri("ftp://82.134.141.86:1225/test.zip"), _
                             "C:\test.zip")

        End With

    End Sub

Sub uploadfile()
 
        Dim client As New System.Net.WebClient()
        AddHandler client.UploadProgressChanged, AddressOf UpdateProgressBar
 
        With client
 
            .Credentials = New NetworkCredential("webwinkelpro", "sephimar")
            .UploadFileAsync(New Uri("ftp://82.134.141.86:1225/test.zip"), _
                             "C:\test.zip")
 
        End With
 
    End Sub

Private strBestandsNaam as String = ""

Private strBestandsNaam as String = ""