主题：[求助]操作文件问题

其实Foxtable更简单，做个按钮就行了：

For Each dr As DataRow In DataTables("xxx").DataRows
     Dim fl1 As String = "C:\ZHQSJ\" & dr("分户号") &  ".dwg"
     Dim fl2 As String = "C:\ZHQSJ\" & & dr("户主") & "\" &  dr("分户号") &  ".dwg"
     FileSys.CopyFile(fl1,fl2,True)
Next