[Iska]

Alexander_88, ничего не понятно.

Вам что-то

такое

Код:

Option Explicit

Dim strSourceFile
Dim strDestFolder
Dim objFSO

Dim dtNow
Dim strNewFileName


If WScript.Arguments.Count = 2 Then
	strSourceFile = WScript.Arguments.Item(0)
	strDestFolder = WScript.Arguments.Item(1)
	
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FileExists(strSourceFile) Then
		If objFSO.FolderExists(strDestFolder) Then
			dtNow = Now()
			strNewFileName = _
				objFSO.GetBaseName(strSourceFile) & _
				"_" & _
				Right("0000" & CStr(Year(dtNow)),   4) & _
				Right("00"   & CStr(Month(dtNow)),  2) & _
				Right("00"   & CStr(Day(dtNow)),    2) & _
				"_" & _
				Right("00"   & CStr(Hour(dtNow)),   2) & _
				Right("00"   & CStr(Minute(dtNow)), 2) & _
				Right("00"   & CStr(Second(dtNow)), 2) & _
				"." & _
				objFSO.GetExtensionName(strSourceFile)
			
			objFSO.CopyFile strSourceFile, objFSO.BuildPath(strDestFolder, strNewFileName), True
		Else
			WScript.Echo "Can't find destination folder [" & strDestFolder & "]."
			WScript.Quit 3
		End If
	Else
		WScript.Echo "Can't find source file [" & strSourceFile & "]."
		WScript.Quit 2
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source file> <Destination folder>"
	WScript.Quit 1
End If

WScript.Quit 0

нужно?