VBscript to confirm list of files exist and have been modified same day -


i trying create script scan directory list of specific file names , check whether or not datelastmodified newer prior day.

if of files not exist or exist not 'fresh' summary window pop @ end listing file names did not meet criteria.

as example can path c:\testing\ , files want scan file1.txt, file2.txt , file3.txt

note: although these files have same extension not want scan them way. want identify files in script since there other txt files located in directory.

update:here able create far handling 1 file @ time. can offer appreciated.

option explicit  dim fso set fso = createobject("scripting.filesystemobject")  dim inputfile1 inputfile1 = ("c:\testing\file1.txt")  dim inputfile2 inputfile2 = ("c:\testing\file2.txt")  dim inputfile3 inputfile3 = ("c:\testing\file3.txt")  dim currentdate, olddate  '* default date format mm/dd/yyyy currentdate = date() olddate = date() - 1  wscript.echo ("the current date on system set " & currentdate) & vbcrlf & ("checking if file newer " & olddate)  if fso.fileexists(inputfile1)         if cdate (fso.getfile(inputfile1).datelastmodified) > olddate         wscript.echo ("all good!")     else         wscript.echo ("file not current.")     end if  else     wscript.echo ("file not exist.")     wscript.quit     end if

and if add logfile of course try :

option explicit dim ws,fso,files,file,olddate,logfile set ws = createobject("wscript.shell") set fso = createobject("scripting.filesystemobject") files = array("c:\testing\file1.txt", "c:\testing\file2.txt", "c:\testing\file3.txt") olddate = date() - 1 wscript.echo "checking if files older " & olddate logfile = left(wscript.scriptfullname, instrrev(wscript.scriptfullname, ".")) & "log" if fso.fileexists(logfile)      fso.deletefile logfile end if  each file in files     if fso.fileexists(file)         if fso.getfile(file).datelastmodified < olddate             wscript.echo "not current: " & dblquote(file)             writelog "not current: " & dblquote(file),logfile         end if     else         wscript.echo "not found:   " & dblquote(file)         writelog "not found:   " & dblquote(file),logfile     end if next if fso.fileexists(logfile)      ws.run dblquote(logfile) end if '********************************************************** sub writelog(strtext,logfile)     dim fs,ts      const forappending = 8     set fs = createobject("scripting.filesystemobject")     set ts = fs.opentextfile(logfile,forappending,true)     ts.writeline strtext     ts.close end sub '*********************************************************** function dblquote(str)     dblquote = chr(34) & str & chr(34) end function '***********************************************************

edit : 26/04/2015 ==> here how set rootfolder variable

option explicit dim ws,fso,files,file,olddate,logfile,rootfolder set ws = createobject("wscript.shell") set fso = createobject("scripting.filesystemobject") rootfolder = "c:\testing" set rootfolder = fso.getfolder(rootfolder) olddate = date() - 1 wscript.echo "checking if files older " & olddate logfile = left(wscript.scriptfullname, instrrev(wscript.scriptfullname, ".")) & "log" if fso.fileexists(logfile)      fso.deletefile logfile end if  each file in rootfolder.files     if fso.fileexists(file)         if fso.getfile(file).datelastmodified < olddate             wscript.echo "not current: " & dblquote(file)             writelog "not current: " & dblquote(file),logfile         end if     else         wscript.echo "not found:   " & dblquote(file)         writelog "not found:   " & dblquote(file),logfile     end if next if fso.fileexists(logfile)      ws.run dblquote(logfile) end if '********************************************************** sub writelog(strtext,logfile)     dim fs,ts      const forappending = 8     set fs = createobject("scripting.filesystemobject")     set ts = fs.opentextfile(logfile,forappending,true)     ts.writeline strtext     ts.close end sub '*********************************************************** function dblquote(str)     dblquote = chr(34) & str & chr(34) end function '***********************************************************

Comments

Post a Comment

Popular posts from this blog

jquery - How do you format the date used in the popover widget title of FullCalendar? -

Image
in fullcalendar, how format date used in popover widget title when clicking '+n more'? code: <div class="fc-popover fc-more-popover"> <div class="fc-header fc-widget-header"> <span class="fc-close fc-icon fc-icon-x"></span> <span class="fc-title">tuesday, april 7</span> ... </div> ... </div> you use daypopoverformat that. determines date format of title of popover created eventlimitclick option. must date formatting string. default value "dddd, mmmm d" english , "ll" other languages.
Read more

asp.net mvc - SSO between MVCForum and Umbraco7 -

i need integrate sso between mvcforum (forum of company) , umbraco7 (manages cms company). however struggling shared authentication work. tried several ways suggested on other threads still not running expected. here did: 1. in mvcforum (forum.mywebsite.com) 1.1. machine key in web.xml: <machinekey validationkey="the same key umbraco7" decryptionkey="the same key umbraco7" validation="sha1" decryption="aes" /> 1.2. authenticate forms in web.xml <forms name="my-sso-auth" protection="all" path="/" timeout="43200" domain="forum.mywebsite.com" loginurl="/members/logon" enablecrossappredirects="true" /> 2. in umbraco7 (news.mywebsite.com) 2.1. machine key in web.xml: <machinekey validationkey="the same key mvcforum" decryptionkey="the same key mvcforum" validation="sha1" decryption="aes" /> 2.2. a...
Read more

Python Tkinter keyboard using bind -

i have problem using bind option can click button in keyboard, , call function once key pressed. tried taking other codes have similar purpose , saw i'm doing pretty same, though still have problem must've missed. thankful if me this. here's code: # -*- coding: utf-8 -*- #imports tkinter import * pil import imagetk, image import time import tkmessagebox #===========================================================================================================================================# #tkinter class class app(frame): def __init__(self, master=none): frame.__init__(self, master) self.pack() #===========================================================================================================================================# #game pieces classes class board: def __init__(self, rows = 7, columns = 6, picture_height = none, picture_width = none): self.rows = rows self.columns = columns self.picture ...
Read more