Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] переименовать файл - имя из буфера

Ответить
Настройки темы
VBS/WSH/JS - [решено] переименовать файл - имя из буфера

Новый участник


Сообщения: 26
Благодарности: 0

Профиль | Отправить PM | Цитировать


Всем привет, ребята если не затруднит.
Нужен скрипт - переименовать файл имя из буфера обмена
Нужен скрипт - создать текстовый файл(txt) имя из буфера обмена

написать самому - nicht wissen

-------
Когда похвалят тебя, вспомни о грехах своих.


Отправлено: 16:50, 09-01-2019

 

Новый участник


Сообщения: 26
Благодарности: 0

Профиль | Отправить PM | Цитировать


Iska,

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

-------
Когда похвалят тебя, вспомни о грехах своих.


Отправлено: 18:49, 13-01-2019 | #21



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Contributor


Сообщения: 23581
Благодарности: 6862

Профиль | Отправить PM | Цитировать


kuzmakzrezv1, так какое окно Вам не нравится? Само окно запроса на подтверждение переименования? Хотите, чтобы это происходило молча?
Это сообщение посчитали полезным следующие участники:

Отправлено: 18:55, 13-01-2019 | #22


Новый участник


Сообщения: 26
Благодарности: 0

Профиль | Отправить PM | Цитировать


Iska,
Цитата:
Хотите, чтобы это происходило молча?
да

-------
Когда похвалят тебя, вспомни о грехах своих.


Отправлено: 18:59, 13-01-2019 | #23


Ветеран


Contributor


Сообщения: 23581
Благодарности: 6862

Профиль | Отправить PM | Цитировать


Попробуйте так (не проверялось):
Скрытый текст
Код: Выделить весь код
Option Explicit

Dim strSourceObject
Dim strSourceFolder
Dim strSourceFile

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
			
			strDestObject = Trim(WScript.CreateObject("htmlfile").parentWindow.clipboardData.getData("text"))
			
			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
			
			strDestObject = Trim(WScript.CreateObject("htmlfile").parentWindow.clipboardData.getData("text"))
			
			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
Это сообщение посчитали полезным следующие участники:

Отправлено: 19:12, 13-01-2019 | #24


Новый участник


Сообщения: 26
Благодарности: 0

Профиль | Отправить PM | Цитировать


Iska,
ВСЕ РАБОТАЕТ, БОЛЬШОЕ СПАСИБО!

-------
Когда похвалят тебя, вспомни о грехах своих.


Отправлено: 19:24, 13-01-2019 | #25



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] переименовать файл - имя из буфера

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - [решено] Переименовать jpg файлы, взяв имя из первой строки соответствующего одноименного txt use809 Скриптовые языки администрирования Windows 3 07-03-2017 16:10
Любой язык - Как писать в файл содержимое буфера обмена? hp1nt0 Скриптовые языки администрирования Windows 6 08-12-2016 12:50
CMD/BAT - [решено] Как записать информацию из буфера обмена в файл тхт батником? angel_lyucifer Скриптовые языки администрирования Windows 12 26-12-2012 17:22
CMD/BAT - [решено] Батник меняющий имя файла(как правильно переименовать)? ofcoss Скриптовые языки администрирования Windows 1 07-09-2009 12:53
Как переименовать имя аккаунта в XP с изменением имени его папки и других файлов. Alikber Microsoft Windows 2000/XP 4 06-03-2006 00:15




 
Переход