我找到了以下代码，可以将文件拖放到脚本图标上并将它们放在指定的目录中：
Const MyDestinationFolder = "C:\Temp\"
Const OverwriteExisting = True
Dim objFile,objFolder
Dim Arg
Set objFSO = CreateObject("Scripting.FileSystemObject")
If WScript.Arguments.Count > 0 Then
For Each Arg in Wscript.Arguments
Arg = Trim(Arg)
If InStr(Arg,".") Then
' Assume a File
Set objFile = objFSO.GetFile(Arg)
' Copy file to the Dest Folder using the same name
objFile.Copy MyDestinationFolder & objFile.Name,OverwriteExisting
Else
'Assume a Folder
Set objFolder = objFSO.GetFolder(Arg)
' Copy Folder to the Dest Folder
objFolder.Copy MyDestinationFolder, OverwriteExisting
End If
Next
End If
但是，我想制作一个运行并具有简单矩形的脚本，该矩形在此处拖放。如果有可能，那就太好了。谢谢！
您可以使用“ HTML应用程序（HTA）”将GUI添加到VBScript程序中。在这里开始您的研究：
而且当然
在对“拖放”进行第二次思考之后，我发现：
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句