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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请教拷贝文件命令

共有4085人关注过本帖树形打印复制链接主题：[求助]请教拷贝文件命令

wyz20130512

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

等级：六尾狐帖子：1249 积分：9492 威望：0 精华：0 注册：2013/5/12 9:22:00

回复：（蓝色海洋2）[求助]请教拷贝文件命令 发帖心情

Post By：2015/12/17 20:58:00 [显示全部帖子]

Dim dlg As New OpenFileDialog

dlg.Filter = "Word文件|*.doc"

dlg.MultiSelect = True

If dlg.ShowDialog = DialogResult.OK Then

Dim files() As String = dlg.FileNames '注意此句代码不能上句代码互换位置.

Dim fb_dlg As New FolderBrowserDialog '定义文件夹对话框

If fb_dlg.ShowDialog = DialogResult.OK Then

For Each file As String In files

FileSys.CopyFile(file,fb_dlg.SelectedPath & "\" & FileSys.GetName(file),True)

End If

以上代码更具有通用性。

主题：[求助]请教拷贝文件命令