复制文件夹时平滑进度条 VB.NET

Question

我正在制作一个将子文件夹复制到另一个文件夹的程序，但我的进度条无法正常工作，例如当我复制单个子文件夹时，它的百分比仅为 20% 并停在那里，但如果它是 2 个子文件夹50%就停了，加载进度就像捷径一样不流畅。

你们能帮帮我吗？

更新

这是我的代码：

Dim foldersToCopy As New ArrayList()

Sub CopyFolders()

Dim foldsrc As DirectoryInfo = New DirectoryInfo(src)

    For Each folders In foldsrc.GetDirectories
        If Not System.IO.Directory.Exists(dest & "\" & folders.Name) Then
            foldersToCopy.Add(folders.Name)
        End If
    Next

    Dim src As String = Form2.TextBox1.Text
    Dim dest As String = Form2.TextBox2.Text

    Dim fcount = Directory.GetDirectories(src).Length
    Dim ftransfer As Integer = 0
    For i = 0 To foldersToCopy.Count - 1
            My.Computer.FileSystem.CopyDirectory(src & "\" & foldersToCopy(i), dest & "\" & foldersToCopy(i), True)
            ftransfer += 1
            Pbar1.value += ftransfer * 50 / fcount
            Pbar1.Update()
    Next
End Sub

顺便说一句，我可以将WebClient 的e.ProgressPercentage 或DownloadProgressChanged 用于此代码以获得平滑的进度条吗？ =)

Answer 1

ProgressBar 值从 0 变为 100 (%)，因此您必须缩放循环中的数字以计算出您已完成的百分比：

For i = 0 To foldersToCopy.Count - 1
    'copy the folder here
    Dim percentage = CSng(100 / foldersToCopy.Count * (i + 1))
    Pbar1.value = percentage
Next

Answer 2

确定一些更改。我已将您的文件夹复制声明移动到子目录中。 还添加了一行来将 Pbar1.maximum 设置为要复制的文件夹数减一，以便循环的最后一个循环，进度条将在最后，您不必费心重新计算如何获取 0 和之间的值100. 也

Sub CopyFolders()

Dim foldersToCopy As New ArrayList()
Dim foldsrc As DirectoryInfo = New DirectoryInfo(src)

    For Each folders In foldsrc.GetDirectories
        If Not System.IO.Directory.Exists(dest & "\" & folders.Name) Then
            foldersToCopy.Add(folders.Name)
        End If
    Next

    Dim src As String = Form2.TextBox1.Text
    Dim dest As String = Form2.TextBox2.Text

    Dim fcount = Directory.GetDirectories(src).Length
    Dim ftransfer As Integer = 0
    Pbar1.Maximum=fcount
    For i = 0 To foldersToCopy.Count - 1
            My.Computer.FileSystem.CopyDirectory(src & "\" & foldersToCopy(i), dest & "\" & foldersToCopy(i), True)
            Pbar1.value += 1
            Pbar1.Update()
    Next
End Sub

告诉我