想在连接外部数据源时先建立一个目录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 想在连接外部数据源时先建立一个目录

共有2278人关注过本帖树形打印复制链接主题：想在连接外部数据源时先建立一个目录

sloyy

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

等级：九尾狐帖子：2180 积分：13804 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2020/2/27 1:21:00 [显示全部帖子]

If FileSys.DirectoryExists("D:\X")=False Then '如果D盘根目录下文件夹X不存在

FileSys.CreateDirectory("d:\Y") '先创建目录

FileSys.CopyDirectory (dir,"D:\X", True) '将Y目录内容拷贝到D盘的X目录下

endif

sloyy

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

等级：九尾狐帖子：2180 积分：13804 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2020/2/27 21:43:00 [显示全部帖子]

哦,是的可以直接复制目录及其内容

那就是合成的dir目录出问题了

Dim path As String=projectpath & "attachments"

Dim dir As String=path & "\Y"

If FileSys.DirectoryExists("D:\X")=False Then '如果D盘根目录下文件夹X不存在

messagebox.show(dir)

FileSys.CopyDirectory (dir,"D:\X", True) '将Y目录拷贝到D盘的X目录下

End If

看看发布前及发布后有什么不同

主题：想在连接外部数据源时先建立一个目录