[Iska]

NewName - у меня переименование »

Оригинально. Для меня NewName — создание .

Примерно так:

C:\Мои проекты\0236\ReNameByClipboard.vbs

Код:

Option Explicit

Dim strSourceObject
Dim strSourceFolder
Dim strSourceFile

Dim strClipboardContent

Dim strDestObject


If WScript.Arguments.Count = 1 Then
	With WScript.CreateObject("Scripting.FileSystemObject")
		strSourceObject = .GetAbsolutePathName(WScript.Arguments.Item(0))
		
		If .FolderExists(strSourceObject) Then
			strSourceFolder = strSourceObject
			
			strClipboardContent = Trim(WScript.CreateObject("htmlfile").parentWindow.clipboardData.getData("text"))
			strDestObject       = Trim(InputBox("Enter new name for folder [" & strSourceFolder & "]:", "Enter new name for folder", strClipboardContent))
			
			If Len(strDestObject) > 0 Then
				If Not StrComp(strSourceFolder, strDestObject, vbTextCompare) = 0 Then
					.MoveFolder strSourceFolder, strDestObject
				Else
					WScript.Echo "Need new name of folder."
					WScript.Quit 4
				End If
			Else
				WScript.Echo "User cancel input."
				WScript.Quit 3
			End If
		ElseIf .FileExists(strSourceObject) Then
			strSourceFile = strSourceObject
			
			strClipboardContent = Trim(WScript.CreateObject("htmlfile").parentWindow.clipboardData.getData("text"))
			strDestObject       = Trim(InputBox("Enter new name for file [" & strSourceFile & "]:", "Enter new name for file", strClipboardContent))
			
			If Len(strDestObject) > 0 Then
				If Not StrComp(strSourceFile, strDestObject, vbTextCompare) = 0 Then
					.MoveFile strSourceFile, strDestObject
				Else
					WScript.Echo "Need new name of file."
					WScript.Quit 4
				End If
			Else
				WScript.Echo "User cancel input."
				WScript.Quit 3
			End If
		Else
			WScript.Echo "Can't find source file system object [" & WScript.Arguments.Item(0) & "]."
			WScript.Quit 2
		End If
	End With
Else
	WScript.Echo "Usage: wscript.exe """ & WScript.ScriptName & """ <Source file system object>"
	WScript.Quit 1
End If

WScript.Quit 0

ReNameByClipboard.reg

Код:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\*\shell\ReNameByClipboard]
@="Переименовать из Бу&фера обмена"

[HKEY_CLASSES_ROOT\*\shell\ReNameByClipboard\command]
@="wscript.exe \"C:\\Мои проекты\\0236\\ReNameByClipboard.vbs\" \"%1\""

[HKEY_CLASSES_ROOT\Directory\shell\ReNameByClipboard]
@="Переименовать из Бу&фера обмена"

[HKEY_CLASSES_ROOT\Directory\shell\ReNameByClipboard\command]
@="wscript.exe \"C:\\Мои проекты\\0236\\ReNameByClipboard.vbs\" \"%1\""

Путь к файлу скрипта в файле реестра Вы, естественно, указываете свой.

[kuzmakzrezv1]

Iska,


и

, что то не работает..
-не думал, что все так сложно, может ну ее нафиг и так Вас оторвал от дел..

[Iska]

kuzmakzrezv1, а теперь сравните:

Скрытый текст

Обратный слэш является экранирующим символом для значений параметров файла реестра (и, например, используется для экранирования кавычек), посему его надо тоже экранировать, т.е., там где должен быть один обратный слэш — писать надо два.

[kuzmakzrezv1]

Iska,
исправил слэши -не работает, создал каталоги как у Вас -не работает

Скрытый текст

[kuzmakzrezv1]

Iska,
убрал слэши- wscript.exe "C:\Мои проекты\0236\ReNameByClipboard.vbs" "%1"
при переименовании выскакивает окно, нажимаешь ОК, еще окно -ОК и переименование происходит

Скрытый текст

и

Скрытый текст

хз, как избавиться от этих окон..

[Iska]

исправил слэши -не работает, »

Ухххх… Исправлять нужно было в файле реестра. В файле ReNameByClipboard.reg. А не в редакторе реестра.

убрал слэши- wscript.exe "C:\Мои проекты\0236\ReNameByClipboard.vbs" "%1" »

Хорошо. Надеюсь, разобрались: при редактировании файла реестра используем экранирование, при прямом редактировании параметров реестра редактором реестра — не используем.

при переименовании выскакивает окно, нажимаешь ОК, »

Одно окно должно быть — с содержимым буфера обмена, предлагаемым в качестве нового имени файла или папки.

еще окно -ОК »

Какое на этот раз?

и переименование происходит »

Так и должно быть.

и »

А вот это окно должно появляться, если Вы нажмёте Cancel в запросе «Enter new name for folder» или оставите/сделаете поле ввода пустым.

[kuzmakzrezv1]

Iska,
все понял, спасибо за труды Ваши.

[Iska]

kuzmakzrezv1, так работает у Вас, али нет?!

[kuzmakzrezv1]

Iska,
да работает, окно тока напрягает..

[Iska]

да работает, окно тока напрягает.. »

Какое? Запишите видео, как у Вас работает — от помещения текста в буфер обмена до окончания переименования.