[amel27]

прогресс при копировании одного файла »

- RoboCopy показывает индикатор копирования в процентах;
- вариант на VBS:

Код:

Function FileCopy(strFileFrom, strDirTo)
  Dim objShell, objFolder
        
  Set objShell  = CreateObject("shell.Application")
  Set objFolder = objShell.NameSpace(strDirTo)
 
  If Not objFolder Is Nothing Then
    objFolder.CopyHere strFileFrom, 16
  End If

End Function

- тот же WSH, скомпонованный в CMD:

Код:

@set @x=0 /*
@set $f=C:\TEST1\FILE.ISO
@set $d=D:\TEST2

@cscript //nologo /e:jscript "%0" "%$f%" "%$d%"
@exit /b

*/new ActiveXObject("shell.Application").NameSpace(WScript.Arguments(1)).CopyHere(WScript.Arguments(0),16);
//