Question

我有以下代码在桌面目录中创建子文件夹。这很好，没问题。

但是，我想在新创建的子文件夹中创建另一个子文件夹。我目前使用的代码是：

Dim ab = New DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Client\" & TextBox1.Text))
            If Not ab.Exists Then ab.Create()

            ‘Need help here on how to create another sub-folder within the newly created sub-folder…
Dim fi = New DirectoryInfo(?????)
            If Not fi.Exists Then fi.Create()

请问如何让程序执行此操作？

Answer 1

将您创建的第一个文件夹的地址保留在字符串中，并将其用作子文件夹的基础。

Answer 2

将原始文件夹位置保存在字符串变量中，然后根据需要构建它。

StartPath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), _ 
         "Client\" & TextBox1.Text)

Dim ab = New DirectoryInfo(StartPath)
If Not ab.Exists Then ab.Create()

StartPath = Path.Combine(StartPath, "NextLevel\")

Dim fi = New DirectoryInfo(StartPath)
If Not fi.Exists Then fi.Create()

Answer 3

这是创建整个路径的一种非常简单的方法：

Dim ensureExists As Action(Of DirectoryInfo) = Nothing
ensureExists = Sub(di)
    di.Refresh()
    If Not di.Exists
        ensureExists(di.Parent)
        di.Create()
    End If
End Sub

现在，您只需使用ensureExists所需的完整路径调用DirectoryInfo即可确保整个路径都在那里。

ensureExists(New DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Client\" & TextBox1.Text)))

需要帮助来创建第二级子文件夹

3 个答案: