<![CDATA[Серый форум — VBScript: Drag'n'Drop файлов на файл скрипта]]> https://forum.script-coding.com/viewtopic.php?id=869 Wed, 21 Nov 2007 21:00:53 +0000 PunBB <![CDATA[VBScript: Drag'n'Drop файлов на файл скрипта]]> https://forum.script-coding.com/viewtopic.php?pid=6239#p6239 Пример 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
]]> Wed, 21 Nov 2007 21:00:53 +0000 https://forum.script-coding.com/viewtopic.php?pid=6239#p6239