Dim dt As DataTable = DataTables("文件表") For Each dr As DataRow In dt.Select("选择 = true") For Each f As String In FileSys.GetFiles(ProjectPath & "pic") If FileSys.GetName(f).StartsWith(dr("文件号")) Then FileSys.CopyFile(f, ProjectPath & "abc/" & FileSys.GetName(f), True) End If Next Next
加好友 
发短信
Post By：2018/1/19 8:46:00 [只看该作者]
