[RESOLVED] [2005] Error catching

[simonp]

I'm trying to improve my app with some error catching.

I have a module that downloads a file from the Internet to a local folder. At the moment, if the local folder doesn't exist, it just crashes here:

strLocalFile = New FileStream(pPath, FileMode.Create, FileAccess.Write, FileShare.None)

with error:

System.IO.DirectoryNotFoundException was unhandled
Message="Could not find a part of the path 'C:\Documents and Settings\Simon\Desktop\test\download.zip'."
Source="mscorlib"

How can I do something with that error and stop my app from crashing?

Ideally, have a messagebox show saying 'directory not found' or similar.

Thanks

Simon

[kleinma]

Maybe something like this:

        Try
            'CHECK FOR AND CREATE DIRECTORY FIRST
            Dim DirectoryName As String = Path.GetDirectoryName(pPath)
            If Not Directory.Exists(DirectoryName) Then
                Directory.CreateDirectory(DirectoryName)
            End If

            strLocalFile = New FileStream(pPath, FileMode.Create, FileAccess.Write, FileShare.None)
            '
            '
            '
        Catch ex As Exception
            'HANDLE ERROR HERE
            MessageBox.Show(ex.Message)
        End Try

[VBDT]

you can have Try...Chatch block to catch the excception thrown and sho a messegbox telling the user about the problem.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            '...
            '...
            strLocalFile = New FileStream(pPath, FileMode.Create, FileAccess.Write, FileShare.None)
        Catch ex As DirectoryNotFoundException
            MessageBox.Show(ex.Message)
            'you can chach some other exceptions as well.
        Catch ex As FileNotFoundException
            '...
        End Try
    End Sub

[simonp]

Thanks guys,

I'm getting an error at:

If Not Directory.Exists(DirectoryName) Then
                Directory.CreateDirectory(DirectoryName)
            End If

Saying that Name 'Directory' is not declared.

What am I missing?

Cheers

Simon

[VBDT]

I think you are missing the IO namespace. Try

IO.Directory

[simonp]

Thanks

If Not IO.Directory.Exists(DirectoryName) Then
                IO.Directory.CreateDirectory(DirectoryName)
            End If

Works great.

Simon