以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何将OpenFileDialog选择的文件保存到指定的目录中?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=4282)
--  作者：yangming
--  发布时间：2009/9/8 17:46:00
--  如何将OpenFileDialog选择的文件保存到指定的目录中?
我将获得的文件放到表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
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2009/9/8 18:17:00
--  
谢谢,我试试