Question

我和朋友开始构建一个VBScript，其目的是在计算机上插入外部硬盘或USB时复制任何已打开的文件/某些特定格式的文档（如pdf，pptx）。我们的脚本只是将所有特定格式的文档从外部硬盘/ USB复制到我的计算机，但我们必须在插入外部硬盘/ USB后手动执行脚本。

我们希望脚本能够做什么：

插入外部硬盘/ USB时自动启动
复制后不显示弹出窗口
可能只复制用户打开的文件（pdf，jpeg，pptx）

这是我们到目前为止所做的：

' foreach.vbs
' Testing the for each function on files
'

' BEGIN

' Create a File System Object to handle files and folders
Set fso = CreateObject("Scripting.FileSystemObject")

' Some vars
src = "C:\" ' The source of search, should be changed before use
dest = "c:\temp\1\" ' destination where we will copy files to

' It would be a bright idead to force and/or create dest before
' starting copy
fso.CreateFolder(dest)

Set ofolder = fso.GetFolder(src) ' set as object
' get all files inside the specified folder
Set allfiles = ofolder.Files 
' Enter a For Each Loop that will process each of the files
For Each sfile in allfiles
' Better get all extensions in lower case
If LCASE(fso.GetExtensionName(sfile.Name)) = "bat" then
' Print out what we find
wscript.echo sfile.Name
fso.CopyFile sfile, dest
End If
Next

Answer 1

如果我做对了，你的实际问题是如何检测USB驱动器已被插入？

你需要一些事件驱动的语言才能做到这一点，不幸的是不是VBScript。但如果您不想使用编程，为什么不使用Task Scheduler。

P.S。实际上，this topic（我不喜欢无限循环，但是）是一个可能的答案。

vbscript从外部磁盘复制文件

1 个答案: