移动文件夹中的所有文件，但不删除 VB .NET 中的文件夹

Question

我需要知道如何将文件夹内的所有文件（例如：C:\Folder1）移动到另一个文件夹（例如：C:\Folder2），但不能删除 Folder1 并获取已移动的项目数量，让我解释一下；

我需要移动 Folder1 中的所有项目（文件、文件夹、子文件夹、子文件等）维护目录结构，但不删除 Folder1，如果可能的话，我需要知道移动了多少文件夹和多少文件（只有文件夹数和文件数）。

有人可以帮我吗？ 提前谢谢你。

Answer 1

你可以试试这个递归过程。

Public Shared Function moveDirectoryContent(srcDir As String, destDir As String) as Integer
    Dim countFile As Integer = 0
    If (Not Directory.Exists(destDir)) Then
        Directory.CreateDirectory(destDir)
    End If
    Dim listFiles() As String = Directory.GetFileSystemEntries(srcDir)
    Dim curFile As String

    For Each curFile In listFiles
        If Directory.Exists(curFile) Then
            countFile = countFile + moveDirectoryContent(curFile, Path.Combine(destDir, Path.GetFileName(curFile)))
        Else
            Dim dstFile = Path.Combine(destDir, Path.GetFileName(curFile))
            If File.Exists(dstFile) Then
                dstFile = GetUniqueName(dstFile)
            End If
            File.Copy(curFile, dstFile)
            File.Delete(curFile)
            countFile = countFile + 1
        End If
    Next
    Return countFile
End Function


Public Shared Function GetUniqueName(srcFile as String) as String
    Dim uFile As String = Path.GetFileNameWithoutExtension(srcFile)
    Dim ext as String = Path.GetExtension(srcFile)
    Dim cnt As Integer = 0
    Dim uniqueText = string.Format("_{0}_00", DateTime.ToDay.ToString("yyyy_MM_dd"))
    While(File.Exists(uFile + uniqueText + ext))
        cnt = cnt + 1
        uniqueText = string.Format("_{0}_{1:D2}", DateTime.ToDay.ToString("yyyy_MM_dd"), cnt)
    End While
    Return Path.GetDirectoryName(srcFile) + "\" + uFile + uniqueText + ext
End Function

并以这种方式调用

numMoved = moveDirectoryContent("C:\temp", "C:\temp2")

注意，目标文件夹不能在源文件夹内....（不执行检查）