[问题求助] 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
复制代码

328612167

回复 2# Tianorder


我讲究效率

328612167

回复 5# WHY


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

328612167

回复 8# 9zhmke


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