Extract words from a .dita file
in [VbScript]
|
From: Bob Barrows on 1 Apr 2010 15:27 Well, I don't get that error. You're going to have to show me which line is line 14 in your file. Copy and paste it directly out of your file. In fact, copy the first 14 lines (include the blank lines at the beginning of your file if any exist - those get counted) so I can see the lines that lead up to the error line. Huber57 wrote: > I did. But then I took it out and tried to run it with no success. > I just > double clicked on the .vbs file. > > Now i get this error: > Script: C:\Documents and Settings\U39012\Desktop\filepath.vbs > Line: 14 > Char: 9 > Error: Unexpected end of statement > Code 800A0401 > Source: Microsoft VBScript compilation editor > > > > > > "Bob Barrows" wrote: > >> Err ... you didn't paste in the string of asterisks did you? >> >> Huber57 wrote: >>> Bob, >>> >>> Thanks much. I have saved the text (removing all of the >>) as a >>> .vbs file. >>> I tried to double click and run it but it gave me an error: >>> Script: C:\Documents and Settings\U39012\Desktop\filepath.vbs >>> Line: 1 >>> Char: 1 >>> Error: Expected statement >>> Code: 800A0400 >>> Source: Microsoft VBScript Compilation Error >>> >>> Here is the code as I have it pasted: >>> >>> ************************************************************************************ >>> dim fso,fldr,fil,xmldoc,nodes, kwnode,itnode, xl,wb,ws,kwrow,itrow >>> dim pathtofiles >>> 'replace with your path >>> pathtofiles="C:\test" >>> set fso=createobject("scripting.filesystemobject") >>> set fldr=fso.getfolder(pathtofiles & "\dita") >>> set xmldoc=createobject("msxml2.domdocument") >>> set xl=createobject("excel.application") >>> xl.workbooks.add >>> set wb=xl.workbooks(1) >>> set ws=wb.sheets(1) >>> ws.name="dita_values" >>> kwrow=1 >>> itrow=1 >>> ws.cells(kwrow,1).FormulaR1C1="Keywords" >>> ws.cells(itrow,2).FormulaR1C1="Index Terms" >>> ws.range("A1:B1").font.bold=true >>> 'wscript.quit >>> kwrow=2 >>> itrow=2 >>> for each fil in fldr.files >>> xmldoc.load fil.path >>> set nodes = nothing >>> set nodes = xmldoc.selectnodes("//keyword") >>> if not nodes is nothing then >>> for each kwnode in nodes >>> ws.cells(kwrow,1).FormulaR1C1=kwnode.text >>> kwrow=kwrow+1 >>> next >>> else >>> msgbox "no nodes were found" >>> end if >>> set nodes = nothing >>> set nodes = xmldoc.selectnodes("//indexterm") >>> if not nodes is nothing then >>> for each itnode in nodes >>> ws.cells(itrow,2).FormulaR1C1=itnode.text >>> itrow=itrow+1 >>> next >>> end if >>> next >>> wb.saveas pathtofiles & "\keyword_indexterms.xls" >>> xl.quit >>> >>> >>> "Bob Barrows" wrote: >>> >>>> Into a text file that has a .vbs extension. I called my file >>>> "ProcessDita.vbs". You of course can give yours whatever name suits >>>> your >>>> fancy. Just remember to correct the folder names in the paths in >>>> the >>>> code. >>>> >>>> Huber57 wrote: >>>>> Bob, >>>>> >>>>> Thanks much. It looks like a lot of hard work went into it. Now >>>>> for >>>>> the >>>>> BIG question. >>>>> >>>>> What do I do with that code? Where would I paste it? >>>>> >>>>> Thanks, >>>>> >>>>> Doug >>>>> >>>>> "Bob Barrows" wrote: >>>>> >>>>>> The problem with this sample is there is no root document. If the >>>>>> entire >>>>>> content was nested inside a single element, perhaps called "dita" >>>>>> (see below >>>>>> for what I am talking about), then there would be no problem. I >>>>>> tried >>>>>> creating a test file with your data and opening it in Excel and >>>>>> got >>>>>> the >>>>>> expected error "document can contain only one top element". So, >>>>>> given your statement that you were able to open one of these >>>>>> files >>>>>> in Excel, I have to conclude that you have not shown me the >>>>>> actual >>>>>> structure. There are other >>>>>> syntax problems with this data (missing quotes, closing tags >>>>>> without >>>>>> opening >>>>>> tags) that I will have to correct as well. I am going to have to >>>>>> change your >>>>>> sample data into the correct format to test my code, which will >>>>>> appear at >>>>>> the bottom of this post. It's quick and dirty, but it is tested >>>>>> and >>>>>> it >>>>>> works. >>>>>> >>>>>> Huber57 wrote: >>>>>>> Bob, >>>>>>> >>>>>>> I would prefer the former (1 spreadsheet, all index terms and >>>>>>> keywords). >>>>>>> >>>>>>> Here is some sample code. >>>>>>> >>>>>> <dita> >>>>>> <title>Records</title> >>>>>> <prolog> >>>>>> <author>Mystery Writers</author> >>>>>> >>>>>> <metadata><keywords> >>>>>> <keyword>complication</keyword> >>>>>> <keyword>complications</keyword> >>>>>> <keyword>data</keyword> >>>>>> <keyword>health</keyword> >>>>>> <keyword>info</keyword> >>>>>> <keyword>information</keyword> >>>>>> <keyword>logbook</keyword> >>>>>> <keyword>logbooks</keyword> >>>>>> <keyword>my</keyword> >>>>>> <indexterm>complications</indexterm> >>>>>> <indexterm>logbook and records, complications</indexterm> >>>>>> </keywords></metadata> >>>>>> </prolog> >>>>>> >>>>>> <conbody> >>>>>> <p>Lorem ipsum dolor sit amet, consectetur adipiscing elit. >>>>>> >>>>>> Vestibulum felis >>>>>> massa, ultricies eu auctor in, aliquam et mauris. Sed lobortis >>>>>> >>>>>> facilisis >>>>>> nisl, vitae sagittis eros interdum ac. In dolor velit, </p> >>>>>> </conbody> >>>>>> <related-links> >>>>>> <linklist> >>>>>> <title>Related Links</title> >>>>>> <link href="otherrecords.dita"><linktext>Other >>>>>> >>>>>> Records</linktext></link> >>>>>> </linklist> >>>>>> </related-links> >>>>>> <concept></concept> >>>>>> </dita> >>>>>> ************************************************************************************ >>>>>> dim fso,fldr,fil,xmldoc,nodes, kwnode,itnode, >>>>>> xl,wb,ws,kwrow,itrow >>>>>> dim pathtofiles >>>>>> 'replace with your path >>>>>> pathtofiles="c:\filelib" >>>>>> set fso=createobject("scripting.filesystemobject") >>>>>> set fldr=fso.getfolder(pathtofiles & "\dita") >>>>>> set xmldoc=createobject("msxml2.domdocument") >>>>>> set xl=createobject("excel.application") >>>>>> xl.workbooks.add >>>>>> set wb=xl.workbooks(1) >>>>>> set ws=wb.sheets(1) >>>>>> ws.name="dita_values" >>>>>> kwrow=1 >>>>>> itrow=1 >>>>>> ws.cells(kwrow,1).FormulaR1C1="Keywords" >>>>>> ws.cells(itrow,2).FormulaR1C1="Index Terms" >>>>>> ws.range("A1:B1").font.bold=true >>>>>> 'wscript.quit >>>>>> kwrow=2 >>>>>> itrow=2 >>>>>> for each fil in fldr.files >>>>>> xmldoc.load fil.path >>>>>> set nodes = nothing >>>>>> set nodes = xmldoc.selectnodes("//keyword") >>>>>> if not nodes is nothing then >>>>>> for each kwnode in nodes >>>>>> ws.cells(kwrow,1).FormulaR1C1=kwnode.text >>>>>> kwrow=kwrow+1 >>>>>> next >>>>>> else >>>>>> msgbox "no nodes were found" >>>>>> end if >>>>>> set nodes = nothing >>>>>> set nodes = xmldoc.selectnodes("//indexterm") >>>>>> if not nodes is nothing then >>>>>> for each itnode in nodes >>>>>> ws.cells(itrow,2).FormulaR1C1=itnode.text >>>>>> itrow=itrow+1 >>>>>> next >>>>>> end if >>>>>> next >>>>>> wb.saveas pathtofiles & "\keyword_indexterms.xls" >>>>>> xl.quit >>>>>> >>>>>> -- >>>>>> Microsoft MVP - ASP/ASP.NET - 2004-2007 >>>>>> Please reply to the newsgroup. This email account is my spam trap >>>>>> so >>>>>> I >>>>>> don't check it very often. If you must reply off-line, then >>>>>> remove >>>>>> the "NO SPAM" >>>>>> >>>>>> >>>>>> . >>>> >>>> -- >>>> Microsoft MVP - ASP/ASP.NET - 2004-2007 >>>> Please reply to the newsgroup. This email account is my spam trap >>>> so >>>> I >>>> don't check it very often. If you must reply off-line, then remove >>>> the "NO SPAM" >>>> >>>> >>>> . >> >> -- >> Microsoft MVP - ASP/ASP.NET - 2004-2007 >> Please reply to the newsgroup. This email account is my spam trap so >> I >> don't check it very often. If you must reply off-line, then remove >> the "NO SPAM" >> >> >> . -- Microsoft MVP - ASP/ASP.NET - 2004-2007 Please reply to the newsgroup. This email account is my spam trap so I don't check it very often. If you must reply off-line, then remove the "NO SPAM"
From: Huber57 on 1 Apr 2010 16:07 Bob, I appreciate your patience with me. Here is the code: dim fso,fldr,fil,xmldoc,nodes, kwnode,itnode, xl,wb,ws,kwrow,itrow dim pathtofiles 'replace with your path pathtofiles="C:\test" set fso=createobject("scripting.filesystemobject") set fldr=fso.getfolder(pathtofiles & "\dita") set xmldoc=createobject("msxml2.domdocument") set xl=createobject("excel.application") xl.workbooks.add set wb=xl.workbooks(1) set ws=wb.sheets(1) ws.name="dita_values" kwrow=1 itrow=1 ws.cells(kwrow,1).FormulaR1C1="Keywords" ws.cells(itrow,2).FormulaR1C1="Index Terms" ws.range("A1:B1").font.bold=true 'wscript.quit kwrow=2 itrow=2 for each fil in fldr.files xmldoc.load fil.path set nodes = nothing set nodes = xmldoc.selectnodes("//keyword") if not nodes is nothing then for each kwnode in nodes ws.cells(kwrow,1).FormulaR1C1=kwnode.text kwrow=kwrow+1 next else msgbox "no nodes were found" end if set nodes = nothing set nodes = xmldoc.selectnodes("//indexterm") if not nodes is nothing then for each itnode in nodes ws.cells(itrow,2).FormulaR1C1=itnode.text itrow=itrow+1 next end if next wb.saveas pathtofiles & "\keyword_indexterms.xls" xl.quit "Bob Barrows" wrote: > Well, I don't get that error. You're going to have to show me which line is > line 14 in your file. Copy and paste it directly out of your file. In fact, > copy the first 14 lines (include the blank lines at the beginning of your > file if any exist - those get counted) so I can see the lines that lead up > to the error line. > > > > > Huber57 wrote: > > I did. But then I took it out and tried to run it with no success. > > I just > > double clicked on the .vbs file. > > > > Now i get this error: > > Script: C:\Documents and Settings\U39012\Desktop\filepath.vbs > > Line: 14 > > Char: 9 > > Error: Unexpected end of statement > > Code 800A0401 > > Source: Microsoft VBScript compilation editor > > > > > > > > > > > > "Bob Barrows" wrote: > > > >> Err ... you didn't paste in the string of asterisks did you? > >> > >> Huber57 wrote: > >>> Bob, > >>> > >>> Thanks much. I have saved the text (removing all of the >>) as a > >>> .vbs file. > >>> I tried to double click and run it but it gave me an error: > >>> Script: C:\Documents and Settings\U39012\Desktop\filepath.vbs > >>> Line: 1 > >>> Char: 1 > >>> Error: Expected statement > >>> Code: 800A0400 > >>> Source: Microsoft VBScript Compilation Error > >>> > >>> Here is the code as I have it pasted: > >>> > >>> ************************************************************************************ > >>> dim fso,fldr,fil,xmldoc,nodes, kwnode,itnode, xl,wb,ws,kwrow,itrow > >>> dim pathtofiles > >>> 'replace with your path > >>> pathtofiles="C:\test" > >>> set fso=createobject("scripting.filesystemobject") > >>> set fldr=fso.getfolder(pathtofiles & "\dita") > >>> set xmldoc=createobject("msxml2.domdocument") > >>> set xl=createobject("excel.application") > >>> xl.workbooks.add > >>> set wb=xl.workbooks(1) > >>> set ws=wb.sheets(1) > >>> ws.name="dita_values" > >>> kwrow=1 > >>> itrow=1 > >>> ws.cells(kwrow,1).FormulaR1C1="Keywords" > >>> ws.cells(itrow,2).FormulaR1C1="Index Terms" > >>> ws.range("A1:B1").font.bold=true > >>> 'wscript.quit > >>> kwrow=2 > >>> itrow=2 > >>> for each fil in fldr.files > >>> xmldoc.load fil.path > >>> set nodes = nothing > >>> set nodes = xmldoc.selectnodes("//keyword") > >>> if not nodes is nothing then > >>> for each kwnode in nodes > >>> ws.cells(kwrow,1).FormulaR1C1=kwnode.text > >>> kwrow=kwrow+1 > >>> next > >>> else > >>> msgbox "no nodes were found" > >>> end if > >>> set nodes = nothing > >>> set nodes = xmldoc.selectnodes("//indexterm") > >>> if not nodes is nothing then > >>> for each itnode in nodes > >>> ws.cells(itrow,2).FormulaR1C1=itnode.text > >>> itrow=itrow+1 > >>> next > >>> end if > >>> next > >>> wb.saveas pathtofiles & "\keyword_indexterms.xls" > >>> xl.quit > >>> > >>> > >>> "Bob Barrows" wrote: > >>> > >>>> Into a text file that has a .vbs extension. I called my file > >>>> "ProcessDita.vbs". You of course can give yours whatever name suits > >>>> your > >>>> fancy. Just remember to correct the folder names in the paths in > >>>> the > >>>> code. > >>>> > >>>> Huber57 wrote: > >>>>> Bob, > >>>>> > >>>>> Thanks much. It looks like a lot of hard work went into it. Now > >>>>> for > >>>>> the > >>>>> BIG question. > >>>>> > >>>>> What do I do with that code? Where would I paste it? > >>>>> > >>>>> Thanks, > >>>>> > >>>>> Doug > >>>>> > >>>>> "Bob Barrows" wrote: > >>>>> > >>>>>> The problem with this sample is there is no root document. If the > >>>>>> entire > >>>>>> content was nested inside a single element, perhaps called "dita" > >>>>>> (see below > >>>>>> for what I am talking about), then there would be no problem. I > >>>>>> tried > >>>>>> creating a test file with your data and opening it in Excel and > >>>>>> got > >>>>>> the > >>>>>> expected error "document can contain only one top element". So, > >>>>>> given your statement that you were able to open one of these > >>>>>> files > >>>>>> in Excel, I have to conclude that you have not shown me the > >>>>>> actual > >>>>>> structure. There are other > >>>>>> syntax problems with this data (missing quotes, closing tags > >>>>>> without > >>>>>> opening > >>>>>> tags) that I will have to correct as well. I am going to have to > >>>>>> change your > >>>>>> sample data into the correct format to test my code, which will > >>>>>> appear at > >>>>>> the bottom of this post. It's quick and dirty, but it is tested > >>>>>> and > >>>>>> it > >>>>>> works. > >>>>>> > >>>>>> Huber57 wrote: > >>>>>>> Bob, > >>>>>>> > >>>>>>> I would prefer the former (1 spreadsheet, all index terms and > >>>>>>> keywords). > >>>>>>> > >>>>>>> Here is some sample code. > >>>>>>> > >>>>>> <dita> > >>>>>> <title>Records</title> > >>>>>> <prolog> > >>>>>> <author>Mystery Writers</author> > >>>>>> > >>>>>> <metadata><keywords> > >>>>>> <keyword>complication</keyword> > >>>>>> <keyword>complications</keyword> > >>>>>> <keyword>data</keyword> > >>>>>> <keyword>health</keyword> > >>>>>> <keyword>info</keyword> > >>>>>> <keyword>information</keyword> > >>>>>> <keyword>logbook</keyword> > >>>>>> <keyword>logbooks</keyword> > >>>>>> <keyword>my</keyword> > >>>>>> <indexterm>complications</indexterm> > >>>>>> <indexterm>logbook and records, complications</indexterm> > >>>>>> </keywords></metadata> > >>>>>> </prolog> > >>>>>> > >>>>>> <conbody> > >>>>>> <p>Lorem ipsum dolor sit amet, consectetur adipiscing elit. > >>>>>> > >>>>>> Vestibulum felis > >>>>>> massa, ultricies eu auctor in, aliquam et mauris. Sed lobortis > >>>>>> > >>>>>> facilisis > >>>>>> nisl, vitae sagittis eros interdum ac. In dolor velit, </p> > >>>>>> </conbody> > >>>>>> <related-links> > >>>>>> <linklist> > >>>>>> <title>Related Links</title> > >>>>>> <link href="otherrecords.dita"><linktext>Other > >>>>>> > >>>>>> Records</linktext></link> > >>>>>> </linklist> > >>>>>> </related-links> > >>>>>> <concept></concept> > >>>>>> </dita> > >>>>>> ************************************************************************************ > >>>>>> dim fso,fldr,fil,xmldoc,nodes, kwnode,itnode, > >>>>>> xl,wb,ws,kwrow,itrow > >>>>>> dim pathtofiles > >>>>>> 'replace with your path > >>>>>> pathtofiles="c:\filelib" > >>>>>> set fso=createobject("scripting.filesystemobject") > >>>>>> set fldr=fso.getfolder(pathtofiles & "\dita") > >>>>>> set xmldoc=createobject("msxml2.domdocument") > >>>>>> set xl=createobject("excel.application") > >>>>>> xl.workbooks.add > >>>>>> set wb=xl.workbooks(1) > >>>>>> set ws=wb.sheets(1) > >>>>>> ws.name="dita_values" > >>>>>> kwrow=1 > >>>>>> itrow=1 > >>>>>> ws.cells(kwrow,1).FormulaR1C1="Keywords" > >>>>>> ws.cells(itrow,2).FormulaR1C1="Index Terms" > >>>>>> ws.range("A1:B1").font.bold=true > >>>>>> 'wscript.quit > >>>>>> kwrow=2 > >>>>>> itrow=2 > >>>>>> for each fil in fldr.files > >>>>>> xmldoc.load fil.path > >>>>>> set nodes = nothing > >>>>>> set nodes = xmldoc.selectnodes("//keyword") > >>>>>> if not nodes is nothing then > >>>>>> for each kwnode in nodes > >>>>>> ws.cells(kwrow,1).FormulaR1C1=kwnode.text > >>>>>> kwrow=kwrow+1 > >>>>>> next > >>>>>> else > >>>>>> msgbox "no nodes were found" > >>>>>> end if > >>>>>> set nodes = nothing > >>>>>> set nodes = xmldoc.selectnodes("//indexterm") > >>>>>> if not nodes is nothing then > >>>>>> for each itnode in nodes > >>>>>> ws.cells(itrow,2).FormulaR1C1=itnode.text > >>>>>> itrow=itrow+1 > >>>>>> next > >>>>>> end if > >>>>>> next > >>>>>> wb.saveas pathtofiles & "\keyword_indexterms.xls" > >>>>>> xl.quit > >>>>>> > >>>>>> -- > >>>>>> Microsoft MVP - ASP/ASP.NET - 2004-2007 > >>>>>> Please reply to the newsgroup. This email account is my spam trap > >>>>>> so > >>>>>> I > >>>>>> don't check it very often. If you must reply off-line, then > >>>>>> remove > >>>>>> the "NO SPAM" > >>>>>> > >>>>>> > >>>>>> . > >>>> > >>>> -- > >>>> Microsoft MVP - ASP/ASP.NET - 2004-2007 > >>>> Please reply to the newsgroup. This email account is my spam trap > >>>> so > >>>> I > >>>> don't check it very often. If you must reply off-line, then remove > >>>> the "NO SPAM" > >>>> > >>>> > >>>> . > >> > >> -- > >> Microsoft MVP - ASP/ASP.NET - 2004-2007 > >> Please reply to the newsgroup. This email account is my spam trap so > >> I > >> don't check it very often. If you must reply off-line, then remove > >> the "NO SPAM" > >> > >> > >> . > > -- > Microsoft MVP - ASP/ASP.NET - 2004-2007 > Please reply to the newsgroup. This email account is my spam trap so I > don't check it very often. If you must reply off-line, then remove the > "NO SPAM" > > > > . >
From: Bob Barrows on 1 Apr 2010 16:18 Huber57 wrote: > Bob, > > I appreciate your patience with me. Here is the code: > > dim fso,fldr,fil,xmldoc,nodes, kwnode,itnode, xl,wb,ws,kwrow,itrow > dim pathtofiles > 'replace with your path > pathtofiles="C:\test" > set fso=createobject("scripting.filesystemobject") > set fldr=fso.getfolder(pathtofiles & "\dita") > set xmldoc=createobject("msxml2.domdocument") > set xl=createobject("excel.application") > xl.workbooks.add > set wb=xl.workbooks(1) > set ws=wb.sheets(1) > ws.name="dita_values" > kwrow=1 > itrow=1 ws.cells(kwrow,1).FormulaR1C1="Keywords" <=== Two lines got combined into one somehow. These should read: itrow=1 ws.cells(kwrow,1).FormulaR1C1="Keywords" Check the rest of the code carefully for similar problems. I just did a quick scan of the rest of what you posted and found nothing that stands out, but I'm only human. :-) -- Microsoft MVP - ASP/ASP.NET - 2004-2007 Please reply to the newsgroup. This email account is my spam trap so I don't check it very often. If you must reply off-line, then remove the "NO SPAM"
From: Huber57 on 2 Apr 2010 09:44 Bob, Here is the error I get now. Script: C:\Documents and Settigns\U39012\Desktop\filepath.vbs Line: 6 Char: 1 Error: Path not found Code: 800A004C Source: Microsof VBScript runtime error I looked online and some of the discussion forums attribute this to permissions. But, I am the admin of my computer and it is on my desktop. dim fso,fldr,fil,xmldoc,nodes,kwnode,itnode,xl,wb,ws,kwrow,itrow dim pathtofiles 'replace with your path pathtofiles="C:\Documents and Settings\U39012\Desktop\test" set fso=createobject("scripting.filesystemobject") set fldr=fso.getfolder(pathtofiles & "\dita") set xmldoc=createobject("msxml2.domdocument") set xl=createobject("excel.application") xl.workbooks.add set wb=xl.workbooks(1) set ws=wb.sheets(1) ws.name="dita_values" kwrow=1 itrow=1 ws.cells(kwrow,1).FormulaR1C1="Keywords" ws.cells(itrow,2).FormulaR1C1="Index Terms" ws.range("A1:B1").font.bold=true 'wscript.quit kwrow=2 itrow=2 for each fil in fldr.files xmldoc.load fil.path set nodes = nothing set nodes = xmldoc.selectnodes("//keyword") if not nodes is nothing then for each kwnode in nodes ws.cells(kwrow,1).FormulaR1C1=kwnode.text kwrow=kwrow+1 next else msgbox "no nodes were found" end if set nodes = nothing set nodes = xmldoc.selectnodes("//indexterm") if not nodes is nothing then for each itnode in nodes ws.cells(itrow,2).FormulaR1C1=itnode.text itrow=itrow+1 next end if next wb.saveas pathtofiles & "\keyword_indexterms.xls" xl.quit "Bob Barrows" wrote: > Huber57 wrote: > > Bob, > > > > I appreciate your patience with me. Here is the code: > > > > dim fso,fldr,fil,xmldoc,nodes, kwnode,itnode, xl,wb,ws,kwrow,itrow > > dim pathtofiles > > 'replace with your path > > pathtofiles="C:\test" > > set fso=createobject("scripting.filesystemobject") > > set fldr=fso.getfolder(pathtofiles & "\dita") > > set xmldoc=createobject("msxml2.domdocument") > > set xl=createobject("excel.application") > > xl.workbooks.add > > set wb=xl.workbooks(1) > > set ws=wb.sheets(1) > > ws.name="dita_values" > > kwrow=1 > > itrow=1 ws.cells(kwrow,1).FormulaR1C1="Keywords" <=== > > Two lines got combined into one somehow. These should read: > > itrow=1 > ws.cells(kwrow,1).FormulaR1C1="Keywords" > > Check the rest of the code carefully for similar problems. I just did a > quick scan of the rest of what you posted and found nothing that stands out, > but I'm only human. :-) > > -- > Microsoft MVP - ASP/ASP.NET - 2004-2007 > Please reply to the newsgroup. This email account is my spam trap so I > don't check it very often. If you must reply off-line, then remove the > "NO SPAM" > > > . >
From: ekkehard.horner on 2 Apr 2010 10:51
Huber57 schrieb: > Bob, > Here is the error I get now. > > Script: C:\Documents and Settigns\U39012\Desktop\filepath.vbs > Line: 6 > Char: 1 > Error: Path not found > Code: 800A004C > Source: Microsof VBScript runtime error [...] Bob's plan to have a > pathtofiles="C:\Documents and Settings\U39012\Desktop\test" with a subfolder "dita" > set fldr=fso.getfolder(pathtofiles & "\dita") for the .dita files and put the result in pathtofiles > wb.saveas pathtofiles & "\keyword_indexterms.xls" may cause problems for you, if your .dita files are stored in C:\Documents and Settings\U39012\Desktop\test immediately. If that's the case, create a new folder C:\Documents and Settings\U39012\Desktop\test\dita and move the files to that folder |