А из контекстного меню?
Если Windows 7 можно из контекстного меню. Reg-файл для папки
Код:

Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\Directory\Background\shell\Новая папка]
[HKEY_CLASSES_ROOT\Directory\Background\shell\Новая папка\command]
@="WScript C:\\Users\\999\\Desktop\\001.vbs \"%V\""
Путь укажи свой.
Цитата balzaman:
как изменить скрипт, чтобы объект создавался в каталоге вызова (ярлыком) »
|
1.Делаешь ярлык.
2.Пр.кнопка => Свойства.
3.В строке быстрый вызов указываешь путь до папки исполнения.
Например: D:\
4.Применить и ОК
Цитата balzaman:
был просто выделен, а не открыт »
|
Я понял не нужно. чтобы при создании объект открывался?
Тогда удали строчки
Код:

If err.number = vbEmpty then
Set objShell = CreateObject("WScript.Shell")
objShell.run ("Explorer" &" " & strDirectory & "\" )
Else
WScript.echo "Ошибка vbscript: " & err.number
End If
для папки и
Код:

Set WshShell = WScript.CreateObject("WScript.Shell")
и
WshShell.Run("Explorer" &" " & FileName & ".txt")
для файла.