[Iska]

Dexter VVM, там иное.

Опишите полностью, что Вам нужно.

[Dexter VVM]

Iska, нужен пункт в контекстном меню файлов и папок "дать имя из буфера", которой запускает скрипт, меняющий имя файла на текст из буфера обмена и не меняющий/убирающий его расширение. Приведённый скрипт из другой темы переименовывает файл полностью, удаляя расширение.

[Iska]

Dexter VVM, ясно. Не знаю, как Вам, а по мне F2, Shift-Insert, Enter всяко быстрее выбора из контекстного меню.

Но держите:

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

Код:

Option Explicit

Dim strSourceFile
Dim strNewName


If WScript.Arguments.Count = 1 Then
	With WScript.CreateObject("Scripting.FileSystemObject")
		strSourceFile = .GetAbsolutePathName(WScript.Arguments.Item(0))
		
		If .FileExists(strSourceFile) Then
			strNewName = Trim(WScript.CreateObject("htmlfile").parentWindow.clipboardData.getData("text"))
			
			If Len(strNewName) > 0 Then
				If Not StrComp(strSourceFile, strNewName, vbTextCompare) = 0 Then
					.MoveFile strSourceFile, strNewName & "." & .GetExtensionName(strSourceFile)
				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 [" & WScript.Arguments.Item(0) & "]."
			WScript.Quit 2
		End If
	End With
Else
	WScript.Echo "Usage: wscript.exe """ & WScript.ScriptName & """ <Source file>"
	WScript.Quit 1
End If

WScript.Quit 0

[Dexter VVM]

Iska, спасибо. Из контекстного меню привычнее.