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

328612167

局域网文件拷贝问题

规律如下：当前目录下有很多文件夹、很多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
复制代码

9zhmke

回复 9# 328612167


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

328612167

回复 8# 9zhmke


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

9zhmke

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

WHY

回复  WHY


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

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

328612167

回复 5# WHY


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

WHY

@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
复制代码

yu2n

回复 3# 328612167

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

328612167

回复 2# Tianorder


我讲究效率

Tianorder

回复 1# 328612167


    有多慢？1分钟？