vb.net - 移动目录中的文件夹

Question

我有一个路径 D:\myfolder1\mysubfolder
我想将 mysubfolder 移动到根目录(D :)
这是我尝试使用的代码，它给了我一个错误，说参数无效。

Public Sub Movefolder()
    Dim listFolders() As String = Directory.GetDirectories("D:\myfolder1")
    Dim curf As String

    For Each curf In listFolders 'listfolders(1) would be the mysubfolder
        Dim DirInfo As New System.IO.DirectoryInfo(curf)
        Directory.Move(curf, "D:\") 'This is where I get the error
    Next

End Sub

任何人都可以指出我做错的地方还是有更简单或至少另一种方法？

Answer 1

根据docs ，目标路径必须包含您要移动的文件或目录的新名称。

因为您已经检索到 DirectoryInfo对于正在移动的文件夹，您可以使用其 Name property获取您正在移动的目录的名称，然后您可以将其附加到目标路径:

For Each curf In listFolders '// listfolders(1) would be the mysubfolder
    Dim DirInfo As New System.IO.DirectoryInfo(curf)
    Directory.Move(curf, Path.Combine("D:\", DirInfo.Name))
Next