DosTips.com

Code: Select all

@echo off
setlocal EnableDelayedExpansion
cd /D "%~DP1"
set newFolder=%~N1
if not exist "%newFolder%" ECHO md "%newFolder%"
if exist "%newFolder%.log" del "%newFolder%.log"
set cutNumber=
set /P firstLine=< "%~NX1"
if "%firstLine:~0,1%" equ "1" (
   if "%firstLine:~1,1%" equ "." (
      set "cutNumber=. "
   ) else (
      set "cutNumber=- "
   )
)
for /F "usebackq delims=" %%a in ("%~NX1") do (
   set "fileName=%%~Na"
   if defined cutNumber (
      set "fileName=!fileName:*%cutNumber%=!"
   )
   if exist "!fileName!.doc" (
      ECHO copy "!fileName!.doc" "%newFolder%"
      echo File "!fileName!.doc" copied
   ) else (
      echo/
      echo File not found: "!fileName!.doc"
      call :getFileList "!fileName!"
      if !n! gtr 0 (
         if !n! equ 1 (
            set i=1
         ) else (
            set i=0
            set /P "i=Enter the desired file number: "
         )
         if !i! gtr 0 (
            call :setElem name=name[!i!]
            ECHO copy "!name!" "%newFolder%"
            echo File "!name!" copied
         ) else (
            echo FILE NOT COPIED
            echo File not found: "!fileName!.doc">> "%newFolder%.log"
         )
      ) else (
         echo I can't find any similar file...
      )
   )
)
if exist "%newFolder%.log" (
   echo/
   echo/
   echo THESE FILES WERE NOT COPIED:
   type "%newFolder%.log"
)
PAUSE
goto :EOF

:getFileList
set n=0
set "name=%~N1"
:cutName
   set "name=%name:~0,-1%"
   if not defined name exit /B
   if not exist "%name%*.doc" goto cutName
for %%a in ("%name%*.doc") do (
   set /A n+=1
   set "name[!n!]=%%a"
   echo     !n!- %%a
)
exit /B

:setElem
set %1=!%2!
exit /B

Code: Select all

@echo off
rem Text file with filenames
rem To be prompted for this change to  'set /p LIST=Path to text file: '
rem Or 'set LIST=%1' to run from cmd line like, filename.bat "D:\List.txt"
set LIST="D:\List.txt"

rem Path to the files to copy
rem Can be change the same as LIST
rem Or 'set FILESPATH=%2' to run like , filename.bat "D:\List.txt" "D:\Test"
set FILESPATH="D:\Test"

rem Destination path can be added here. eg set DESTPATH=C:\New Folder
rem If set change xcopy cmd to "%DESTPATH%\%DEST%\*"
rem Do not use quotes when setting DESTPATH

rem Set Destination folder based on LIST name
for %%i in (%LIST%) do set DEST=%%~ni

rem Read LIST and call :COPY_FILES for each line passing the line of text
for /F "usebackq delims==" %%i in (%LIST%) do (call :COPY_FILES "%%i")

exit

:COPY_FILES
rem Destination folder created in same location the batch file is run from
xcopy /qv %FILESPATH%\%1 .\%DEST%\*

Code: Select all

@echo off

set LISTFOLDER=D:\List Files
set FILESPATH=D:\Test
set DESTPATH=D:\New Folder

for /f "tokens=*" %%i in ('dir /b ^"%LISTFOLDER%\*.txt^"') do (call :COPY_FILES "%LISTFOLDER%\%%i")

pause
exit

:COPY_FILES
for %%i in (%1) do set DEST=%%~ni
for /f "usebackq delims==" %%i in (%1) do xcopy /qv "%FILESPATH%\%%i" "%DESTPATH%\%DEST%\*"

Code: Select all

@Echo Off & Mode 50,13 & Color 0E

:: source = Path to the file that contain the names list "names without the extension"
:: type = the type of the Files that is being searched for "without the dot . befor it"
:: loc = the location to search in
:: destination = the path to the distenation folder even if it is not exist

set "source=%userprofile%\desktop\list.txt"
set "type=py"
set "loc=D:\Test"
set "destination =%userprofile%\desktop\Auto-Search"


For /F "tokens=* delims=" %%A in ('Type "%source%"') Do (
   For /F "tokens=* delims=" %%B in ('DIR /B /S /A:-D "%loc%\*.%type%"') Do (
      IF "%%~nxB" EQU "%%A.%type%" (
         IF not Exist "%destination%" MD "% destination%" >nul
         IF not Exist "%destination%\%%~nxB" ( Copy /b "%%B" "%destination%\%%~nxB" >nul
            ) Else ( Copy /b "%%B" "%destination%\%%~nB_%RANDOM%.%type%" >nul )
      )
   )
)
Echo.&Echo.&Echo.&Echo.&Echo.&Echo              All Done !
pause >nul

Code: Select all

@Echo Off & Mode 50,13 & Color 0E

:: source = Path to the file that contain the names list "names without the extension"
:: type = the type of the Files that is being searched for "without the dot . befor it"
:: loc = the location to search in
:: destination = the path to the distenation folder even if it is not exist

set "source=C:\Users\Evan\Desktop\breaks filenames.txt"
set "wav"
set "loc=C:\Users\Evan\Desktop\location folder"
set "destination =C:\Users\Evan\Desktop\Collating folder"


For /F "tokens=* delims=" %%A in ('Type "%source%"') Do (
   For /F "tokens=* delims=" %%B in ('DIR /B /S /A:-D "%loc%\*.%type%"') Do (
      IF "%%~nxB" EQU "%%A.%type%" (
         IF not Exist "%destination%" MD "% destination%" >nul
         IF not Exist "%destination%\%%~nxB" ( Copy /b "%%B" "%destination%\%%~nxB" >nul
            ) Else ( Copy /b "%%B" "%destination%\%%~nB_%RANDOM%.%type%" >nul )
      )
   )
)
Echo.&Echo.&Echo.&Echo.&Echo.&Echo              All Done !
pause >nul

Code: Select all

@echo off
set "list=list.txt"

setlocal EnableExtensions EnableDelayedExpansion

dir /a:-d /o:n /b /s >filelist.tmp

del list2.tmp 2>nul
del notfound.txt 2>nul
set c=0

for /f "delims=" %%a in ('type "%list%"') do echo finding "%%a"& findstr /r /i /c:"\\\%%a$" filelist.tmp >>list2.tmp || >>notfound.txt echo %%a

md "%userprofile%\desktop\copied files" 2>nul

for /f "delims=" %%a in ('type "list2.tmp"') do (
set /a c=c+1
set num=000!c!
set num=!num:~-3!
echo copying "!num! %%~nxa"
copy /b "%%a" "%userprofile%\desktop\copied files\!num! %%~nxa" >nul
)

del filelist.tmp 2>nul
del list2.tmp 2>nul
echo.
if exist notfound.txt echo Check NOTFOUND.TXT for filenames that were missing
echo.
echo done
echo.
pause