vb.net word文档的复制粘贴

[ElaineZL]

我想实现点击button1按钮，将电脑里已经存在的word文档打开，关闭后，再点击button2使这个文档复制到相应的路径中，各位高手帮忙呀。。。

[lizhengnan]

Dim strSource As string="原文件路径"
Dim strDest As string="目标文件路径"

system.IO.File.Copy(strSource ,strDest )

[ElaineZL]

[Quote=引用 3 楼 lizhengnan 的回复:]
Dim strSource As string="原文件路径"
Dim strDest As string="目标文件路径"

system.IO.File.Copy(strSource ,strDest )
[/Quote]
不对哦，strDest必须是目标文件的名称，不能是现有文件或目录啊，我是想把文件粘贴在一个空的文件夹中的，因为每次保存文件名是会改变的，所以我把文件名存在了textbox中，在窗体中可以手动改的

[lizhengnan]

不太明白.

Dim strSource As string="原文件路径" 
Dim strDest As string="C:\" & TextBox1.Text 

system.IO.File.Copy(strSource ,strDest ) 

把文件复制到C盘,文件名为TextBox1.Text中的文件名

[ElaineZL]

[Quote=引用 5 楼 lizhengnan 的回复:]
不太明白.


VB.NET code
Dim strSource As string="原文件路径"
Dim strDest As string="C:\" & TextBox1.Text

system.IO.File.Copy(strSource ,strDest )




把文件复制到C盘,文件名为TextBox1.Text中的文件名
[/Quote]
是原文件名是改变的，文件名放在textbox1中

[ElaineZL]

终于对了呢，还有打开一个WORD文档怎样实现的呢？用openfiledialog哦。。。

[一只熊猫]

要想打开word文档，首引你要在引用中添加 Microsoft Word 11.0 Object Library。

Imports Microsoft.Office.Interop

private sub opendoc()
dim opendoc as new openfiledialog
opendoc.Filter = "(*.Doc)|*.Doc"
opendoc.DefaultExt = "*.Doc"
if  nfo.ShowDialog()= Windows.Forms.DialogResult.OK then
    Dim wrdApp As New Microsoft.Office.Interop.Word.Application
    Dim wrdDoc As Microsoft.Office.Interop.Word.Document
    wrdapp.Visible=true
    wrdDoc = wrdApp.Documents.Open(opendoc.filename)
end if
end sub

[一只熊猫]

if nfo.ShowDialog()= Windows.Forms.DialogResult.OK then

nfo 改成 opendoc

[yanlongwuhui]

文件的复制粘贴？ io.File.Copy

[ElaineZL]

恩，也是文件的复制粘贴，具体怎样实现啊？能给具体代码吗？

[ElaineZL]

嘿嘿。。。非常感谢