1

Тема: 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