[求助][求助]批量复制文件夹 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

批量复制文件夹，大文件复制时，在任务管理器，Foxtable 显示程序无响应，各位看看可不可以优化一下呢？

CellButtonClick

If e.Col.Name = "状态" Then

e.Cancel=True

Dim dlg As New FolderBrowserDialog

Dim Folder1, Folder2 As String

dlg.Description = "选择本地文件夹"

If dlg.ShowDialog = DialogResult.Ok Then

MessageBox.Show("你选择的本地文件夹是:" & dlg.SelectedPath,"提示")

Folder1 = dlg.SelectedPath

dlg.Description = "选择服务器文件夹"

If dlg.ShowDialog = DialogResult.Ok Then

MessageBox.Show("你选择的备份文件夹是:" & dlg.SelectedPath,"提示")

Folder2 = dlg.SelectedPath

e.Row("文件位置")=Folder1

e.Row("服务器备份路径")=Folder2

e.Row("状态")="已设置路径"

Tables("表b").AutoSizeCols()

End If

For Each r As Row In Tables("表b")

Dim Multi As String = r("文件位置")

Dim Multi2 As String = r("服务器备份路径")

try

FileSys.CopyDirectory (multi,Multi2,False)

catch

End try

Dim d As Date=today()

r("备份日期") = d

[此贴子已经被作者于2020/4/20 21:56:50编辑过]

就算直接在资源管理器复制大文件，整个电脑都卡的蜗牛样，没有办法的

最多试试这样

For Each r As Row In Tables("表b")

Dim Multi As String = r("文件位置")

Dim Multi2 As String = r("服务器备份路径")

try

FileSys.CopyDirectory (multi,Multi2,False)

application.doevents

catch

End try

Dim d As Date=today()

r("备份日期") = d

蓝老师，怎么放个进度条或者显示用时，证明没有死机？

蓝老师，我仿照做了一个，出现以下问题，再给我看看哪里可以优化。

好像Table、Datatable，窗口及窗口控件，菜单及菜单组件，都不应该在异步函数中调用

1、.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.1.19.19

错误所在事件：自定义函数copy

详细错误信息：

调用的目标发生了异常。

BindingSource 不能是自己的数据源。请不要将 DataSource 和 DataMember 属性设置为循环引用 BindingSource 的值。

2、执行主窗口_Button6_Click后，很快就显示 MessageBox.SHOW(" 更新已完成 ! ")，但是目标盘的文件实际还没有copy万了，这个怎么破解。

3、关闭窗口或退出程序后还会自动执行么？copy完了后怎么提示呢？

我的代码：

主窗口_Button6_Click

DataTables("表b").deleteFor("文件位置 is null")

If Tables("表b").Rows.Count = 0 Then '这是空表

MessageBox.SHOW(" 这是一个空白表,请设置后再执行! ","提示")

Else

e.Form.Controls("Label1").Text = "正在执行,不要关闭窗口,请稍后... ..."

Application.DoEvents() '即刻暂停代码的执行,重新绘制控件后,继续执行代码.

For i As Integer = 1 To 100

Functions.AsyncExecute("copy")

Sleep (2000) '等待2秒,待所有子线程线程执行完毕

Tables("表b").AutoSizeCols()

e.Form.Controls("Label1").Text = " "

MessageBox.SHOW(" 更新已完成 ! ")

DataTables.save

End If

自定义函数

Copy

For Each r As Row In Tables("表b")

Dim Multi As String = r("文件位置")

Dim Multi2 As String = r("服务器备份路径")

try

FileSys.CopyDirectory (multi,Multi2,False)

catch

End try

Dim d As Date=today()

r("备份日期") = d

全局代码

COPY

Public Copy As Integer

[此贴子已经被作者于2020/4/22 20:01:50编辑过]

先看懂代码，在用，不要只会照抄。

1、去掉循环

For i As Integer = 1 To 100

Functions.AsyncExecute("copy")

Sleep (2000) '等待2秒,待所有子线程线程执行完毕

改为

Functions.AsyncExecute("copy")

2、copy函数里不能使用table，改为使用SQLcommand从数据库里取数据

蓝老师，我用的是内部表，要怎么改，有帮助吗？

我还是不行啊，请蓝老师指教一下呢？

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.4.19.8

错误所在事件：自定义函数,copy

详细错误信息：

调用的目标发生了异常。

Dim cmd As New SQLCommand

Dim dt As DataTable = cmd.ExecuteReader

cmd.CommandText = "select * Fro m {表b}"

For Each dr As DataRow In dt.DataRows

Dim Multi As String = dr("文件位置")

Dim Multi2 As String = dr("服务器备份路径")

try

FileSys.CopyDirectory (multi,Multi2,False)

catch

End try

Dim d As Date=today()

dr("备份日期") = d

Dim cmd As New SQLCommand

cmd.CommandText = "select * Fro m {表b}"

Dim dt As DataTable = cmd.ExecuteReader

For Each dr As DataRow In dt.DataRows

Dim Multi As String = dr("文件位置")

Dim Multi2 As String = dr("服务器备份路径")

try

FileSys.CopyDirectory (multi,Multi2,False)

catch

End try

Dim d As Date=today()

dr("备份日期") = d

dt.save

主题：[求助][求助]批量复制文件夹