VBS局域网文件拷贝问题

328612167 · 发表于 2015-7-21 17:27:17

局域网文件拷贝问题

规律如下：当前目录下有很多文件夹、很多txt文件，txt文件内容包含有文件夹名的字符
要求：1.将当前目录下所有的txt文件分别移到对应的文件夹中，保证文件夹里的文件内容中包含的文件夹名与本文件夹名一致
2.将其剪切至\\192.168.1.200\SHARE

以下代码的问题是：第2步太慢
不知有没有高效一点的vbs代码

@echo off
:更新时间 8:30 2015/7/11
for /d %%a in (*) do (for %%i in (*.TXT) do findstr %%a %%i &&move %%i %%a)
net use \\192.168.1.200\SHARE
ping 127.0.0.1 -n 2 >NUL
for /d %%a in (*) do (xcopy /e /y /h /k /i %%a \\192.168.1.200\SHARE\%%a\ &&rd /s /q %%a)
net use \\192.168.1.200\SHARE /delete
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

复制代码

Tianorder · 发表于 2015-7-21 18:42:57

回复 1# 328612167

有多慢？1分钟？

328612167 · 发表于 2015-7-22 16:35:49

回复 2# Tianorder

我讲究效率

yu2n · 发表于 2015-7-22 17:56:56

回复 3# 328612167

手动复制整个文件夹到共享需多久？是1小时吗？
恭喜你了，你的BAT帮你提高了60倍的效率。

WHY · 发表于 2015-7-22 22:04:51

@echo off
net use \\192.168.1.200\SHARE
ping 127.0.0.1 -n 2 >NUL
for /d %%a in (*) do (
for /f %%i in ('findstr /i /m %%a *.TXT') do move %%i %%a
xcopy /e /y /h /k /i %%a \\192.168.1.200\SHARE\%%a\ &&rd /s /q %%a
)
net use \\192.168.1.200\SHARE /delete
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

复制代码

328612167 · 发表于 2015-7-23 08:49:32

回复 5# WHY

和我的代码所用的时间是一样的
批处理要等上一句执行完成后才执行下一句

WHY · 发表于 2015-7-23 19:46:47

回复 WHY

和我的代码所用的时间是一样的
批处理要等上一句执行完成后才执行下一句
328612167 发表于 2015-7-23 08:49

你想多了，回复你只是为自己攒积分，我没兴趣解决你的问题

9zhmke · 发表于 2015-7-26 22:50:06

不要使用单文件操作，直接使用WINRAR压缩到网络目的地吧，应该速度会快不少。

328612167 · 发表于 2015-7-27 13:48:56

回复 8# 9zhmke

那样是在目的地生成压缩包吗，
如果是那样的话，就不行

9zhmke · 发表于 2015-7-28 13:55:35

回复 9# 328612167

即使不行，你也可以用这种方法来加快速度，单个文件处理的速度是很慢的。

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] VBS局域网文件拷贝问题