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

正如您所看到的，您还有一个额外的第三个选项：“覆盖”，它可以是可选的（默认值为True）。

Answer 3

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

Copyfile path1，path2

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

3 个答案: