本帖最后由 都市浪子666 于 2011-1-6 19:13 编辑
ProcessClose("xcopy.exe")
$file = FileOpen("list.txt", 0)
If $file = -1 Then
MsgBox(0, "错误", "不能打开文件.")
Exit
EndIf
While 1
Sleep(10)
$proces_sum=ProcessList ( "xcopy.exe" ) ; 读取xcopy.exe 的进程数组
if $proces_sum[0][0] < 50 Then ; 如果少于50个 xcopy.exe 进程 则再读取--运行
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
Run('xcopy /e /i /y D:\SOHO\*.* "' &$line & '"' , @ScriptDir ,@SW_SHOW)
EndIf
Wend
FileClose($file)
Exit
把要复制的目标地址操作在list.TXT文件里,如下
\\192.168.131.1\E$\
\\192.168.131.2\E$\
……
\\192.168.131.200E$\
这样应该可以的,本人测试了,操作系统是XPSP2的 |