我想把件a文件夹里没有,而b文件夹里有的图片复制到a文件夹里,以下是我的代码,但是提示找不到文件,该怎么修改??
For Each File As String In FileSys.GetFiles("E:\works\工件管理系统\photos")
If Filesys.FileExists("E:\File.jpg") Then
Dim a=1
Else
FileSys.CopyFile("E:\works\工件管理系统\photos\File.jpg","E:\works\工件管理系统\pictures\File.jpg")
End If
Next
[此贴子已经被作者于2013-3-30 15:27:58编辑过]