DirectoryNotFoundException не было обработано

Я пытаюсь создать новый файл и записать в него двоичный файл, но произошла следующая ошибка.

Не удалось найти часть пути «C:\Users\user\Documents...\bin\Debug\data\binary\admin.bin».

Вот мой код

    Dim bw As BinaryWriter
    dim pathBin As String = Application.StartupPath & "\binary"
    Dim fileExist As Boolean

    Try
        bw = New BinaryWriter(New FileStream(pathBin & "\admin.bin", FileMode.create))
        fileExist = True
    Catch ex As IOException
        MessageBox.Show(ex.Message & vbNewLine & "Cannot create file.")
    End Try
    bw.Close()

person EmPlusPlus    schedule 03.09.2013    source источник
comment
существует ли бинарный файл папки? Если нет, FIleStream не создаст его   -  person user1937198    schedule 03.09.2013


Ответы (1)


Ваша проблема в том, что путь, который вы используете, не существует, что сильно расстроит FileStream. Попробуйте что-нибудь подобное прежде чем использовать FileStream:

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

Это гарантирует, что если каталог не существует, он будет создан заранее.

person Lloyd    schedule 03.09.2013