vbscript - VBS Object required error, 800A01A8 -

-

hello i'm trying debug script inherited below. error on line 71 char 6. object required 'ofile'

i don't have vbs experience please gentle. script takes scan , uploads doc archive server, gives unique filename etc. haven't figured out 'ofile' yet :/

'feb 18, 2005  dim ofso set ofso = createobject("scripting.filesystemobject") hiddencount = 0 'wscript.echo wscript.arguments(0) if wscript.arguments.count = 1 , ofso.folderexists(wscript.arguments(0))      set scanfiles = ofso.getfolder(wscript.arguments(0)).files     each ofile in scanfiles     if ofile.attributes , 2     hiddencount = hiddencount + 1 end if         next else     set scanfiles = wscript.arguments end if filecount = scanfiles.count - hiddencount 'wscript.echo hiddencount 'wscript.echo filecount 'wscript.quit() set oie = wscript.createobject("internetexplorer.application") oie.left=50 ' window position oie.top = 100 ' , other properties oie.height = 300 oie.width = 350 oie.menubar = 0 ' no menu oie.toolbar = 0 oie.statusbar = 1 oie.navigate "http://gisweb/apps/doc_archive/scan_login.php?file_count="&filecount 'wscript.echo filecount oie.visible = 1  ' important: wait till msie ready   while (oie.busy)         loop  ' wait till user clicks ok button ' use checkval function ' attention: note m. harris, can make  ' script bit more fool proof. need catch case  ' user closes form without clicking ok button.  on error resume next                        ' wait till ok button clicked     wscript.sleep 400  loop while (oie.document.script.checkval()=0)  ' if error occur, because form closed, quit ' script  if err <> 0   wscript.echo "sorry, run-time error occured during checking" & _                " ok button " & vbcrlf & _                "error: " & err.number & " " & _                "i guess form getting closed..."   wscript.quit        ' end script  end if  on error goto 0    ' switch error handling off   ' user has clicked ok button, retrieve values doclist = oie.document.validform.doc_id_list.value 'msgbox doc_id  = 0 100000     x = 1  next   oie.quit()             ' close internet explorer  set oie = nothing      ' reset object variable     docarray = split(doclist,",")  = 0  each ofile in scanfiles      if not ofile.attributes , 2  **error here**     ext = ofso.getextensionname(ofile)     filename = "p"&right("000000"&docarray(i),6)&"."&ext     base = int(docarray(i) / 500) * 500     subdir = "d"&right("000000"&base,6)     ofso.copyfile ofile, "\\ditgis02\enterprise_gis\doc_archive\raw\"&subdir&"\"&filename, true     = + 1      end if next if wscript.arguments.count = 1 , ofso.folderexists(wscript.arguments(0))      set wshshell = wscript.createobject("wscript.shell")     intbutton = wshshell.popup (filecount&" file(s) logged , copied! want delete temporary scan files?",0,"done!",4)     if intbutton = 6         each ofile in scanfiles             ofile.delete         next     end if else     wscript.echo(filecount&" file(s) logged , copied!") end if wscript.quit()            ' ready ' end

it looks problem may arise if initial test fails:

if wscript.arguments.count = 1 , ofso.folderexists(wscript.arguments(0))      ... else     set scanfiles = wscript.arguments end if

you're setting scanfiles variable collection of arguments, not files. later on, near line 71 (where error occurs), you're treating scanfiles if it's files collection , attempting access attributes property of 1 of file objects:

for each ofile in scanfiles     if not ofile.attributes , 2  **error here**     ... next

this won't possible since scanfiles arguments collection instead. think need fix initial else clause either terminate script or provide kind of "default" files collection.


Comments

Post a Comment

Popular posts from this blog

html - Firefox flex bug applied to buttons? -

-
i'm trying apply flex button on firefox i'm having problem on chrome doesn't happens. this css: .button { display: inline-flex; align-items: center; } as can see in fiddle, "caret" word moved new line, happens if element <button> tag, <div> works expected. http://codepen.io/anon/pen/xblmgx is firefox bug or there css i'm missing? nevermind, looks "mr firefox" doesn't idea... <button> not implementable (by browsers) in pure css, bit of black box, perspective of css. means don't react in same way e.g. <div> would. this isn't specific flexbox -- e.g. don't render scrollbars if put "overflow:scroll" on button, , don't render table if put "display:table" on it. stepping further, isn't specific <button> . consider <fieldset> , <table> have special rendering behavior: data:text/html,<fieldset style="d
Read more

html - Missing border-right in select on Firefox -

-
Image
when put select div width , padding-left, options have no border on right. more, happend if select have width 118px , parent have 15px of padding left! have idea, going on? my code: <!doctype html> <html> <head lang="en"> </head> <body> <div style="width: 1000px; padding-left: 15px;"> <select style="width: 118px;"> <option>a</option> <option>b</option> <option>c</option> </select> </div> </body> </html> and result: here plunker: click it happend on firefox on windows. tested on 40.0.2 version -webkit-box-sizing: border-box; -moz-box-sizing: border-box; -ms-box-sizing: border-box; box-sizing: border-box; source: https://stackoverflow.com/a/11390432/4431269 source of problem: https://bugzilla.mozilla.org/show_bug.cgi?id=924068 and use of google ! edit: (source of problem, explained) after rea
Read more

c# - two queries in same method -

-
i trying execute 2 queries in same method gives me exception. can red of exception declaring new command there way use same command? string id="hi"; connection.open(); oledbcommand command1 = new oledbcommand(); command1.connection = connection; string query1 = "select * products category='" + combobox1.text + "' , subcategory = '" + combobox2.text + "' , sizes='" + combobox3.text + "'"; command1.commandtext = query1; oledbdatareader reader = command1.executereader(); while (reader.read()) { id = reader[0].tostring(); } textbox1.text = id; string query = "insert category_in (category_id,amount,amount_in) values ('"+ id+"' ,500,300)"; command1.commandtext = query; command1.executenonquery(); messagebox.show("saved"); connection.close();
Read more