桌面文件夹内的子文件夹

时间:2018-03-31 21:13:13

标签: vb.net desktop subdirectory create-directory

我想在我已经在桌面上创建的文件夹X中创建一个子文件夹Y(见下文)。

Dim myFolder As String = IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "X")
If (Not (System.IO.Directory.Exists(myFolder))) Then
     System.IO.Directory.CreateDirectory(myFolder)
End If

我想我应该使用:System.IO.Directory.CreateDirectory(path),但路径是什么?

我不知道用于创建文件夹的语法" Y"在文件夹内" X"。

也许,path = My.Computer.FileSystem.SpecialDirectories.Desktop& " \ X \",但没有创建。

2 个答案:

答案 0 :(得分:1)

可能比您想象的要容易:Directory.CreateDirectory将创建所需的所有目录,因此您可以使用:

Dim myFolder = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory), "X", "Y")
Directory.CreateDirectory(myFolder)

或者如果您使用的是.NET Framework 1.1,它只允许在Path.Combine中使用两个项目:

Dim rootFolder = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory), "X")
Dim myFolder = Path.Combine(rootFolder, "Y")
Directory.CreateDirectory(myFolder)

总是值得查看文档,因为它通常包含有关方法的一些常见用法的有用注释。

答案 1 :(得分:0)

好的,我找到了。只做一个双重组合。

感谢您的帮助。

JLuc01

        Dim Folder As String = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory), "X")
        Dim subFolder As String = IO.Path.Combine(Folder, "Y")
        If (Not (System.IO.Directory.Exists(subFolder))) Then
            System.IO.Directory.CreateDirectory(subFolder)
        End If