Question

我找到了这个代码，它允许我将文件拖放到脚本图标并将它们放在指定的目录中：

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

但是我想创建一个运行的脚本，并且有一个简单的矩形，在这里拖放。如果这是可能的话，这将是伟大的。谢谢！

Answer 1

您可以使用＆＃34; HTML应用程序（HTA）＆＃34;向VBScript程序添加GUI。在这里开始你的研究：

和 - 当然

stackoverflow questions tagged hta

关于＆＃34;拖拽＆amp; amp; Drop＆＃34;，我发现：

this claim和that .HTA（未经过测试）

Visual Basic拖放窗口

1 个答案: