VBS/WSH/JS

Ivan Bardeen · Отправлено: **10:05, 31-01-2011** | #2

Будет проще подсказать, если вы покажете сам скрипт

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

Код:

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

Ivan Bardeen · Отправлено: **10:40, 31-01-2011** | #4

файлы 1.txt, 2.txt... у вас лежат в одной папке?
И как вы определяете, какой файл нужно копировать, а какой перемещать и в какую папку?

peretc001 · Отправлено: **10:50, 31-01-2011** | #5

да, все файлы лежат в одной папке.

Там очень сложная структура и определенные базы копируется в определенную папку, а потом некоторые переносятся в другую. Они очень много весят, есть базы по 1,5 Гиги. Поэтому мне нужно вывести процесс копирования и(или) перемещения.

Если тот код упростить, то он выглядит примерно так как я написал выше.

Ivan Bardeen · Отправлено: **11:49, 31-01-2011** | #6

Тогда добавьте конструцию, которую я привожу для каждой операции над файлом (Выделено жирным).
Она будет вести лог для каждой операции над файлом и записывать его в c:\temp\logtest.txt

Код:

On Error Resume Next
Const ForAppend = 8

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 FOut = fso.OpenTextFile("c:\temp\logtest.txt",ForAppend,True)

FSO.MoveFile "1.txt" , "1\"		
If Err.Number <> 0 Then
text = "Ошибка:" & " " & Err.Number & " " & "Описание:" & " " & Err.Description & " " & "При операции над файлом: 1.txt"
FOut.WriteLine Text
Else 
text = "Операция над файлом 1.txt прошла успешно" 
FOut.WriteLine Text
End If
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

Iska · Отправлено: **12:00, 31-01-2011** | #7

peretc001, «Scripting.FileSystemObject» не позволяет этого сделать (получать прогресс копирования/перемещения), только между операциями. Обходной вариант — копировать/перемещать, например, посредством Проводника (объект «Shell.Application»).

peretc001 · Отправлено: **12:19, 31-01-2011** | #8

Ivan Bardeen, у меня очегь много файлов, порядка 200, это мне после каждого нужно написать?

Код:

If Err.Number <> 0 Then
text = "Ошибка:" & " " & Err.Number & " " & "Описание:" & " " & Err.Description & " " & "При операции над файлом: 1.txt"
FOut.WriteLine Text
Else 
text = "Операция над файлом 1.txt прошла успешно" 
FOut.WriteLine Text
End If

И этот метод, я так понял, не показывает сам процесс копирования.

Iska, а как использовать Shell.Application? Если я просто поменяю Scripting.FileSystemObject на Shell.Application, будет работать? Вы можете показать на примере скрипта что поменять?

Ivan Bardeen · Отправлено: **12:42, 31-01-2011** | #9

Цитата peretc001:

Ivan Bardeen, у меня очегь много файлов, порядка 200, это мне после каждого нужно написать? »

Да, после каждого

Цитата peretc001:

И этот метод, я так понял, не показывает сам процесс копирования. »

Не показывает, только ведет лог.

peretc001 · Отправлено: **12:52, 31-01-2011** | #10

жаль, Ivan Bardeen, спасибо Вам за помощь