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

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

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


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

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


Код: Выделить весь код
On Error Resume Next

Set FSO   = WScript.CreateObject("Scripting.FileSystemObject")
Set Shell = WScript.CreateObject("WScript.Shell")

If Not FSO.FolderExists("1") Then											
	FSO.CreateFolder("1")	
	FSO.CreateFolder("1\2")
End If

Const OverwriteExisting = True
Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.MoveFile "1.txt" , "1\"									' перемещаем '
FSO.CopyFile "2.txt" , "1", 								        OverwriteExisting
FSO.MoveFile "2.txt" , "1\2\"									' перемещаем '
FSO.MoveFile "3.txt" , "1\"									' перемещаем '
FSO.MoveFile "4.txt" , "1\"									' перемещаем '


WScript.Echo "Распределение завершено!" 

Set Shell = Nothing
Set FSO   = Nothing

WScript.Quit

Последний раз редактировалось peretc001, 31-01-2011 в 10:52.


Отправлено: 10:26, 31-01-2011 | #3