主题：关于文件操作

因为你不知道这个文件的全部名称，怎么去操作呢？比如我用你的方法，知道里面有10个符合我要求的文件，我想把其中的一个复制到另一个目录中，并改名。

我就是不知道，怎么把其中的一个文件确定下来？

我怎么知道你要怎么确定下来呢? 你自己的业务,只有你自己最清楚.

Dim folder As String = "C:\Documents and Settings\Administrator\桌面\新建文件夹"
Dim dlg As New OpenFileDialog

dlg.Filter= "查找文件|*North*.mdb"

dlg.InitialDirectory = folder
If dlg.ShowDialog = DialogResult.Ok Then 

    FileSys.CopyFile(dlg.FileName,"D:\Southwind.mdb")
End If

换一种问法：

我这个代码有什么问题？

For Each r As DataRow In DataTables("库存明细表").DataRows
FileSys.CopyFile("d:\COA\*&" & r("产品批号") & ".pdf", "d:\coa1\" & r("产品批号") & ".pdf")
Next
错误是路径中有非法字符。

不如上个小例子，照着例子问，照着例子做，早就OK了。

今天刚换了开发版。不知道哪位帮个忙。

我想实现的是，在项目里有COA和COA1 2个目录。我想把目录COA中的PDF文件中 所有包含库存表里批号字段的文件，复制到COA1目录中。如果该批号能找到并复制成功，库存表里该批号的颜色变成绿色。

麻烦哪位帮帮忙。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

着色功能 增加一个逻辑列 参考帮助DrawCell