在Visual Basic （VB）中，有多种方法可以实现文件复制。以下是几种常见的方法：
方法1：使用FileCopy函数
FileCopy函数可以用于将一个文件复制到另一个位置。以下是一个简单的示例代码：
```vb
Dim sourceFile As String
Dim destinationFolder As String
sourceFile = "C:\path\to\source\file.txt"
destinationFolder = "C:\path\to\destination\folder\"
FileCopy sourceFile, destinationFolder & "file.txt"
```
在这个示例中，`sourceFile` 是源文件的路径，`destinationFolder` 是目标文件夹的路径。`FileCopy` 函数将源文件复制到目标文件夹中，并保持原文件名不变。如果需要更改复制后的文件名，可以修改 `destinationFolder` 后面的文件名部分。
方法2：使用VBA代码复制文件
如果你想在VB的VBA环境中复制文件，可以使用以下代码：
```vba
Sub CopyFile（）
Dim sourcePath As String
Dim destPath As String
sourcePath = ThisWorkbook.Path & "\1.txt"
destPath = ThisWorkbook.Path & "\2.txt"
FileCopy sourcePath, destPath
End Sub
```
在这个VBA宏中，`sourcePath` 是源文件的路径，`destPath` 是目标文件的路径。`FileCopy` 函数用于将文件从源路径复制到目标路径。
方法3：使用Windows API函数
如果你需要更高级的控制，例如复制文件属性或处理不同文件格式，可以使用Windows API函数。以下是一个使用 `CopyFile` 和 `CopyFileEx` 函数的示例：
```vb
Private Declare PtrSafe Function CopyFile Lib "kernel32" Alias "CopyFileA" （ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Boolean） As Boolean
Sub CopyFileWithAttributes（）
Dim sourcePath As String
Dim destPath As String
sourcePath = "C:\path\to\source\file.txt"
destPath = "C:\path\to\destination\folder\file.txt"
If CopyFile（sourcePath, destPath, False） Then
MsgBox "文件复制成功!"
Else
MsgBox "文件复制失败!"
End If
End Sub
```
在这个示例中，`CopyFile` 函数用于复制文件，`bFailIfExists` 参数指定如果目标文件已存在是否失败。
方法4：使用剪贴板进行复制粘贴
如果你想在VB中实现剪贴板的复制粘贴操作，可以使用以下代码：
```vb
Private Sub Command1_Click（）
Clipboard.SetText Text1.Text
End Sub
Private Sub Command2_Click（）
Text1.Text = Clipboard.GetText
End Sub
```
在这个示例中，`Command1_Click` 事件将文本框 `Text1` 的内容复制到剪贴板，`Command2_Click` 事件将剪贴板的内容粘贴到文本框 `Text1` 中。
总结
以上是几种在VB中实现文件复制的方法，包括使用内置的 `FileCopy` 函数、VBA代码、Windows API函数以及剪贴板操作。根据你的具体需求选择合适的方法即可。