Public Class frmUpload

    Private filename As String

    Private Sub openTextFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openTextFile.Click
        Try
            With odlgTextFile
                ' Check to ensure that the selected file exists.  Dialog box displays
                ' a warning otherwise.
                .CheckFileExists = True

                ' Check to ensure that the selected path exists.  Dialog box displays
                ' a warning otherwise.
                .CheckPathExists = True

                ' Get or set default extension. Doesn't include the leading ".".
                .DefaultExt = "PDF"

                ' Return the file referenced by a link? If False, simply returns the selected link
                ' file. If True, returns the file linked to the LNK file.
                .DereferenceLinks = True

                ' Just as in VB6, use a set of pairs of filters, separated with "|". Each
                ' pair consists of a description|file spec. Use a "|" between pairs. No need to put a
                ' trailing "|". You can set the FilterIndex property as well, to select the default
                ' filter. The first filter is numbered 1 (not 0). The default is 1.
                .Filter = _
                "Adobe PDF(*.pdf)|*pdf|JPEG(*.JPG,*.JPEG,*.JPE,*.JFIF)|*.JPEG|Text Documents(*.txt)|*.txt|All files|*.*"

                .Multiselect = False

                ' Restore the original directory when done selecting
                ' a file? If False, the current directory changes
                ' to the directory in which you selected the file.
                ' Set this to True to put the current folder back
                ' where it was when you started.
                ' The default is False.
                .RestoreDirectory = True

                ' Show the Help button and Read-Only checkbox?
                .ShowHelp = True
                .ShowReadOnly = False

                ' Start out with the read-only check box checked?
                ' This only make sense if ShowReadOnly is True.
                .ReadOnlyChecked = False

                .Title = "Select Artwok To Upload"

                ' Only accept valid Win32 file names?
                .ValidateNames = True

                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    Try
                        txtFileContents.Text = My.Computer.FileSystem.ReadAllText(.FileName)
                    Catch fileException As Exception
                        Throw fileException
                    End Try
                End If

            End With
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
        End Try
    End Sub

    Private Sub btnSaveTextFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveTextFile.Click
        Try
            With sdlgTextFile
                ' See the code demonstrating the OpenFileDialog control
                ' for examples using most properties, which are the same
                ' for both controls, for the most part.

                ' Add the default extension, if the user neglects to add an extension.
                ' The default is True.
                .AddExtension = True

                ' Check to verify that the output path actually exists. Prompt before
                ' creating a new file? Prompt before overwriting?
                ' The default is True.
                .CheckPathExists = True
                ' The default is False.
                .CreatePrompt = False
                ' The default is True.
                .OverwritePrompt = True
                ' The default is True.
                .ValidateNames = True
                ' The default is False.
                .ShowHelp = True

                ' If the user doesn't supply an extension, and if the AddExtension property is
                ' True, use this extension. The default is "".
                .DefaultExt = "PDF"

                ' Prompt with the current file name if you've specified it.
                ' The default is "".
                .FileName = filename

                ' The default is "".
                .Filter = _
                "Adobe PDF(*.pdf)|*pdf|JPEG(*.JPG,*.JPEG,*.JPE,*.JFIF)|*.JPEG|Text Documents(*.txt)|*.txt|All files|*.*"
                .FilterIndex = 1

                If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                    My.Computer.FileSystem.WriteAllText(.FileName, txtFileContents.Text, False)
                End If

            End With
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
        End Try
    End Sub