VBScript - 卸载 USB 驱动器

Question

我有一个乏味的项目即将到来。我需要将 USB 闪存驱动器插入计算机，然后将三个文件复制到该驱动器，然后卸载它并重复 3000 次(字面意思)。我希望能想出一些 VBScript 来减少我的 Action

插入 U 盘，

双击 .vbs 文件，

移除 USB 闪存驱动器。

我认为只要我每次都将 USB 插入同一个端口，想出代码的复制和粘贴部分并不太难。这个假设正确吗？然而，真正的问题是卸载/弹出 USB 驱动器。是否有任何简单的 VB 脚本代码可以完成此操作？

Answer 1

这是 vbscript 卸载的第一个 Google 结果:Unmounting USB drives

如果脚本以管理员身份运行，这在 Windows 7 上有效:

Set shell = WScript.CreateObject("WScript.Shell")
shell.Run "mountvol <drive>: /d"

mountvol包含在 Windows 中。

您甚至可以通过轮询 USB 内存棒安装到的驱动器号来减少所需的输入，如果存在驱动器，则复制文件然后卸载。