Check the oldest file in the folder is older than 20 minutes

Well if you are open to VBScript you could use this I have just knocked up:

DIM filename, filesys, file1, timediff

If Wscript.Arguments.Count = 0 Then
    Wscript.echo "9999 Error - no file specified"
ELSE
    Set filesys = CreateObject("Scripting.FileSystemObject")
    Set file1 = filesys.GetFile(wscript.arguments(0))
    timediff = int((now - file1.DateCreated) * 60 * 24)

'Send age in minutes back to console:
    if timediff >=20 then wscript.echo "ERROR: " & file1.name & " is " & timediff & " minutes old."
End if

Save that as "checktimes.vbs" and you can run it from your batch file with a command line of the oldest file in a dir and get back something like

cscript //nologo checktimes.vbs "c:\somedir\file1.vbs"
ERROR: file1.vbs is 15516 minutes old.

You can get the oldest file in a dir as part of the VBScript or call it from the batch files you are familiar with, e.g. this for loop witll get the file for you -- a DIR command in date order to get the oldest file first of a spec:
@echo off
for /f "tokens=*" %%a in ('dir /b /a-d /od "c:\whateverdir\*.edi"') do cscript //nologo checktimes.vbs "%%~fa" & exit /b
REM rest of script

IMO it is not a duplicate.  He asked that quetion then a different one towards the end of that so I suggested raising a new Q which I assume is this one.

For some reason I can't choose anything in the "object" box so perhaps the Author might answer here and close or whatever.  Please don't delete it I've put a solution in here!

Hi Dragon-IT,

Thanks we are very close.

Apologize or the confusion in creating an almost suplicate toicket. Appreciate your patience. My knowledge of VB Script is next to zero.  

I managed to run the vb script.
C:\>chkoldfile.bat
ERROR: PTPLOT.txt is 274805 minutes old.

I want the script to take the folder as an input parameter.

 I want to check different EDI input foldersin one go. day Dir1, dir2 that I can read from a text file file.
can I invoke this above script in a DOS script which will look for different folders   and when any of them has oldest file is older than say 20 minutes,  invoke a DOS script that I have  a that can send an email.
Appreciate your patience.

Steve,

I have closed the other related  question. I reaized we are very close to resolving this issue and if this works I can solve both my issues
1.to check if a any file in the input  folder  is older than 20 minutes
2.  tocheck if a specific file in the LOG directory is older than 20 minutes).

Thanks.

Ok thanks, glad it's helping!  You could make it a subroutine and then call it as many times as you need with a list of folders I suppose, something like this:

@echo off

REM Error log kept here
set error="errorfile.txt"
del %error% 2>NUL

REM Change filespec here to what to look for
set filespec=*.cmd

REM dirlist.txt is list of each dir, one per line:
for /f "tokens=*" %%y in ('type dirlist.txt') do call :checkdir "%%y"

REM Check file is above certain size (may well be a few bytes per dir due to blank lines from output of commands even if no errors.
call :checkfilesize %error%

exit /b

:checkdir
for /f "tokens=*" %%a in ('dir /b /a-d /od "%~1\%filespec%"') do >>%error% cscript //nologo checkfiletime.vbs "%%~fa" & exit /b
exit /b

:checkfilesize
if %~z1 LSS 20 echo There was no error & exit /b
type %error%
echo Now need to send this by email or whatever
pause

BTW in the dirlist.txt make sure there are no trailing \ chars, i.e.

d:\somedir\dir1
d:\somedir\dir2
d:\somedir\otherone
etc.

Hi Steve,
I was busy with other things could not get to this. Sorry my knowledge of VB script is zero. I copied the files to a file called fff.txt but it does not work. I get this error below. May be some thing simple.
I attached the files. Can you make it work? I try to make it work in the c: look for .txt in the c:\ folder.

 C:\>fff.bat
File Not Found
20 was unexpected at this time.

pl advise.

Hi Steve,
Hope you get time to look at this. If you dont mind can you create the scripts asuming that you have ti check the folder c:\temp1 for files named *.LOG and display an error if it is >20 minutes.

I can then insert the email function.

sitaparijat - Any luck with finalising this one?

Steve

I guess not?  Still there?