Тема: VBScript: Drag'n'Drop файлов на файл скрипта
Пример Drag'n'Drop
' Пример Drag'n'Drop
' для проверки скиньте папку или файл на файл скрипта
Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
'WScript.Echo objArgs(I)
msgbox "Вы скинули следующую папку или файл:" & Chr(10) & objArgs(I),64,"Сообщение"
Next