[Peredreifus]

Добавление пункта "Создать папку" в контекстное меню на первое место

Как работает:
Запускаем скрипт. В контекстном меню открытой папки на первом месте появляется пункт "Создать папку". Все, можно пользоваться. Чтобы удалить этот пункт, нужно еще раз запустить этот скрипт.

Код:

Set WShell = CreateObject("WScript.Shell")
' Если скрипт запущен с параметром, то..
If WScript.Arguments.Count>0 Then
	Randomize Timer
	' Запрашиваем имя папки. В качестве стандартного имени будет "Новая Папка NN", где NN - случайное число от 10 до 99
	Name=InputBox("Имя папки:", "Создать папку", "Новая Папка "&Int((99-10+1)*Rnd+10))
	' Если пользователь нажал кнопку Отмена, то выходим из скрипта
	If Name="" Then WScript.Quit
	' Создаем папку с указанным именем
	WShell.run "cmd /C md """&Name&"""", 0
Else
' Если скрипт запущен без параметров, то..
	' Если запись в реестре есть, то удаляем наш раздел
	If WShell.Run("cmd.exe /C REG QUERY ""HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\Создать папку""", 0, True)=0 Then
		WShell.Run "cmd /C REG DELETE ""HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\Создать папку"" /f", 0
	Else
		' Иначе добавляем запись в реестр
		' Иконка папки
		WShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\Создать папку\Icon", "%SystemRoot%\System32\shell32.dll,3", "REG_SZ"
		' Ставим наш пункт в самый верх контекстного меню
		WShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\Создать папку\Position", "Top", "REG_SZ"
		' Прописываем действия, которые будут выполняться при клике по нашему пункту меню
		WShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\Создать папку\command\", "wscript.exe """&WScript.ScriptFullName&""" -folder", "REG_SZ"
	End If
End if

[nexochyka]

Randomize Timer ' Запрашиваем имя папки. В качестве стандартного имени будет "Новая Папка NN" »

Вопрос: Peredreifus, Как вместо названия поставить дату в формате YYYY_MM_DD

[Peredreifus]

Вопрос: Peredreifus, Как вместо названия поставить дату в формате YYYY_MM_DD »

Код:

Set WShell = CreateObject("WScript.Shell")
' Если скрипт запущен с параметром, то..
If WScript.Arguments.Count>0 Then
	Randomize Timer
	' Запрашиваем имя папки. В качестве стандартного имени будет дата в формате YYYY_MM_DD
	' Проверяем, если число месяца или дня состоит из одного разряда, то добавляем перед ним ноль, иначе оставляем как есть
	If Len(Month(Now))<2 Then tempMonth="0"&Month(Now) Else tempMonth=Month(Now)
	If Len(Day(Now))<2 Then tempDay="0"&Day(Now) Else tempDay=Day(Now)
	Name=InputBox("Имя папки:", "Создать папку", Year(Now)&"_"&tempMonth&" "&tempDay)
	' Если пользователь нажал кнопку Отмена, то выходим из скрипта
	If Name="" Then WScript.Quit
	' Создаем папку с указанным именем
	WShell.run "cmd /C md """&Name&"""", 0
Else
' Если скрипт запущен без параметров, то..
	' Если запись в реестре есть, то удаляем наш раздел
	If WShell.Run("cmd.exe /C REG QUERY ""HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\Создать папку""", 0, True)=0 Then
		WShell.Run "cmd /C REG DELETE ""HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\Создать папку"" /f", 0
	Else
		' Иначе добавляем запись в реестр
		' Иконка папки
		WShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\Создать папку\Icon", "%SystemRoot%\System32\shell32.dll,3", "REG_SZ"
		' Ставим наш пункт в самый верх контекстного меню
		WShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\Создать папку\Position", "Top", "REG_SZ"
		' Прописываем действия, которые будут выполняться при клике по нашему пункту меню
		WShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\Создать папку\command\", "wscript.exe """&WScript.ScriptFullName&""" -folder", "REG_SZ"
	End If
End if

[Fresh96]

Подскажите.
-Создал пустой текстовый документ
-Вставил в него код скрипта
-Сохранил получившееся с расширением vbs
-Создал batник с таким содержимым:
start /wait HideFileExt.vbs
start /wait ShowSuperHidden.vbs

Вопрос в следующем. Что не так делаю? Как запустить скрипт на T13? Спрашиваю т.к. не отрабатывает (вылазит ошибка).

[Amigos]

Как запустить скрипт на T13? »

скорей всего на t13 ещё нет поддержки скриптов, и батник придётся запускать при первом входе в систему.

[g.l.fire]

А можно добавить пункт , чтобы выделялись те файлы у которых такая же дата , будет очень удобно выделять фото по дате

[Beepsi]

Всем привет.

Мальчики подскажите и помогите пожалуйста, даже не чайнику , а полнейшей кастрюле в этих вопросах. Желательно так, чтобы дошло даже до блондинки...

Суть вопроса вот в чем. Очень часто, практически все рабочее время работаю в Acrobat-е (не Reader-е). Вешать ярлык на стол не выход, так как там и так "непровернешься"...

Помогите плс вставить пункт Acrobat-a в меню создать. Чтобы кликнула правой мышкой на столе и в менюшке было создать Acrobat...

Заранее всем пасибки, а тому кто подскажет самый простой и на 100% рабочий способ еще и цемки 100 тысяч раз!!!!!!!!!!!!!!

[Habetdin]

Beepsi, используйте TweakUI, найти можно здесь
После этого создайте пустой документ Acrobat'а (это будет шаблон) и укажите путь к нему тут:

[Beepsi]

Habetdin

Огромное пасибки. С горем пополам разобралась. Как и обещала 100000000000000000000000000000000000000000000 раз цемки

[Fresh96]

Подскажите.
-Создал пустой текстовый документ
-Вставил в него код скрипта
-Сохранил получившееся с расширением vbs
-Создал batник с таким содержимым:

Код:

start /wait HideFileExt.vbs
start /wait ShowSuperHidden.vbs

-Положил batник рядом с файлами HideFileExt.vbs и ShowSuperHidden.vbs
-Запускаю batник - в результате следующая ошибка:

Скриншот ошибки

Помогите победить эту проблему. Согласен на запуск на "живой" системе