[求助]文件名获取问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]文件名获取问题

共有5976人关注过本帖树形打印复制链接主题：[求助]文件名获取问题

effective

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：22 积分：244 威望：0 精华：0 注册：2013/3/24 14:37:00

[求助]文件名获取问题 发帖心情

Post By：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

[此贴子已经被作者于2013-3-30 15:27:58编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：22 积分：244 威望：0 精华：0 注册：2013/3/24 14:37:00

Post By：2013/3/30 15:55:00 [只看该作者]

thank you，成功了

下一主题 >> << 上一主题

主题：[求助]文件名获取问题