使用递归：http://www.foxtable.com/webhelp/topics/2416.htm
假设函数名称：abc，函数内容
dim dir as string
For Each fl As String In FileSys.GetFiles(dir)
对文件的处理
next
For Each dir2 As String In FileSys.GetDirectories(dir) 如果有子目录
Functions.Execute("abc",dir2 )
Next
1楼代码改改
……
r ("操作员") = Tables("one").rows(0)("操作员")
ShowWaitDialog(New Operation(Function() As Boolean '等待开始
r.DataRow.SQLInsertFile("fl", fl) '插入文件
End Function), Nothing) '等待结束'
Next
MessageBox.Show ("已成功上传 " & ii & " 个文件")
For Each dir2 As String In FileSys.GetDirectories(dlg.SelectedPath)
Functions.Execute("abc",dir2 )
Next
tb.DataTable.Save
End If
加好友 
发短信
Post By：2022/8/5 10:25:00 [显示全部帖子]
