数据自动上传共享盘

新建脚本文件

新建如下两个脚本文件在D盘中
runbat.vbs
myxcopy.bat

1. runbat为vbs脚本，主要作用为调用myxcopy.bat 以隐藏处理窗口，内容如下：

createobject("wscript.shell").run "myxcopy.bat",0

2. myxcopy为批处理程序，主要用于上传文件。内容如下：

@echo off
set YE=%date:~0,4%
set MO=%date:~5,2%
set DA=%date:~8,2%
set DG=1
set/a vY1=%YE% %% 400
set/a vY2=%YE% %% 4
set/a vY3=%YE% %% 100
if %vY1%==0 (set var=true) else (if %vY2%==0 (if %vY3%==0 (set var=false) else (set var=true)) else (set var=false))
set LY=%YE%
set LM=%MO%
if %MO:~0,1%==0 (set MO=%MO:~1,1%)
if %DA:~0,1%==0 (set DA=%DA:~1,1%)
if %DA% GTR %DG% (set/a LD=%DA%-%DG%) else (
if %MO%==1 (set/a LY=%YE%-1) & (set/a LM=12) & (set/a LD=31+%DA%-%DG%) else (
set/a LM=%MO%-1
if %MO%==3 (if %var%==false (set/a LD=28+%DA%-%DG%) else (set/a LD=29+%DA%-%DG%))
for %%a in (2 4 6 8 9 11) do (if "%MO%"=="%%a" (set/a LD=31+%DA%-%DG%))
for %%b in (5 7 10 12) do (if "%MO%"=="%%b" (set/a LD=30+%DA%-%DG%))))
if %LM% LSS 10 set LM=%LM:~-1%
if %LD% LSS 10 set LD=%LD:~-1%
set strLstDt=%LY%-%LM%-%LD%
echo 昨天的日期为：%strLstDt%

set strtoday=%YE%-%MO%-%DA%

echo 今天是：%strtoday%




set source="F:\数据\每日生产数据\%strtoday%"
set Destination="\\172.17.8.104\mes数据\2\7#\1\C\%strtoday%\"
echo ————————————————————————————————————————————— >>log.txt
echo 日期：%date%  时间：%time% >>log.txt
echo 源：%source% 目标： %Destination%
Xcopy %source% %Destination%  /s /e /y /d >>log.txt

修改脚本

不同几台需对“myxcopy.bat”内数据原，及目标地址进行修改。可用记事本程序打开。

定时启动

数据上传需设定定时启动任务，以便每日定时上传一次