Shulou(Shulou.com)06/03 Report--

Editor to share with you how to batch backup folders and files to release folders to the website, I hope you will learn something after reading this article, let's discuss it together!

First back up all the folders and files under "C:\ website" corresponding to "D:\ project 1" to "D:\ backup 2012-9-1-52647", and then publish "D:\ project 1" to "C:\ website".

Usage:

BackupAndPublish.bat "D:\ project 1"

The code is as follows:

@ echo off

Set SourceDir=%1

Set now=%date:~0,4%-%date:~5,2%-%date:~8,2%-%time:~0,2%%time:~3,2%%time:~6,2%

:: parameter

Set DestDir= "C:\ website"

Set BackDir= "D:\ backup% now%"

Echo.

Echo is backing up

Call:Backup SourceDir% DestDir% BackDir%

Echo.

Echo is being released

Call:Publish SourceDir% DestDir%

Goto: eof

:: main program

: Backup

Setlocal enabledelayedexpansion

Set SourceDir=%~1

Set DestDir=%~2

Set BackDir=%~3

:: calculate the source path length

Set SourceDirLen=0

Set SourceDirStr=%SourceDir%

: next1

If not "% SourceDirStr%" = "" (

Set / a SourceDirLen+=1

Set "SourceDirStr=%SourceDirStr:~1%"

Goto: next1

)

:: backup

For / r "% SourceDir%"% I in (*. *) do (

Set BackPath=%%~dpi

Set BackPathways% BackDir% "BackPathlux"% SourceDirren%!

Set DestPath=%%i

Set DestPathology% DestDir% "DestPathlux"% SourceDirren%!

Set BackFilePath=%%i

Set BackFilePathology% BackDir% "BackFilePathGrano"% SourceDirren%!

Echo! DestPath!

Xcopy "! DestPath!"! BackPath! "/ r / y > nul 2 > nul

If not exist "! BackFilePath!" (echo backup replication failed)

)

For / r "% SourceDir%"% I in (\) do (

Set SourcePath=%%i

Set SourcePathology 1!

Set BackPathways% BackDir% SourcePathlux% SourceDirren%!

Md "! BackPath!" > nul 2 > nul

)

Setlocal disabledelayedexpansion

Goto: eof

:: publish

: Publish

Set SourceDir=%1

Set DestDir=%2

Xcopy SourceDir% DestDir% / r / y / I / e

Goto: eof

After reading this article, I believe you have a certain understanding of "how to release folders and files to the website after batch processing". If you want to know more about it, welcome to follow the industry information channel, thank you for your reading!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.