通过 vb6 程序复制或移动可执行文件

Question

我想使用 vb6 程序将可执行文件从一个位置复制或移动到另一个位置，例如从可移动磁盘到硬盘驱动器。示例 - 如果我运行我的程序，那么一个位置的文件将被复制到另一个位置。请让我知道如何做到这一点。

Answer 1

您可以使用FileCopy语句：

Dim sSource As String
Dim sDestination As String

sSource = "path\to\some\file.ext"
sDestination = "path\to\some\other\file.ext"
' Copies the source to the destination
Filecopy sSource, sDestination

您也可以使用该语句更改复制文件的名称，就像重命名语句一样。

Answer 2

正如 Arvo 在评论中所说，您可以使用 FileSystemObject 获得更多选项。您可以使用它来写入、读取或删除文件。要使用它，您必须添加对名为 "Microsoft Scripting Runtime" 的项目的引用。定义方法如下：

Private Sub Form_Load()
   Dim FSO As New FileSystemObject,Source as string,Destination as string
   Source="path\to\file.exe"
   Destination="path\to\folder"

   FSO.CopyFile(Source,Destination,false)
End Sub

如您所见，您还有一个额外的第三个选项："Overwrite"，它可以是可选的（默认值为 True）。

Answer 3

您只需更改 path1 文件和 path2 它的位置

复制文件路径1、路径2

通过 vb6 程序复制或移动可执行文件

Copying or moving executable files via a vb6 program

vb6