控制台目录复制应用进度条异常求助：进度无变化或固定1%

嘿，我懂你这会儿的头疼——做控制台目录复制时，进度条要么全程没反应，要么一直卡着1%不动，这俩问题其实都是代码逻辑和复制操作的同步性没捋顺，咱们一步步拆解解决：

先搞清楚你的两个问题根源 #

1. 进度条完全无反应的原因 #

你用的My.Computer.FileSystem.CopyDirectory是个同步阻塞方法——它会一口气把整个目录复制完，才会轮到后面的进度循环代码执行。也就是说，文件复制的过程中，你的For i = 1 To 100循环根本没机会跑，等复制结束了循环才开始动，这时候你看到的进度条其实是复制完成后的“假进度”，自然在复制过程中毫无反应。

2. 进度条一直显示1%的原因 #

你的进度更新循环和实际复制操作完全脱节了：要么是循环跑在复制操作之前（复制的时候循环已经跑完了），要么是循环只是单纯从1到100计数，根本没和真实的文件复制进度挂钩。没有实时获取已复制的文件大小或数量，进度条当然不会更新，看起来就一直停在1%。

正确解决方案：手动遍历文件复制，实时跟踪进度 #

要实现真实的进度条，咱们不能依赖现成的CopyDirectory，得自己递归遍历所有文件，复制的同时计算已复制的字节数，这样才能实时更新进度。下面是完整的VB.NET代码示例：

Imports System.IO

Module DirectoryCopyWithProgress
    Sub Main()
        Dim sourcePath As String = "C:\Your\Source\Path"
        Dim destPath As String = "C:\Your\Destination\Path"

        ' 第一步：获取源目录下所有文件，计算总大小
        Dim allFiles As List(Of String) = GetAllFiles(sourcePath)
        Dim totalSize As Long = allFiles.Sum(Function(filePath) New FileInfo(filePath).Length)
        Dim copiedSize As Long = 0

        Console.WriteLine("开始复制目录...")

        For Each sourceFile As String In allFiles
            ' 生成目标文件的对应路径
            Dim relativePath As String = sourceFile.Substring(sourcePath.Length)
            Dim destFile As String = Path.Combine(destPath, relativePath)
            
            ' 创建目标文件所在的目录（如果不存在）
            Directory.CreateDirectory(Path.GetDirectoryName(destFile))

            ' 分块复制文件，同时更新进度
            Using sourceStream As New FileStream(sourceFile, FileMode.Open, FileAccess.Read)
                Using destStream As New FileStream(destFile, FileMode.Create, FileAccess.Write)
                    Dim buffer(4095) As Byte ' 用4KB缓冲区提升复制效率
                    Dim bytesRead As Integer

                    Do
                        bytesRead = sourceStream.Read(buffer, 0, buffer.Length)
                        If bytesRead = 0 Then Exit Do

                        destStream.Write(buffer, 0, bytesRead)
                        copiedSize += bytesRead

                        ' 计算实时进度百分比
                        Dim progress As Integer = CInt((copiedSize / totalSize) * 100)
                        ' 用vbCr回到行首，覆盖之前的进度输出，实现动态进度条
                        Console.Write(vbCr & $"复制进度: {progress}%")
                    Loop
                End Using
            End Using
        Next

        Console.WriteLine(vbCr & "复制完成！")
    End Sub

    ' 递归获取目录下所有子文件（包括子目录里的）
    Private Function GetAllFiles(ByVal directoryPath As String) As List(Of String)
        Dim files As New List(Of String)(Directory.GetFiles(directoryPath))
        For Each subDir As String In Directory.GetDirectories(directoryPath)
            files.AddRange(GetAllFiles(subDir))
        Next
        Return files
    End Function
End Module

代码关键细节说明 #

• 递归遍历文件：GetAllFiles方法会把源目录下所有子文件都找出来，保证复制的完整性和CopyDirectory功能一致。
• 实时进度计算：通过累计已复制的字节数，对比总文件大小，算出真实的进度百分比，不会再出现虚假的进度。
• 动态控制台输出：用vbCr（回车符）回到当前行的开头，每次输出都覆盖之前的进度文本，实现类似进度条的动态效果。
• 缓冲区复制：用4KB的缓冲区分块复制文件，比逐字节复制效率高很多，同时也能更频繁地更新进度。

这样修改后，你就能看到控制台里的进度条随着文件复制实时更新啦！

内容的提问来源于stack exchange，提问作者bckelley