VBScript: команда контекстного меню Проводника Filename2Clipboard

2009-05-02T02:45:14Z

Изначально скрипт набросал на batch, но мелькающая консоль всё портит . Перебил на vbs.
Скрипт использует браузерный JavaScript (объект clipboardData) для помещения текста, заданного параметром запуска скрипта, в буфер обмена. В качестве параметра запуска - используем имя файла.

copy2clpbrd.vbs

On error resume Next
a=WScript.Arguments.Item(0)
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
objRegExp.Pattern = "\\"
a = objRegExp.Replace(a, "\\")
CreateObject("WScript.Shell").run "mshta.exe ""JAVASCRIPT:window.clipboardData.setData(""Text"","+chr(39)+a+chr(39)+");close();""",0

Для включения в контекстное меню проводника поля "copy2clpbrd" необходимо скопировать скрипт в системную директорию (C:\WINDOWS\) и выполнить сдедующий Reg-файл:

copy2clpbrd.reg

REGEDIT4

[HKEY_CLASSES_ROOT\*\shell\copy2clpbrd\command]
@="wscript.exe copy2clpbrd.vbs \"%1\""

[HKEY_CLASSES_ROOT\lnkfile\shell\copy2clpbrd\command]
@="wscript.exe copy2clpbrd.vbs \"%1\""

Серый форум — VBScript: команда контекстного меню Проводника Filename2Clipboard

VBScript: команда контекстного меню Проводника Filename2Clipboard