DosTips.com

Code: Select all

SET sPath=\\server\path
pushd "%sPath%"
FOR /F "delims=" %%I in ('dir /ad /s') do (
     pushd "%%~I"
     FOR /F "delims=" %%G IN ('DIR /B /A:-D /O:D') DO SET NewestFile=%%G
     popd
)
popd

Code: Select all

@ECHO OFF 
SETLOCAL ENABLEDELAYEDEXPANSION 

SET FFPath=\\Server1\Folder1\
SET NewPath=\\Server2\Folder2
REM Arbitrary yyyymmdd starting point, nothing will be older than it
SET NewestDate=20000101

ECHO Recursively searching %FFPath% 
echo.

FOR /F "delims=" %%I in ('DIR %FFPath%\C*.rtf /a:-d /s /b') DO (
   SET FullDate=%%~tI
   
   REM Set CurrDate to yyyymmdd format.  Note:  Will fail if regional settings changed.
   SET CurrDate=!FullDate:~6,4!!FullDate:~0,2!!FullDate:~3,2!

   If !CurrDate! gtr !NewestDate! (
      SET NewestDate=!CurrDate!
      SET NewestFile=%%~fI
   )
)

ECHO Copying %NewestFile% to %NewPath%
ECHO.
COPY /Y "%NewestFile%" "%NewPath%"
ECHO. 
PAUSE

Code: Select all

@echo off
if "%~1"=="" (
echo Finds the most recent file in a folder and subdirectories
echo SYNTAX: "%~nx0" [path]
echo where path is the folder tree to check EG "d:\data files"
pause
goto :EOF
)
set "fileout=%temp%\tempfile.tmp"

(
echo Dim strPath
echo Set oFSO = CreateObject^("Scripting.FileSystemObject"^)
echo strPath = "%~1"
echo ' strPath = InputBox^("Enter Folder Path: "^)
echo Set fOut = oFSO.CreateTextFile^("%fileout%", True^)
echo DoStuff oFSO.GetFolder^(strPath^).Path
echo Sub DoStuff^(sDir^)
echo Set oDir = oFSO.GetFolder^(sDir^)
echo For Each i In oDir.Files
echo n = oFSO.GetFile^(sDir + "\" + i.Name^).DateLastModified
echo fOut.WriteLine CStr^(Year^(n^)^) + Right^(100+Month^(n^),2^) + Right^(100+Day^(n^),2^) + "-" + Right^(100+Hour^(n^),2^) + Right^(100+Minute^(n^),2^) + Right^(100+Second^(n^),2^) + " " + sDir + "\" + i.Name
echo Next
echo For Each i In oDir.SubFolders
echo DoStuff i.Path
echo Next
echo End Sub
)>"%temp%\vbsfiledate.vbs"

cscript /nologo "%temp%\vbsfiledate.vbs"
del "%temp%\vbsfiledate.vbs"
sort /r <"%fileout%" > "%fileout%2"

set /p "file=" < "%fileout%2"

for /f "tokens=1*" %%a in ("%file%") do set "file=%%b"

:done

del "%fileout%?"
echo The most recent file in the "%~1" tree is
echo "%file%"

goto :EOF


:: raw VBS script


Dim strPath
Set oFSO = CreateObject("Scripting.FileSystemObject")
strPath = "C:\Program Files"
' strPath = InputBox("Enter Folder Path: ")
Set fOut = oFSO.CreateTextFile("fileout.txt", True)
DoStuff oFSO.GetFolder(strPath).Path
Sub DoStuff(sDir)
Set oDir = oFSO.GetFolder(sDir)
For Each i In oDir.Files
n = oFSO.GetFile(sDir + "\" + i.Name).DateLastModified
fOut.WriteLine CStr(Year(n)) + Right(100+Month(n),2) + Right(100+Day(n),2) + "-" + Right(100+Hour(n),2) + Right(100+Minute(n),2) + Right(100+Second(n),2) + " " + sDir + "\" + i.Name
Next
For Each i In oDir.SubFolders
DoStuff i.Path
Next
End Sub

Code: Select all

:treeNewestFiles ReturnVar [RootFolder]
::
::  Searches the directory tree rooted at RootFolder and saves the
::  most recently modified file in ReturnVar. If RootFolder is not
::  specified then the root is the current directory.
::
@echo off
setlocal disableDelayedExpansion

::define temp folder for temp files
set "tempFolder=%temp%\fildates%random%"
md "%tempFolder%"

::define base path\name for temp files
set "tempFile=%tempFolder%\tempFile.txt"

::Loop through all folders rooted at %2 (current directory if not specified),
::and build a script of WMIC commands that will list last modified timestamps
::and full path of files for each folder. The last modified tamestamp will
::be in ISO 8601 format, so it sorts properly.
(
  echo /append:"%tempFile%1"
  for /r %2 %%F in (.) do (
    set "folder=%%~pnxF"
    set "drive=%%~dF"
    setlocal enableDelayedExpansion
    echo datafile where (path='!folder:\^=\\!\\' and drive='%%~dF'^) get lastmodified, name
    endlocal
  )
  echo quit
)>"%tempFile%"

::Execute the WMIC script
::WMIC creates a temporary file in current directory,
::so change directory first so it doesn't interfere with results.
pushd "%tempFolder%"
cmd /c ^<"%tempFile%" wmic ^>nul 2^>nul

::Convert unicode to ansii
type "%tempFile%1" >"%tempFile%2"

::Preserve only data rows
findstr "^[0-9]" "%tempFile%2" >"%tempFile%3"

::Sort the results in descending order
sort /r "%tempFile%3" >"%tempFile%4"

::Get the most recent file (1st in results)
<"%tempFile%4" set /p "rtn="

::cleanup
popd
rd /q /s "%tempFolder%"

::return result
endlocal & set "%1=%rtn:~27%"

Code: Select all

: treeNewestFiles  rtnVar  [RootFolder]
::
::  Searches the directory tree rooted at RootFolder and saves the
::  most recently modified file in ReturnVar. If RootFolder is not
::  specified then the root is the current directory. This algorithm
::  is limited to minute precision.
::
::  Assumes local time stamp format is MM/DD/YYYY hh:mm AP
::  where:
::    MM = month
::    DD = day
::    YYYY = year
::    hh = hour (00-12)
::    mm = minutes
::    AP = AM or PM
::
@echo off
setlocal disableDelayedExpansion
set "tempFile=%temp%\fileDates%random%.txt"

dir /b /s /a-d %2 >"%tempFile%" 2>nul

(
  for /f "usebackq delims=" %%Z in ("%tempFile%") do (
    for /f "tokens=1-6 delims=/: " %%A in ("%%~tZ") do (
      if %%D==12 (echo %%C/%%A/%%B%%F00:%%E %%Z) else echo %%C/%%A/%%B%%F%%D:%%E %%Z
    )
  )
) >"%tempFile%2"

sort /r "%tempFile%2" >"%tempFile%3"

::Get the most recent file (1st in results)
<"%tempFile%3" set /p "rtn="

::cleanup
del "%tempFile%*"

::return result
endlocal & set "%1=%rtn:~18%"