如何在创建文件时创建子文件夹

Question

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

如果我给它一个这样的路径：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

Answer 1

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

If(Not System.IO.Directory.Exists(path)) Then
    System.IO.Directory.CreateDirectory(path)