file io - Backup a while with added timestamp and delete original in a loop -

-

the main part of code work when manually started, not needed when used external program initiate, felt doing aio better ..

when added few lines delete file after backed , loop (marked pt1, pt2, pt3 in code), following syntax error:

line:  66 char  1 syntax error 800a03ea  ms vbscript compilation error

as reference these links checked , copied from:

constantly file, when file exist, run command

http://www.devhut.net/2013/11/15/vbscript-backup-a-file-and-add-a-date-time-stamp/

'--------------------------------------start of added code pt1' '---------------------------------end of added code pt1'     dim objfso   dim ssourcefolder   dim sdestfolder   dim sdbfile   dim sdatetimestamp   const over_write_files = true      set objfso = createobject("scripting.filesystemobject")   ssourcefolder = "c:\program files\n h p"  sbackupfolder = "c:\program files\n h p\archivedata"  sdbfile = "n-h-p"   sdbfileext = "csv"   sdatetimestamp = cstr(year(now())) & _          pad(cstr(month(now())),2) & _          pad(cstr(day(now())),2) & _          pad(cstr(hour(now())),2) & _          pad(cstr(minute(now())),2)     'if backup folder doesn't exist, create it.   if not objfso.folderexists(sbackupfolder)   objfso.createfolder(sbackupfolder)   end if      'copy file long file can found   if objfso.fileexists(ssourcefolder & "\" & sdbfile & "." & sdbfileext)      objfso.copyfile ssourcefolder & "\" & sdbfile & "." & sdbfileext,_          sbackupfolder & "\" & sdbfile & "_" & sdatetimestamp & "." & sdbfileext,_          over_write_files  end if      set objfso = nothing        function pad(cstr2pad, reqstrlen)   dim num2pad      pad = cstr2pad   if len(cstr2pad) < reqstrlen   num2pad = string((reqstrlen - len(cstr2pad)), "0")   pad = num2pad & cstr2pad   end if    '-------------------------------------------start of added code pt2' 'delete file long file can found   if objfso.fileexists(ssourcefolder & "\" & sdbfile & "." & sdbfileext)      objfso.deletefile ssourcefolder & "\" & sdbfile & "." & sdbfileext,_          over_write_files  end if     '-------------------------------------end of added code pt2'  set objfso = nothing   end function  '--------------------------------start of added code pt3'     wscript.sleep 50000  loop   '------------------------------------start of added code pt3'

the problem here within loop. try declare new function within loop. i'd recommend formatting code bit more, makes easier find mistakes. notepad editor has visual brace matching (notepad2, notepad++, etc) help. here's code formatted , fixed, though didn't test actual copying, deleting.

dim objfso dim ssourcefolder, sdestfolder, sdbfile, sdatetimestamp   const over_write_files = true         set objfso = createobject("scripting.filesystemobject")       ssourcefolder = "c:\program files\n h p"     sbackupfolder = "c:\program files\n h p\archivedata"     sdbfile = "n-h-p"      sdbfileext = "csv"       sdatetimestamp = cstr(year(now())) & _              pad(cstr(month(now())),2) & _              pad(cstr(day(now())),2) & _              pad(cstr(hour(now())),2) & _              pad(cstr(minute(now())),2)      'if backup folder doesn't exist, create it.      if not objfso.folderexists(sbackupfolder)         objfso.createfolder(sbackupfolder)     end if          'copy file long file can found      if objfso.fileexists(ssourcefolder & "\" & sdbfile & "." & sdbfileext)          objfso.copyfile ssourcefolder & "\" & sdbfile & "." & sdbfileext,_              sbackupfolder & "\" & sdbfile & "_" & sdatetimestamp & "." & sdbfileext,_              over_write_files      end if         'delete file long file can found       if objfso.fileexists(ssourcefolder & "\" & sdbfile & "." & sdbfileext)          objfso.deletefile ssourcefolder & "\" & sdbfile & "." & sdbfileext,_              over_write_files      end if      set objfso = nothing        wscript.sleep 50000 loop  function pad(cstr2pad, reqstrlen)     dim num2pad         pad = cstr2pad     if len(cstr2pad) < reqstrlen         num2pad = string((reqstrlen - len(cstr2pad)), "0")          pad = num2pad & cstr2pad      end if end function

Comments

Post a Comment

Popular posts from this blog

java - WrongTypeOfReturnValue exception thrown when unit testing using mockito -

-
my test list<person> mylist; @test public void testisvalidperson() { mylist = new arraylist<person>(); mylist.add(new person("tom")); when(persondao.get(person)).thenreturn(mylist); when((persondao.get(person)).isempty()).thenreturn(false);//------exception thrown boolean result = service.isvalid("tom"); assertfalse(result); } method tested: public boolean isvalid(string person){ persondao = new persondao(); person personobj = new person(person); return (persondao.get(person).isempty())?false : true; } exception thrown: org.mockito.exceptions.misusing.wrongtypeofreturnvalue: boolean cannot returned get() get() should return list *** if you're unsure why you're getting above error read on. due nature of syntax above problem might occur because: 1. exception *might* occur in wrongly written multi-threaded tests. please refer mockito faq on limitations of concurrency testing. 2. sp
Read more

php - Magento - Deleted Base url key -

-
i working on cleaning url: http://mydomain.com/shop/shop/deals i going through settings in configuration tab in admin panel on magento , change secure , unsecure base urls remove first base url "shop" web page read: http://mydomain.com/shop/deals so changed unsecure base urls mydomain.com/shop mydomain.com , secure 12.345.67.89/shop 12.345.67.89. wrong thing do. i cannot reload page or admin console. how access these files through ftp , change correctly there?? when make changes in admin panel changes made in database not in file. have make changes in database. 1.go database , select core_config_data table under table find web/unsecure/base_url , web/secure/base_url . make changes here. don't forget clear cache in var/cache folder
Read more

android - How to disable Button if EditText is empty ? -

-
i have edittext , button in application. when button clicked,the text entered in edittext added listview. i want disable button if edittext empty.how ? this code button click imagebutton imb=(imagebutton)findviewbyid(r.id.btn_send); imb.setonclicklistener(new onclicklistener() { @override public void onclick(view arg0) { edittext et = (edittext)findviewbyid(r.id.edittext1); string str = et.gettext().tostring(); web1.add(str); toast.maketext(shoutsingleprogram.this, "you entered...."+str, toast.length_short).show(); adapter1.notifydatasetchanged(); et.settext(""); } }); } how can ? edittext1.addtextchangedlistener(new textwatcher() { @override public void ontextchanged(charsequence s, int start, int before, in
Read more