newxso

幸好楼主要求是一小时内而不是几小时几分几秒，所以可以用简单的方式，而不用把时分秒格式转换为秒数来运算时间。

@echo off&setlocal enabledelayedexpansion
set ndy=%date:~0,-4%
set nte=%time:~0,-3%
set nhr=%nte:~0,-6%
set nme=%nte:~3,-3%
set nsd=%nte:~6%
set /a strhr=%nhr%-1
set strTime=%strhr%:%nme%

echo.正在搜索文件，请稍等...
echo.%ndy%  %strTime%--%nte:~0,-3% >t.txt
echo.>>t.txt
for /f "delims=" %%a in ('dir /b/s/a-d e:\') do (
  set t=%%~ta
  set d=!t:~0,-6!
  set t=!t:~-5!
  if !d! equ %ndy% if !t! leq %nte% if !t! geq %strTime% >>t.txt echo.%%a  %%~ta
)
复制代码

[ 本帖最后由 newxso 于 2009-8-18 21:46 编辑 ]

newxso

其实批处理中利用 %%~ti 获取的是最后修改日期，并不是文件的创建日期。对于日期和时间的计算，我觉得最好还是借用VBS比较简单得多：

' 2>nul&cls&@cscript //nologo //e:vbscript "%~f0" &pause
strNowDate = Now
FilesTree("E:\")
Function FilesTree(sPath)
    Set oFso = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFso.GetFolder(sPath)
    Set oFiles = oFolder.Files
    For Each oFile In oFiles
        If DateDiff("s",oFile.DateCreated,strNowDate) <= 3600 Then
           Wscript.Echo oFile.Path & "  " &  oFile.DateCreated
        End If
    Next
    Set oSubFolders = oFolder.SubFolders
    For Each oSubFolder In oSubFolders
        FilesTree(oSubFolder.Path)
    Next   
    Set oFolder = Nothing
    Set oSubFolders = Nothing
    Set oFso = Nothing
End Function
复制代码

如果想把结果保存到文本，把第一句改成如下即可：

' 2>nul&cls&@cscript //nologo //e:vbscript "%~f0" >file.txt&exit

[ 本帖最后由 newxso 于 2009-8-19 23:52 编辑 ]