Question

我想制作一个应用程序，将文件从flashdrive复制到我的电脑（2-6GB）。问题是，我希望我的应用程序在完成将文件复制到计算机后自动关闭。

我应该添加什么代码？

Dim Source As String = (GetDriveLetterFromMask(Volume.dbcv_unitmask) & ":\")
Dim Destination As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Backup" 'This Is The Destination Folder (My Documents\Backup\*.*)
                            'Loop All Files And Folders To Copy Everything
For Each strFile As String In My.Computer.FileSystem.GetFiles(Source, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
Dim strFileName As String = System.IO.Path.GetFileName(strFile) 'Get File Name From File Path
My.Computer.FileSystem.CopyFile(strFile, Destination & strFileName)

Answer 1

使用CallByName可以很容易地实现这一点。

Learn more about BackGroundWorker

只需将代码添加到BackGroundWorker的{{1}}事件中，然后在DoWork事件中添加：

BackGroundWorker

完整代码

首先，你可以从工具箱中添加一个backgroundworker（只需双击工具箱中的BackGroundWorker控件即可添加它）。现在，当添加backgroundworker时，你可以在左下角看到后台工作者visual Studio窗口（默认名称为BackGroundWorker1）。双击backgroundwoker1，它将带您进入CODE窗口，其中RunWorkerCompleted事件将被预选。

现在让我们编码!!

 Me.Close 'or you can use Application.Exit

我想这就是你现在所需要的一切。

有关详情，请按this video

复制完成后自动关闭应用程序？

1 个答案: