0

我正在制作一个应用程序，该应用程序涉及读取现有文件的块并将它们写入新文件......现在，问题是我当前使用的代码不会创建子文件夹，如果给出完整路径则文件.. .

如果我给它一个这样的路径： C:\folder1\folder2\file.mp3 它会给出一个错误，因为文件夹 folder1 和 2 不存在，但是，如果它们在创建时不存在，我希望它创建这些子文件夹文件...谢谢...这是我的代码：

  Dim bytesRead As Integer
Dim buffer(40096) As Byte

Using inFile As New System.IO.FileStream(arch, IO.FileMode.Open, IO.FileAccess.Read)
    Using outFile As New System.IO.FileStream(path & "\" & f, IO.FileMode.Create, IO.FileAccess.Write)
        inFile.Seek(StartAt, IO.SeekOrigin.Begin)

        Do
            If astop.Text = 1 = False Then
                If CurrentFsize - currtotal < buffer.Length Then
                    ReDim buffer(CurrentFsize - currtotal)
                End If

                bytesRead = inFile.Read(buffer, 0, buffer.Length)
                If bytesRead > 0 Then
                    outFile.Write(buffer, 0, bytesRead)
                    currtotal += bytesRead



                End If
            Else
                Exit Do
                Exit Do

            End If
            Application.DoEvents()

        Loop While bytesRead > 0 AndAlso currtotal < CurrentFsize
    End Using
End Using
4

1 回答 1

2

您应该path在创建输出文件之前创建目录和子目录：

If(Not System.IO.Directory.Exists(path)) Then
    System.IO.Directory.CreateDirectory(path)
于 2013-08-21T14:18:21.440 回答