Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将OpenFileDialog选择的文件保存到指定的目录中?


  共有18230人关注过本帖树形打印复制链接

主题：如何将OpenFileDialog选择的文件保存到指定的目录中?
美女呀，离线，留言给我吧！
yangming
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00 		如何将OpenFileDialog选择的文件保存到指定的目录中?  发帖心情 Post By：2009/9/8 17:46:00 [只看该作者]

我将获得的文件放到表C第一列中,如何放到指定的目录中,比如放到系统的Attachments文件夹中?

Dim dlg As New OpenFileDialog '定一个新的OpenFileDialog
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
e.Form.Controls("TextBox1").Value = dlg.FileName
Dim dr As DataRow
dr = DataTables("表C").AddNew()
dr("第一列") = dlg.FileName
    MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
End If

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2009/9/8 18:01:00 [只看该作者]

CopyFile

将文件复制到新位置。

语法

CopyFile(sourceFile ,destinationFile ,overwrite)

sourceFile：要复制的文件。
destinationFile：目标文件。
overwrite: 可选参数，如果目标文件已经存在，是否覆盖。

示例

将文件Test.txt 复制到目录TestFiles2 ，但不覆盖现有的文件：

FileSys.CopyFile("C:\TestFiles\test.txt", "C:\TestFiles2\test.txt")

 

将文件Test.txt 复制到目录TestFiles2 ，并重命名为mytext.txt，如果mytext.txt文件已经存在，则覆盖：

FileSys.CopyFile("C:\TestFiles\test.txt", "C:\TestFiles2\mytest.txt",True)

 回到顶部
美女呀，离线，留言给我吧！
yangming
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00 		  发帖心情 Post By：2009/9/8 18:17:00 [只看该作者]

谢谢,我试试

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询