磁盘文件拷贝？？

[taotb026]

我现在要拷贝一个文件，原文件的路径知道，但是不知道目标文件路径，我该怎么做，能不能给出原代码。如果用file.copy(原文件的路径,目标文件路径)，是不是应该通过先拷贝到剪贴板，然后在拷贝到目标文件夹下面。（实现象windows的文件拷贝）

[citylamp]

可以的，用对象Clipboard

' 声明IDataObject存放从剪贴板返回的数据
Dim iData As IDataObject
' 复制输入框的文字到剪贴板
Clipboard.SetDataObject(RichTextBox1.Text)
....处理
iData = Clipboard.GetDataObject()
If iData.GetDataPresent(DataFormats.Text) Then
RichTextBox1.Text = CType(iData.GetData(DataFormats.Text), String)
End If

[TonyTonyQ]

直接用 FileCopy() 函数拷贝，函数定义如下：FileCopy(Source as String,Destination as String)。 你可以用变量记录原路径，在确定目标路径后用这个函数来拷贝