$SourceFolder = FileSelectFolder("Select the source folder.", "c:\temp\s")
If @error Then Exit$SourceFolder = [COLOR=Red]"c:\temp\s"[/COLOR]
Firstly, I’m not too sure of what to make of this. If you simply mean that the script should perform an overwrite copy to the destination location, that’s a non-problem. If not, perhaps you’d like to clarify your situation for me.
As a popular feature, my batch script does support searching through subfolders for files (use /s switch).
:: FindAndCopyFromList.bat | v2.0 | 11 SEP 2016
:: Created by Pyprohly @ http://www.sevenforums.com/member.php?u=406309
:: FindAndCopyFromList.bat
:: FindAndCopyFromList.bat filelist [-c:action] [-f] [-s] [-a] [-q]
:: FindAndCopyFromList.bat filelist source -c:"DELETE" [-f] [-s] [-a] [-q]
:: FindAndCopyFromList.bat filelist source -c:"LIST" [-f] [-s] [-a] [-q]
:: FindAndCopyFromList.bat source destination filelist [-c:action] [-f] [-s] [-a] [-q]
@echo off
setlocal EnableDelayedExpansion
:::.defaults
set "filelist=.\list.txt"
set "source=%~dp0"
set "destination=.\New Folder"
set "action=COPY"
set "force=FALSE"
set "transverse_subfolders=FALSE"
set "adapt_current_directory=FALSE"
:::
::. ************ DOCUMENTATION ************
::?.FindAndCopyFromList.bat v2.0 documentation
::?.
::?.SYNOPSIS
::?. Locate and perform an action on the set of files specified in a given
::?. newline-separated text file list.
::?.
::?.INSTRUCTIONS
::?. Use this tool in command line mode by specifying a source folder, a
::?. destination folder, a newline-separated text file comprised of file
::?. names, and a predefined action as arguments, or pass only a filelist
::?. and an action. Argument take precedence over the defaults.
::?.
::?. Alternativly, omit specifying any arguments and simply execute this
::?. this script as is to assume all the defaults in place of arguments.
::?.
::?.SYNTAX
::?. FindAndCopyFromList.bat
::?. FindAndCopyFromList.bat filelist action [-c:action] [-f] [-s] [-a] [-q]
::?. FindAndCopyFromList.bat filelist source -c:"DELETE" [-f] [-s] [-a] [-q]
::?. FindAndCopyFromList.bat filelist source -c:"LIST" [-f] [-s] [-a] [-q]
::?. FindAndCopyFromList.bat source destination filelist [-c:action] [-f] [-s] [-a] [-q]
::?.
::?.PARAMETERS
::?. source If -s is not specified, the directory of which the script
::?. should search files for, else this will act as the location
::?. of where the script is to begin looking for files.
::?.
::?. destination The location of where files are to be sent when found. If
::?. the -f switch is specified, this location will be created if
::?. it does not exist. The location may be relative. If the -a
::?. switch is used, the relative location will be relative to the
::?. path of the current item being processed rather than the
::?. current working directoy.
::?.
::?. filelist A text file containing a newline-separated list of file names.
::?. File names listed in this file must not be followed by a path
::?. and each entry must include an extension as matches are
::?. processed exactly. Lines beginning with a semicolon (;) in
::?. this file will be ignored.
::?.
::?. action The operation to perform on a located file. This may be one
::?. of the following values: "COPY", "MOVE", "DELETE", or "LIST".
::?. The "LIST" action may be used to verify the items that will
::?. be processed, as well as those that won’t be, without
::?. affecting files. If "LIST" or "DELETE" is specified, the
::?. destination parameter will become meaningless and
::?. non-mandatory.
::?.
::?.OPTIONS
::?. -f Overwrite files in the destination directory should file name
::?. conflicts occur. Destination directories will be created if
::?. they do not exist. Meaningful only with COPY or MOVE actions.
::?. This switch is synonymous to the "force_action" default.
::?.
::?. -s Search through subdirectories for file name matches. If
::?. multiple matches of the same file name are found, all
::?. occurrences will be reported and no action will be taken.
::?. This switch is synonymous to the "transverse_subfolders"
::?. default.
::?.
::?. -a Before an action is performed on an item, change the working
::?. directory to that of the item. This option is useful when
::?. specifing a relative path for the destination location. E.g.,
::?. if MOVE and "New folder" is specified for the action and
::?. destination respectively, located files will be moved into
::?. their own "New folder" directory (if exists. Consider using
::?. -f switch) instead of them all being moved into a single
::?. ".\New folder" location in the source location. Note, this
::?. option does not aid againt the multiple file occurrence error
::?. attainable when using -s. This switch is synonymous to the
::?. "adapt_current_directory_before_action" default.
::?.
::?. -q Suppress warning when using DELETE action.
goto :main
:initialise_paramters
if defined ARG_1 (
set "filelist=%ARG_1%"
)
if defined ARG_2 (
set "source=%ARG_2%"
)
if defined ARG_3 (
set "destination=%ARG_3%"
)
if defined ARG_K_F (
set "force=TRUE"
) else (
if defined FORCE (
if /i "%FORCE%"=="TRUE" (
set "force=TRUE"
) else (
set "force=FALSE"
)
)
)
if defined ARG_K_S (
set "transverse_subfolders=TRUE"
) else (
if defined TRANSVERSE_SUBFOLDERS (
if /i "%TRANSVERSE_SUBFOLDERS%"=="TRUE" (
set "transverse_subfolders=TRUE"
) else (
set "transverse_subfolders=FALSE"
)
)
)
if defined ARG_K_A (
set "adapt_current_directory=TRUE"
) else (
if defined ADAPT_CURRENT_DIRECTORY (
if /i "%ADAPT_CURRENT_DIRECTORY%"=="TRUE" (
set "adapt_current_directory=TRUE"
) else (
set "adapt_current_directory=FALSE"
)
)
)
if defined ARG_K_Q (
set "suppress=TRUE"
) else (
set "suppress=FALSE"
)
set "action_valid=FALSE"
if defined ARG_K_C (
for %%I in (C M D L COPY MOVE DELETE DEL LIST INV) do (
if /i "%ARG_V_C%"=="%%I" (
set "action=%%I"
set "action_valid=TRUE"
)
)
) else (
for %%I in (C M D L COPY MOVE DELETE DEL LIST INV) do (
if /i "%ACTION%"=="%%I" (
set "action=%%I"
set "action_valid=TRUE"
)
)
)
if "%ACTION%"=="C" set "action=COPY"
if "%ACTION%"=="M" set "action=MOVE"
if "%ACTION%"=="D" set "action=DELETE"
if "%ACTION%"=="DEL" set "action=DELETE"
if "%ACTION%"=="L" set "action=LIST"
if "%ACTION_VALID%"=="FALSE" set "action=INV"
goto :eof
:arg_parser
set "tempfile_args="%TEMP%\%~nx0_arg-parser.tmp.js""
if not exist %TEMPFILE_ARGS% exit /b 2
for /f "tokens=1,* delims==" %%I in ('set ARG_ 2^>NUL') do (set "%%~I=")
set /p ARG_0=<%TEMPFILE_ARGS%
>%TEMPFILE_ARGS% echo Args=WScript.Arguments;for^(p_count=0,n_count=0,i=0;i^<Args.Length;i++^){item=Args.Item^(i^);if^(item.slice^(0,1^)=='/'^|^|item.slice^(0,1^)=='-'^){colon_index=item.indexOf^(':'^);equal_index=item.indexOf^('='^);min=Math.min^(colon_index,equal_index^);max=Math.max^(colon_index,equal_index^);index=min==-1?max:min;arg_name=index^>-1?item.slice^(1,index^):item.slice^(1^);WScript.Echo^('ARG_K_'+arg_name+'=TRUE'^);if^(index^>-1^){WScript.Echo^('ARG_V_'+arg_name+'='+item.slice^(index+1^)^)}n_count++}else{WScript.Echo^('ARG_'+(p_count+1)+'='+item^);p_count++}}WScript.Echo^('ARG_COUNT='+i^);WScript.Echo^('ARG_POSITIONAL_COUNT='+p_count^);WScript.Echo^('ARG_SWITCHES_COUNT='+n_count^)
for /f "delims=" %%I in (' cscript /nologo %TEMPFILE_ARGS% %ARG_0% ') do (set %%I)
del %TEMPFILE_ARGS%
set "tempfile_args="
goto :eof
:arg_parser__validate_args
setlocal
if defined ARG_4 echo This script takes 3 positional arguments at most but %ARG_POSITIONAL_COUNT% were given&& exit /b 1
set /a or=0
if not defined ARG_3 if defined ARG_2 if /i not "%ARG_V_C%"=="LIST" set /a or+=1
if not defined ARG_3 if defined ARG_2 if /i not "%ARG_V_C%"=="LIST" set /a or+=1
if %OR% gtr 0 echo Parameter set cannot be resolved using the specified parameters&& exit /b 1
set /a paramter_set=-1
if defined ARG_3 (
set /a paramter_set=0
) else if defined ARG_2 (
set /a paramter_set=1
) else if defined ARG_1 (
set /a paramter_set=2
) else if not defined ARG_1 (
set /a paramter_set=3
)
if %PARAMTER_SET% equ -1 echo Parameter set cannot be resolved using the specified parameters&& exit /b 1
set switch_optional_counter=0
if defined ARG_K_F set /a switch_optional_counter+=1
if defined ARG_K_S set /a switch_optional_counter+=1
if defined ARG_K_A set /a switch_optional_counter+=1
if defined ARG_K_Q set /a switch_optional_counter+=1
if defined ARG_K_C set /a switch_optional_counter+=1
set /a switch_counter=switch_optional_counter
if %SWITCH_COUNTER% neq %ARG_SWITCHES_COUNT% echo Unexpected named argument was given&& exit /b 1
endlocal
goto :eof
:copy_file ItemFullName Destination [Overwrite]
setlocal
if not exist "%~1" exit /b 53
if not exist "%~2"\* exit /b 76
if "%~3"=="TRUE" (
copy "%~1" "%~2" >NUL 2>&1 || exit /b 17
) else (
if exist "%~2\%~nx1" exit /b 58
copy "%~1" "%~2" >NUL 2>&1 || exit /b 17
)
endlocal
goto :eof
:move_file ItemFullName Destination [Overwrite]
setlocal
if not exist "%~1" exit /b 53
if not exist "%~2"\* exit /b 76
if "%~3"=="TRUE" (
move "%~1" "%~2" >NUL 2>&1 || exit /b 17
) else (
if exist "%~2\%~nx1" exit /b 58
move "%~1" "%~2" >NUL 2>&1 || exit /b 17
)
endlocal
goto :eof
:delete_file ItemFullName Destination
setlocal
if not exist "%~1" exit /b 53
if not exist "%~2"\* exit /b 76
del "%~1" /f /q >NUL 2>&1 || exit /b 17
endlocal
goto :eof
:help
:usage
setlocal EnableDelayedExpansion
for /f "tokens=1,* delims=." %%1 in (' findstr "^::\?\." "%~f0" ') do (
if "%%2"=="" (
echo(
) else (
set "line=%%2"
echo(!LINE:FindAndCopyFromList.bat=%~nx0!
)
)
endlocal
goto :eof
:main
(echo(%*)>"%TEMP%\%~nx0_arg-parser.tmp.js"
call :arg_parser
if defined ARG_K_? call :help & exit /b 0
call :arg_parser__validate_args >&2 || exit /b 1
call :initialise_paramters
if "%ACTION%"=="INV" (
>&2 echo Invalid value for action named argument was specified&& exit /b 448
)
if "%ACTION%"=="DELETE" if "%SUPPRESS%"=="FALSE" (
set/p=Warning: the selected mode will permanently delete items. Are you sure you want to continue? <NUL
choice
if errorlevel 2 exit /b
echo(
)
set destination="%DESTINATION:"=%"
set "destination=%DESTINATION:\"="%"
set "destination=%DESTINATION:"=%"
if "%ADAPT_CURRENT_DIRECTORY%"=="FALSE" (
if not exist "%DESTINATION%"\* >&2 (
if "%FORCE%"=="TRUE" (
if exist "%DESTINATION%" (
echo Destination path could not be created&& exit /b 75
) else (
md "%DESTINATION%"
)
) else (
echo Destination path not found&& exit /b 76
)
)
)
set source="%SOURCE:"=%"
set "source=%SOURCE:\"="%"
set "source=%SOURCE:"=%"
if not exist "%SOURCE%"\* >&2 echo Source path not found&& exit /b 76
pushd %SOURCE%
set "tempfile=%TEMP%\tmp%RANDOM%_%~n0__#.txt"
if "%ACTION%"=="LIST" (
set "tempfile_found=!TEMPFILE:_#=FOUND!"
set "filestream_found=>>"!TEMPFILE_FOUND!""
copy NUL "!TEMPFILE_FOUND!" >NUL
set "tempfile_none=!TEMPFILE:_#=NONE!"
set "filestream_none=>>"!TEMPFILE_NONE!""
copy NUL "!TEMPFILE_NONE!" >NUL
set "tempfile_foundmulti=!TEMPFILE:_#=MULTI!"
set "filestream_foundmulti=>>"!TEMPFILE_FOUNDMULTI!""
copy NUL "!TEMPFILE_FOUNDMULTI!" >NUL
) else (
set "filestream_none=>&2"
set "filestream_foundmulti=>&2"
)
if %TRANSVERSE_SUBFOLDERS%==TRUE (
set "transverse=/s"
) else (
set "transverse="
)
set /a items_copied=0
for /f "useback delims=" %%I in ("%FILELIST%") do (
set /a item_times_found=0
for /f "tokens=*" %%J in ('
robocopy "%SOURCE%" . "%%~I" %TRANSVERSE% /is /it /l /ns /nc /ndl /np /njh /njs /r:0 /w:0
') do (
set /a item_times_found+=1
set "item_fullname=%%~fJ"
set "item_path=%%~dpJ"
)
if !ITEM_TIMES_FOUND! equ 0 (
if "%ACTION%"=="LIST" (
%FILESTREAM_NONE% echo(%%~I
) else (
%FILESTREAM_NONE% echo Item '%%~I' could not be located
)
) else if !ITEM_TIMES_FOUND! gtr 1 (
if "%ACTION%"=="LIST" (
for /f "tokens=*" %%J in ('
robocopy "%SOURCE%" . "%%~I" %TRANSVERSE% /is /it /l /ns /nc /ndl /np /njh /njs /r:0 /w:0
') do %FILESTREAM_FOUNDMULTI% (
echo(%%~J
)
%FILESTREAM_FOUNDMULTI% echo(
) else (
%FILESTREAM_FOUNDMULTI% echo Mulitple instances of '%%~I' found:
for /f "tokens=*" %%J in ('
robocopy "%SOURCE%" . "%%~I" %TRANSVERSE% /is /it /l /ns /nc /ndl /np /njh /njs /r:0 /w:0
') do %FILESTREAM_FOUNDMULTI% (
echo '%%~J'
)
%FILESTREAM_FOUNDMULTI% echo No action taken
)
) else if !ITEM_TIMES_FOUND! equ 1 (
if "%ADAPT_CURRENT_DIRECTORY%"=="TRUE" (
pushd !ITEM_PATH!
if "%FORCE%"=="TRUE" (
if not exist "%DESTINATION%" md "%DESTINATION%"
)
)
if "%ACTION%"=="COPY" (
call :copy_file "!ITEM_FULLNAME!" "!DESTINATION!" "%FORCE%" && (
set /a items_copied+=1
echo Copied file '!ITEM_FULLNAME!'
) || (
if !ERRORLEVEL! equ 58 (
>&2 echo File '%%~I' already exists in destination
) else (
>&2 echo Error copying file '%%~I'
)
)
) else if "%ACTION%"=="MOVE" (
call :move_file "!ITEM_FULLNAME!" "!DESTINATION!" "%FORCE%" && (
set /a items_copied+=1
echo Moved file '!ITEM_FULLNAME!'
) || (
if !ERRORLEVEL! equ 58 (
>&2 echo File '%%~I' already exists in destination
) else (
>&2 echo Error moving file '%%~I'
)
)
) else if "%ACTION%"=="DELETE" (
call :delete_file "!ITEM_FULLNAME!" && (
set /a items_copied+=1
echo Deleted file '%%~I'
) || (
>&2 echo Error deleting file '%%~I'
)
) else if "%ACTION%"=="LIST" (
%FILESTREAM_FOUND% echo(%%~I
)
if "%ADAPT_CURRENT_DIRECTORY%"=="TRUE" popd
)
)
if "%ACTION%"=="LIST" (
for %%J in ("%TEMPFILE_FOUND%") do if not "%%~zJ"=="0" (
echo ITEMS FOUND:
type "%TEMPFILE_FOUND%"
del "%TEMPFILE_FOUND%"
)
for %%J in ("%TEMPFILE_NONE%") do if not "%%~zJ"=="0" (
echo(& echo ITEMS NOT FOUND:
type "%TEMPFILE_NONE%"
del "%TEMPFILE_NONE%"
)
for %%J in ("%TEMPFILE_FOUNDMULTI%") do if not "%%~zJ"=="0" (
echo(& echo ITEMS APPEARING IN MORE THAN ONE LOCATION:
type "%TEMPFILE_FOUNDMULTI%"
del "%TEMPFILE_FOUNDMULTI%"
)
)
echo(
if "%ACTION%"=="COPY" (
echo Total of %ITEMS_COPIED% items were copied to directory '!DESTINATION!'
) else if "%ACTION%"=="MOVE" (
echo Total of %ITEMS_COPIED% items were moved to directory '!DESTINATION!'
) else if "%ACTION%"=="DELETE" (
echo Total of %ITEMS_COPIED% items were deleted
) else if "%ACTION%"=="LIST" (
echo Total of %ITEMS_COPIED% items were found
)
popdI took that to mean this:
Oh, right, I see. Quite easily done then. Robocopy can do this.
But it sounds like a few other things may be automated for your purposes, Goofybt, d’you think the whole job could be done in one swing?
Correct - if "new" = changed.
Source.
Exactly. Why carry a list around if the list can just be inferred from the destination’s contents? Hence my suggestion of using Robocopy’s /XL option which will only update the files in the destination and will not copy in new files from the source.
The /MAXAGE switch is Robocopy’s equivalent for Xcopy’s /D switch, and Robocopy’s /XL is exactly like Xcopy’s /U.
/U Copy only files that already exist in destination./XL : eXclude "Lonely" files and dirs (present in source but not destination)
This will prevent any new files being added to the destination.Robocopy. Performance. Issue? I don’t think so. Robocopy is a specialised backup tool, not a file lister. For doing what it does best—copying—Robocopy’s speed is not a facet to be questioned.
$ErrorActionPreference = 'SilentlyContinue'
md 'A','B','C','D' | out-null
(measure-command {.\au3_copy.exe S A}).TotalMilliseconds
(measure-command {robocopy.exe S B *}).TotalMilliseconds
(measure-command {xcopy.exe S C }).TotalMilliseconds
(measure-command {copy-item S\* D }).TotalMilliseconds20249.1022
19675.9401
15140.8496
17868.332433723.6522
127.4226
26029.4904
22490.9411
