Rodny
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: '==============================================================================
' Copy2SamePath.vbs
' Копирование файла в папку, отличающуюся буквой диска
' Параметры вызова для кнопки: {исходный файл} {новый диск}
' (второй параметр можно опустить). Пример параметров:
' %P%N F
'
' by Rodny
' v. 0.2
' http://forum.ru-board.com/topic.cgi?forum=5&topic=45288&start=1960#12
'==============================================================================
Option Explicit
Dim WSH, FSO, file, Disk, Path, NewPath
Set WSH = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
' Берём исходный путь из параметров кнопки
Path = WSH.ExpandEnvironmentStrings(WScript.Arguments(0))
' Задаём диск из параметров кнопки или непосредственно
Disk = ""
Do
If WScript.Arguments.Count = 1 Then
Disk = InputBox("Задайте диск назначения" & VBNewLine & "(БЕЗ кавычек!)", "Требуется указать диск")
Else Disk = WScript.Arguments(1)
End If
If IsEmpty(Disk) Then
WScript.Quit
End If
Loop While Disk = ""
' Новый путь
NewPath = Disk & Right(Path, Len(Path) - 1)
Set file = FSO.GetFile(Path)
file.Copy(NewPath)
Set WSH = Nothing
Set FSO = Nothing
Wscript.Quit() |
? Код создан и опубликован с помощью SciTE-Ru |
Всего записей: 2877 | Зарегистр. 28-07-2006 | Отправлено: 22:38 26-12-2013 | Исправлено: Rodny, 22:52 26-12-2013 |
|
