以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]文件名获取问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30575)
--  作者：effective
--  发布时间：2013/3/30 15:28:00
--  [求助]文件名获取问题
我想把件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编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/3/30 15:32:00
--  
For Each file1 As String In FileSys.GetFiles("E:\\works\\工件管理系统\\photos")
    Dim file2 As String = "E:\\works\\工件管理系统\\pictures\\" & FileSys.GetName(file1)
    If Filesys.FileExists(file2) = False Then
        FileSys.CopyFile(file1,file2)
    End If
Next
--  作者：effective
--  发布时间：2013/3/30 15:55:00
--  
thank you，成功了