Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


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

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


Примерно так:
читать дальше »
Код: Выделить весь код
Option Explicit

Dim strSourceFolder

Dim objFSO
Dim objFolder
Dim objFile

Dim objRegExp


If WScript.Arguments.Count = 1 Then
	strSourceFolder = WScript.Arguments.Item(0)
	
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FolderExists(strSourceFolder) Then
		With WScript.CreateObject("VBScript.RegExp")
			.Pattern = ".*file.*\.txt"
			.IgnoreCase = True
			
			For Each objFolder In objFSO.GetFolder(strSourceFolder).SubFolders
				For Each objFile In objFolder.Files
					If .Test(objFile.Name) Then
						If objFile.Name <> "123_temp_file.txt" Then
							WScript.Echo "Found file    [" & objFile.Path & "]"
							
							objFile.Name = "123_temp_file.txt"
							
							WScript.Echo "  Rename into [" & objFile.Path & "]"
						End If
					End If
				Next
			Next
		End With
	Else
		WScript.Echo "Source folder [" & strSourceFolder & "] not found"
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ ""<Source folder>"""
End If

WScript.Quit 0

Отправлено: 02:27, 21-06-2012 | #2