[Iska]

переименовать файл имя из буфера обмена »

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

Код:

Option Explicit

Dim strClipboardContent
Dim strSourceFile
Dim strDestFile


With WScript.CreateObject("Scripting.FileSystemObject")
	strClipboardContent = Trim(WScript.CreateObject("htmlfile").parentWindow.clipboardData.getData("text"))
	strSourceFile       = .GetAbsolutePathName(strClipboardContent)
	
	If .FileExists(strSourceFile) Then
		strDestFile = Trim(InputBox("Enter new file name", "Enter new file name", strSourceFile))
		
		If Len(strDestFile) > 0 Then
			If Not StrComp(strSourceFile, strDestFile, vbTextCompare) = 0 Then
				.MoveFile strSourceFile, strDestFile
			Else
				WScript.Echo "Need new name of file."
				WScript.Quit 3
			End If
		Else
			WScript.Echo "User cancel input."
			WScript.Quit 2
		End If
	Else
		WScript.Echo "Can't determine Clipboard content [" & strClipboardContent & "] as correct name of existing file."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

создать текстовый файл(txt) имя из буфера обмена »

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

Код:

Option Explicit

Dim strClipboardContent
Dim strSourceFile


With WScript.CreateObject("Scripting.FileSystemObject")
	strClipboardContent = Trim(WScript.CreateObject("htmlfile").parentWindow.clipboardData.getData("text"))
	
	If StrComp(.GetExtensionName(strClipboardContent), "txt", vbTextCompare) = 0 Then
		strSourceFile = .GetAbsolutePathName(strClipboardContent)
	Else
		strSourceFile = .GetAbsolutePathName(strClipboardContent & ".txt")
	End If
	
	If Not .FileExists(strSourceFile) Then
		With .CreateTextFile(strSourceFile)
			.Close
		End With
	Else
		WScript.Echo "Source file [" & strSourceFile & "] already exists."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

Корректность имён особо не проверяется.