{"id":104,"date":"2009-02-17T12:56:00","date_gmt":"2009-02-17T12:56:00","guid":{"rendered":"http:\/\/www.roysac.com\/blog\/wp-admin\/2009\/02\/convert-word-2007-documents-and-upload-to-google-docs\/"},"modified":"2009-02-17T12:56:00","modified_gmt":"2009-02-17T12:56:00","slug":"convert-word-2007-documents-and-upload-to-google-docs","status":"publish","type":"post","link":"http:\/\/www.roysac.com\/blog\/2009\/02\/convert-word-2007-documents-and-upload-to-google-docs\/","title":{"rendered":"Convert Word 2007 Documents and Upload to Google Docs"},"content":{"rendered":"<\/p>\n

It started with a script by Michael Suodenjoki called “docx2pdf.vbs” that lets you convert individual Word 2007 documents to PDF. It is possible to use it to process a batch of files, such as all documents in a specific directory, by using (programming) another sophisticated MS DOS batch<\/a> script, but that is a pain in the neck itself. I ran into issues, because I had spaces in the file names of the documents that I wanted to convert and I thought to myself that it is probably easier and safer to change the VBScript itself instead of writing another script in a different language. <\/p>\n

By the way, for the conversion to PDF format with Microsoft Word 2007 is it necessary that you installed next to Microsoft Office 2007 of course, also the “Microsoft Save as PDF<\/a>” Add-In for 2007 Office, which is available for free download at the Microsoft.com web site here<\/a>.<\/p>\n

Extending the Docx2Pdf Conversion Script<\/h3>\n

So I changed the script to allow the processing of a whole folder instead of just one file. While I was doing that, I realized that I need?? a filter to make sure that I only process?? documents that Word 2007 can load. While I was thinking about a solution about that, I realized that a)?? Word 2007 supports more than just Word 2007 .DOCX documents and b) that the Google Docs API only supports Word 97 .DOC documents and not PDF, like the manual uploader in their web interface. Converting my Word 2007 documents to be able to get them up on Google Docs<\/a> was actually the cause to get me started with all this.<\/p>\n

Google Docs Limitations<\/h3>\n

The Google Docs web uploader<\/a> supports Adobe PDF and Word 97 DOC format for documents, but you have to upload documents one by one manually. That sucks big time and I hope that Google will do something about that soon, but in the mean time there is not much we can do about it. In order to get several documents up on Google Docs quickly, you have to use their API or the create document via Email or Email with Word 97 document attachment features. Adobe PDF is supposed to work with their GData API<\/a> for Google Docs, but I never got those Python scripts<\/a> to work. I was able to connect to Google, but not to transfer<\/a>… anyway.<\/p>\n

Word 2007 supports the output of documents in numerous formats, including Word 97, HTML, RTS, TXT and PDF, if you installed the free Microsoft PDF Add-on. So I added the option to specify the output format. <\/p>\n

Then I was thinking of automation of uploads to Google Docs and realized that I needed an additional filter to avoid that I will ending up sending the same documents to Google over and over again. Thus I added some date filter options based on the creation date and date when the document was last modified.<\/p>\n

Last but not least I had to add the option to send the converted documents (that were converted to .DOC format) to Google Docs. The upload via email was the way to go and my script was complete. Here is what came out of all of this.<\/p>\n

Save Word 2007 Documents in a different Format and more <\/h3>\n
Usage: cscript \/nologo doc2pdf.vbs [] [\/dir:] 
[\/date:created\/modified] [\/datefrom:mm-dd-yyyyy] [\/dateto:mm-dd-yyyy] [\/days:nn]
[\/f:] [\/o:] [\/googledocs:] <\/pre>\n
<\/p>\n
Basic Options:<\/h4>\n
<\/p>\n
\/help<\/strong>???? 
Specifies that this usage\/help information should be displayed. <\/p>\n
<\/p>\n
\/verbose<\/strong> 
Specifies that detailed information about the processing should be displayed. <\/p>\n
<\/p>\n
Parameters (optional):<\/h4>\n
\/dir:<\/strong> 
Directory Batch Processing. Use  argument as filter option (e.g. *.DOCX or *.* for all) <\/p>\n
Date Filter Options <\/u><\/h5>\n
<\/p>\n
\/date:created\/modified<\/strong> 
Date filter option (only for batch processing). Specify if the date parameters should apply to either the 
creation date of the file or the date when it was last modified. <\/p>\n
<\/p>\n
\/datefrom:mm-dd-yyy 
\/datetto:mm-dd-yyy<\/strong> 
From and To Date options for that work together with the \/date option. If \/dateto is not provided, then the script will automatically assume today. Alternative to a specific date range is it possible to provide the following parameter <\/p>\n
<\/p>\n
\/days:nn<\/strong> 
“nn” stands for a numeric value from 0 to whatever and are the number of days from today, to determine the from date. The value 1 for example would mean yesterday, or files that were created\/changed since yesterday until today. 7 would be a week and so on. <\/p>\n
<\/p>\n
Output Options Parameters<\/u><\/strong> <\/p>\n
<\/p>\n
\/f:<\/strong> 
Specifies the output format values: DOCX, DOCM, DOTX, DOTM, XML, PDF (default), XPS, TXT, DOS, ASC, HTML, HTM, RTS, DOC, WEB <\/p>\n
<\/p>\n
\/o: 
<\/strong>Optionally specification of output file, which only works for single file conversions and not batch processing. <\/p>\n
<\/p>\n
Send to Google Docs via Email Option <\/u><\/strong><\/p>\n
<\/p>\n
\/googledocs:<\/strong> <\/p>\n
<\/p>\n
Your personal email to upload documents, which looks like: longstring@prod.writely.com 
You can find that email, if you login to your Google Docs account and go to the “Upload” screen. <\/p>\n
<\/p>\n
Note: Google Docs only supports the import of documents in DOC file format (Office 97). 
PDF files are not supported. The file size is also limited to 500KB per document. <\/p>\n
<\/p>\n
Examples:<\/h4>\n
<\/p>\n
1.<\/strong> Convert all Word 2007 documents (.docx) that were modified on or since December 31, 2008 and are located in C:\\DOCS to PDF and show detailed information about the processing. <\/p>\n
cscript \/nologo docx2pdf2.vbs *.docx \/f:PDF \/dir:C:\\DOCS \/date:modified \/datefrom:12-31-2008 \/verbose<\/pre>\n
<\/p>\n
2.<\/strong> Convert all Word 2007 documents (.docx) that where created in the last 7 days and are located in 
C:\\MY DOCUMENTS to Word 97 (.DOC) and send them to Google Docs. <\/p>\n
cscript \/nologo docx2pdf2.vbs *.docx \/f:DOC \/dir:\"C:\\MY DOCUMENTS\"<\/span> \/date:created \/days:7 
 \/googledocs:mysecretemail@prod.writely.com <\/pre>\n
<\/p>\n
3.<\/strong> Convert a single Word 2007 Document C:\\DOCS\\mydocument.docx to PDF and save it as 
C:\\MY DOCUMENTS\\mynewdocument.pdf <\/p>\n
cscript \/nologo docx2pdf2.vbs \"C:\\DOCS\\mydocument.docx\"<\/span> \/o:\"C:\\MY DOCUMENTS\\mynewdocument.pdf\"<\/span> <\/pre>\n
<\/p>\n
4.<\/strong> Convert C:\\DOCS\\mydocument.docx to HTML and save it in the same folder <\/p>\n
cscript \/nologo docx2pdf2.vbs \"C:\\DOCS\\mydocument.docx\"<\/span> \/f:HTML <\/pre>\n
<\/p>\n
<\/p>\n
Notes and Considerations<\/h3>\n
<\/p>\n
The script must be called with CSCRIPT.EXE<\/em><\/strong> instead of WSCRIPT.EXE<\/strong><\/em>, because it makes use of the STDOUT option of VBSCRIPT<\/em><\/strong>. WSCRIPT.EXE<\/em><\/strong> is used by default, if you start a .VBS Visual Script document (e.g. double click or call from a .BAT file).?? Its not the end of the world, if you dont, because the script will re-launch itself?? 
using CSCRIPT<\/em><\/strong>, if you execute it with WSCRIPT<\/em><\/strong> anyway. However that might cause other?? issues, depending how you are using this script.?? For example the redirection of the output into a text file wont work, because?? 
the script opens a new DOS session. I used the proper call of the script in my examples above. The “\/nologo<\/em><\/strong>” parameter is not required by the way. I only use it to suppress the Microsoft messages and screens.<\/p>\n
<\/p>\n
There are different ways to send out emails via a script that runs on a users computer, each with their own problems and advantages. I implemented two options into my script. By default is Microsofts CDO used to send out the emails to Google Docs, but I also added the option to use Outlook MAPI instead.<\/p>\n
<\/p>\n
Using MAPI instead of CDO<\/h3>\n
<\/p>\n
Pretty near the beginning of the script is a line that reads:<\/p>\n
Const EmailSendMethod = 2 1 = MAPI (Outlook), 2 = CDO<\/pre>\n
<\/p>\n
To use MAPI instead of CDO, simply change this line to <\/span><\/p>\n
Const EmailSendMethod = 1 1 = MAPI (Outlook), 2 = CDO<\/pre>\n
<\/p>\n
I wanted to go with MAPI first, but the biggest problems that I had were those stupid security messages that popped up every time that I wanted to send one email to Google. Since I do not want to sit in front of the computer to acknowledge dozens or more emails\/documents to be sent, I changed the script to use CDO instead.<\/p>\n
<\/p>\n
\"DOCX2PDF-MAPI-Security1\"<\/a>Here is what I got when I used MAPI. First was this message, which made perfect sense to me, although I missed the option to say “always allow access for this application” that it does not come up in the future anymore. <\/p>\n
<\/p>\n
I know that from Skype and it works perfect there, but nothing like it in Microsoft Outlook.<\/p>\n
<\/p>\n
?? <\/p>\n
<\/p>\n
Anyhow, I set the option to “Allow access for 10 minutes”, which should have been enough to process a bunch of documents and send them out to Google, but it wasnt to be like that. Instead I got a pop-up every time I created a new Email object. The Message window has the “Allow” button disabled for several seconds, before you can approve the email to be created and nothing is done until you pressed “Allow”, over and over again.<\/p>\n
<\/p>\n
\"DOCX2PDF-MAPI-Security2\"<\/a><\/h3>\n
<\/p>\n
If you know how I can tell Outlook 2007 to trust my script that resides locally on the users machine and thus be able to use MAPI to generate email messages automatically, please let me know. I know that you can get something like a “Trusted Publisher Certificate”, but hey, I am not a software company who is selling a commercial plug-in to people, not even a compiled program at all. Its plain and pure code that is executed and processed by Windows on the fly, without the need to compile it first.<\/p>\n
<\/p>\n
CDO Requirements and Troubleshooting<\/h3>\n
<\/p>\n
CDO uses the build-in SMTP server feature that comes with Windows XP (except XP Home). It is not installed by default<\/a>. You can install SMTP by going to “Start\\Control Panel\\Add or Remove Programs<\/strong><\/em>“. There select on the left the Tab “Add\/Remove Windows Components<\/strong><\/em>“. Scroll down to “Internet Information Services (IIS)<\/strong><\/em>“, highlight it and press the “Details<\/strong><\/em>” button. There you have to enable “SMTP Service<\/strong><\/em>“, which will automatically also enable “Common Files<\/strong><\/em>” and “World Wide Web Service<\/strong><\/em>“, if it was not installed already on your computer either. Press “Okay<\/strong><\/em>” to close the “Details<\/strong><\/em>” screen and then “Next<\/strong><\/em>“. Follow the steps on the screen. You might require your original Windows Installation Disk, so have it handy before you get started with this.<\/p>\n
<\/p>\n
The script will error out, if you do not have SMTP installed on your machine yet!<\/p>\n
<\/p>\n
The nice thing about it is that you dont even require to have an email client installed and running (or ready to run) in order to send out an email from your machine. That is a draw-back as well, because you will dont have a reference or copy of the emails that you sent out. They wont appear in?? the “Sent<\/em><\/strong>” folder of MS Outlook, Outlook Express, Live Mail or whatever email client you might be using.<\/p>\n
<\/p>\n
\"DOCX2PDF-CDO-PickupFolder\"<\/a><\/p>\n
<\/p>\n
If you had SMTP installed on your computer already, but not running (like I did), then the script will run without any errors. It will also say that it sent out the emails to Google, but that is not entirely correct. It created it, yes, but sending them is an entirely different story. If the SMTP service is stopped, no email is being sent. Windows dumps the prepared emails into the “Pickup<\/em><\/strong>” folder of “IIS<\/strong><\/em>“, which is located by default at “C:\\Inetpub\\mailroot\\Pickup<\/strong><\/em>“, unless you configured it to be somewhere else.<\/p>\n
<\/p>\n
Make sure that the SMTP Service is running. To check that and to start the service manually, go to your computers “Administrative Tools<\/em><\/strong>” and start “Services<\/em><\/strong>” (Administrative Tools are located in the “Control Panel<\/em><\/strong>“, like the “Add or Remove Programs<\/em><\/strong>” tool). Look for the service with the name “Simple Mail Transfer Protocol (SMTP)”<\/em><\/strong>. See the image below for illustration.<\/p>\n
<\/p>\n
\"DOCX2PDF-CDO-SMTP-Service\"<\/a> <\/p>\n
<\/p>\n
Double-Click on it and press “Start<\/em><\/strong>“, if the status of the service is anything else than “Started<\/em><\/strong>“. If it fails to start, then it could be that services where it depends on are not started as well. You can find out by selecting the “Dependencies<\/em><\/strong>” tab. Make sure that the services listed there are running as well. <\/p>\n
<\/p>\n
\"DOCX2PDF-CDO-SMTP-Dependency\"<\/a> <\/p>\n
<\/p>\n
See on the left. It shows that the “Event Log<\/em><\/strong>” and “IIS Admin<\/em><\/strong>” services need to run that the SMTP service can be started as well.<\/p>\n
<\/p>\n
Once the SMTP service is running, you are ready to rock and roll. If you ran the script and then found out that the service was not running, emails stuck in the “Pickup<\/em><\/strong>” folder will not be processed automatically once SMTP is running. Another email must be triggered that SMTP will pick them up and add them to its processing “Queue<\/em><\/strong>” folder for sending and then finally send it out to Google.<\/p>\n
<\/p>\n
??<\/p>\n
<\/p>\n
\"DOCX2PDF-CDO-Queue\"<\/a><\/p>\n
<\/p>\n
SMTP Service Security (for CDO)\"DOCX2PDF-CDO-IIS-SMTP1\"<\/a><\/h3>\n
<\/p>\n
Having the SMTP Service running will upset some anti-virus or anti-spyware programs, because it can become an issue, if it is not secured, detected by hackers and then abused to relay spam message via your computer to other people on the Internet. <\/p>\n
<\/p>\n
You dont to invite trouble, so go and change the security settings that nobody else can use your mail service, except you. <\/p>\n
<\/p>\n
\"DOCX2PDF-CDO-IIS-SMTP2\"<\/a>Open the IIS manager, which is located under “Administrative Tools<\/em><\/strong>” (like the “Services<\/em><\/strong>” tool). There you will find the item “Default SMTP Virtual Service<\/em><\/strong>” entry on the left. <\/p>\n
<\/p>\n
Highlight it, right-click with your mouse and select “Properties<\/em><\/strong>“. Then select the “Access<\/em><\/strong>” tab and click on the “Authentication<\/em><\/strong>” button. <\/p>\n
<\/p>\n
It is probably set to “Anonymous Access<\/em><\/strong>“. Change that to “Integrated Windows Authentication<\/em><\/strong>“. <\/p>\n
<\/p>\n
Users that need permissions to use the service can be added via the “Security<\/em><\/strong>” tab as needed.<\/p>\n
<\/p>\n
This will take of things and keep your SMTP service on your machine secure.<\/p>\n
<\/p>\n
Email Delivery Issues with Google Docs<\/h3>\n
<\/p>\n
I use the secret email address for your Google Docs account not only as the TO address of the email, but also as the sender address as well. This has a nice little side effect to it. <\/p>\n
<\/p>\n
Sometimes there are issues with Google Docs and it is unable to process a document that it received via attachment of an email for whatever reason. <\/p>\n
<\/p>\n
If the email delivery fails, a system notification is being sent by the receiving mail server to the sender of the email, your Google Docs upload email address. Since the email upload feature also supports sending a whole text email to be converted to a document, this is what Google Docs is doing with the Error emails that it receives about the original uploads that failed.\"DOCX2PDF-CDO-GoogleDocs1\"<\/a><\/p>\n
<\/p>\n
If you open up such Error Email document, you will be able to find out, which document (file name) that was sent by the script was not uploaded and processed properly. Just send it again with another batch or upload it manually via the web interface, whatever is easier for you.<\/p>\n
<\/p>\n
??\"DOCX2PDF-CDO-GoogleDocs2\"<\/a> <\/p>\n
<\/p>\n
The Script and the Source Code Download<\/h3>\n
<\/p>\n
Here is the source code that you can see how the various features were implemented (and to use it for your own tools and scripts hehe). Dont type it off the screen or copy and paste it into a document, if you want to use my script as it is. You can download the full source of it here<\/a> as a text file. It is called docx2pdf2.vbs.txt<\/strong><\/a>.<\/strong> Rename it to remove the .TXT and you are ready to rock and roll.<\/p>\n
<\/p>\n
Thats it! Have Fun!<\/p>\n
<\/p>\n
Carsten aka Roy\/SAC<\/p>\n
<\/p>\n
\n
   1:  <\/span><\/span><\/pre>\n
   2:  <\/span> DOC2PDF2.VBS Microsoft Scripting Host Script (Requires Version 5.6 or newer)<\/span><\/pre>\n
   3:  <\/span> --------------------------------------------------------------------------------<\/span><\/pre>\n
   4:  <\/span> Author: Carsten Cumbrowski <\/span><\/pre>\n
   5:  <\/span> Created: December 2008 and February 2009<\/span><\/pre>\n
   6:  <\/span> <\/span><\/pre>\n
   7:  <\/span> Based on a script by  Michael Suodenjoki<\/span><\/pre>\n
   8:  <\/span> This script can create a PDF file from a Word document provided youre using<\/span><\/pre>\n
   9:  <\/span> Word 2007 and have the Office Add-in: Save As PDF installed.<\/span><\/pre>\n
  10:  <\/span> It can also save the documents in other formats that are supported by MS Word 2007<\/span><\/pre>\n
  11:  <\/span> The script allows batch processing of multiple files (e.g. a directory) and also the <\/span><\/pre>\n
  12:  <\/span> sending via email to Google Docs (output format DOC, Office 97 required) <\/span><\/pre>\n
  13:  <\/span><\/span><\/pre>\n
  14:  <\/span> Script must be called with CSCRIPT instead of WSCRIPT<\/span><\/pre>\n
  15:  <\/span> Its not the end of the world, if you dont, because the script will relaunch itself <\/span><\/pre>\n
  16:  <\/span> using CSCRIPT, if you execute it with WSCRIPT anyway. However that might cause other<\/span><\/pre>\n
  17:  <\/span> issues, depending how you are using this script<\/span><\/pre>\n
  18:  <\/span> For example the redirection of the output into a text file wont work, because <\/span><\/pre>\n
  19:  <\/span> the script opens a new DOS session<\/span><\/pre>\n
  20:  <\/span>??<\/pre>\n
  21:  <\/span>ForceCscript true<\/span><\/pre>\n
  22:  <\/span> Constants<\/span><\/pre>\n
  23:  <\/span>??<\/pre>\n
  24:  <\/span>Const<\/span> iGoogleDocsSizeLimit = 5120000<\/pre>\n
  25:  <\/span>Const iGoogleDocsReqFormat = 0<\/span><\/pre>\n
  26:  <\/span>??<\/pre>\n
  27:  <\/span>Const<\/span> WdDoNotSaveChanges = 0<\/pre>\n
  28:  <\/span>Const<\/span> EmailSendMethod = 2   1 = MAPI (Outlook), 2 = CDO<\/span><\/pre>\n
  29:  <\/span>??<\/pre>\n
  30:  <\/span> see WdSaveFormat enumeration constants: <\/span><\/pre>\n
  31:  <\/span> http:\/\/msdn2.microsoft.com\/en-us\/library\/bb238158.aspx<\/span><\/pre>\n
  32:  <\/span>Const<\/span> wdFormatPDF = 17   PDF format. <\/span><\/pre>\n
  33:  <\/span>Const<\/span> wdFormatXPS = 18   XPS format. <\/span><\/pre>\n
  34:  <\/span>Const<\/span> wdFormatDocument97=0  Word97 Format<\/span><\/pre>\n
  35:  <\/span>Const<\/span> wdFormatDocumentDefault = 16 Word Default (.DOCX in Word2007)<\/span><\/pre>\n
  36:  <\/span>??<\/pre>\n
  37:  <\/span>Const<\/span> wdFormatWebArchive = 9 Web Archive<\/span><\/pre>\n
  38:  <\/span>??<\/pre>\n
  39:  <\/span>Const<\/span> wdFormatTemplate = 1 Word 97 Template<\/span><\/pre>\n
  40:  <\/span>??<\/pre>\n
  41:  <\/span>Const<\/span> wdFormatRTF = 6 RTF<\/span><\/pre>\n
  42:  <\/span>??<\/pre>\n
  43:  <\/span>Const<\/span> wdFormatHTML = 8 Std HTML<\/span><\/pre>\n
  44:  <\/span>Const<\/span> wdFormatFilteredHTML = 10 Filtered HTML<\/span><\/pre>\n
  45:  <\/span>??<\/pre>\n
  46:  <\/span>Const<\/span> wdFormatText = 2 Windows Text<\/span><\/pre>\n
  47:  <\/span>Const<\/span> wdFormatTextLineBreaks = 3 Windows Text with line-breaks preserved<\/span><\/pre>\n
  48:  <\/span>Const<\/span> wdFormatEncodedText = 7 Encoded Text (Unicode)<\/span><\/pre>\n
  49:  <\/span>Const<\/span> wdFormatUnicodeText = 7<\/pre>\n
  50:  <\/span>Const<\/span> wdFormatDOSTextLineBreaks = 5 DOS Text w Line-Breaks<\/span><\/pre>\n
  51:  <\/span>Const<\/span> wdFormatDOSText = 4 DOS<\/span><\/pre>\n
  52:  <\/span>??<\/pre>\n
  53:  <\/span>??<\/pre>\n
  54:  <\/span>Const<\/span> wdFormatXML = 11 XML<\/span><\/pre>\n
  55:  <\/span>Const<\/span> wdFormatXMLDocument = 12 XML DOc   .docx<\/span><\/pre>\n
  56:  <\/span>Const<\/span> wdFormatXMLDocumentMacroEnabled = 13 XML Macros Enabled  .docm<\/span><\/pre>\n
  57:  <\/span>Const<\/span> wdFormatXMLTemplate = 14 XML Template .dotx<\/span><\/pre>\n
  58:  <\/span>Const<\/span> wdFormatXMLTemplateMacroEnabled = 15 XML Template Macros Enabled  .dotm<\/span><\/pre>\n
  59:  <\/span>??<\/pre>\n
  60:  <\/span>Const<\/span> TEXTMSG = 0<\/pre>\n
  61:  <\/span>Const<\/span> HTMLMSG = 1<\/pre>\n
  62:  <\/span>??<\/pre>\n
  63:  <\/span> Global variables<\/span><\/pre>\n
  64:  <\/span>Dim<\/span> arguments, bShowDebug, sOutFormat, iwdFormat, sOutExt, sFolder<\/pre>\n
  65:  <\/span>Dim<\/span> owdo  As Word.Application<\/span><\/pre>\n
  66:  <\/span>Dim<\/span> owdocs  As Word.Documents<\/span><\/pre>\n
  67:  <\/span>Dim<\/span> ofso, bDateFilter, sDateFilterType, sDateFrom, sDateTo, iDays<\/pre>\n
  68:  <\/span>Dim<\/span> bVerbose,output, sGoogleEmail<\/pre>\n
  69:  <\/span>Dim<\/span> ol, ns<\/pre>\n
  70:  <\/span>??<\/pre>\n
  71:  <\/span>Set<\/span> arguments = WScript.Arguments<\/pre>\n
  72:  <\/span>sOutFormat = \"PDF\"<\/span><\/pre>\n
  73:  <\/span>bDateFilter = false<\/span><\/pre>\n
  74:  <\/span>??<\/pre>\n
  75:  <\/span>sDateFilterType = \"\"<\/span><\/pre>\n
  76:  <\/span>sDateFrom = \"\"<\/span><\/pre>\n
  77:  <\/span>sDateTo = \"\"<\/span><\/pre>\n
  78:  <\/span>sGoogleEmail = \"\"<\/span><\/pre>\n
  79:  <\/span>??<\/pre>\n
  80:  <\/span>??<\/pre>\n
  81:  <\/span>--------------------------------------------------------------------------------------------<\/span><\/pre>\n
  82:  <\/span>Function<\/span> DetermineOutFormat(sOut)<\/pre>\n
  83:  <\/span>   Dim<\/span> iOut<\/pre>\n
  84:  <\/span>   Select<\/span> Case<\/span> ucase(sOUt)<\/pre>\n
  85:  <\/span>    Case<\/span> \"\"<\/span><\/pre>\n
  86:  <\/span>        iOut = wdFormatPDF <\/pre>\n
  87:  <\/span>        sOutExt = \"pdf\"<\/span><\/pre>\n
  88:  <\/span>  Case<\/span> \"PDF\"<\/span><\/pre>\n
  89:  <\/span>        iOut = wdFormatPDF <\/pre>\n
  90:  <\/span>  Case<\/span> \"XPS\"<\/span><\/pre>\n
  91:  <\/span>        iOut = wdFormatXPS <\/pre>\n
  92:  <\/span>  Case<\/span> \"DOC\"<\/span><\/pre>\n
  93:  <\/span>        iOut = wdFormatDocument97<\/pre>\n
  94:  <\/span>    Case<\/span> \"DOT\"<\/span><\/pre>\n
  95:  <\/span>        iOUt = wdFormatTemplate <\/pre>\n
  96:  <\/span>  Case<\/span> \"HTML\"<\/span><\/pre>\n
  97:  <\/span>        iOut = wdFormatHTML <\/pre>\n
  98:  <\/span>  Case<\/span> \"HTM\"<\/span><\/pre>\n
  99:  <\/span>        iOut = wdFormatFilteredHTML <\/pre>\n
 100:  <\/span>  Case<\/span> \"DOCX\"<\/span><\/pre>\n
 101:  <\/span>        iOut = wdFormatXMLDocument <\/pre>\n
 102:  <\/span>  Case<\/span> \"DOCM\"<\/span><\/pre>\n
 103:  <\/span>        iOut = wdFormatXMLDocumentMacroEnabled <\/pre>\n
 104:  <\/span>  Case<\/span> \"DOTX\"<\/span><\/pre>\n
 105:  <\/span>        iOut = wdFormatXMLTemplate <\/pre>\n
 106:  <\/span>  Case<\/span> \"DOTM\"<\/span><\/pre>\n
 107:  <\/span>        iOUt = wdFormatXMLTemplateMacroEnabled <\/pre>\n
 108:  <\/span>  Case<\/span> \"TXT\"<\/span><\/pre>\n
 109:  <\/span>        iOut = wdFormatTextLineBreaks <\/pre>\n
 110:  <\/span>  Case<\/span> \"XML\"<\/span><\/pre>\n
 111:  <\/span>    iOUt = wdFormatXML <\/pre>\n
 112:  <\/span>  Case<\/span> \"ASC\"<\/span><\/pre>\n
 113:  <\/span>        iOUt = wdFormatDOSTextLineBreaks <\/pre>\n
 114:  <\/span>  Case<\/span> \"DOS\"<\/span><\/pre>\n
 115:  <\/span>        iOUt = wdFormatDOSText <\/pre>\n
 116:  <\/span>        sOutExt = \"txt\"<\/span><\/pre>\n
 117:  <\/span>    Case<\/span> \"RTF\"<\/span><\/pre>\n
 118:  <\/span>        iOut =     wdFormatRTF     <\/pre>\n
 119:  <\/span>    Case<\/span> \"WEB\"<\/span><\/pre>\n
 120:  <\/span>        iOUt = wdFormatWebArchive <\/pre>\n
 121:  <\/span>    Case<\/span> else<\/span><\/pre>\n
 122:  <\/span>       iOut = -1<\/pre>\n
 123:  <\/span>  End<\/span> Select<\/span><\/pre>\n
 124:  <\/span>  DetermineOutFormat = iOut<\/pre>\n
 125:  <\/span>??<\/pre>\n
 126:  <\/span>End<\/span> Function<\/span><\/pre>\n
 127:  <\/span>??<\/pre>\n
 128:  <\/span>??<\/pre>\n
 129:  <\/span>---------------------------------------------------------------------------------------------<\/span><\/pre>\n
 130:  <\/span> ECHOUSAGE<\/span><\/pre>\n
 131:  <\/span> Outputs the usage information.<\/span><\/pre>\n
 132:  <\/span><\/span><\/pre>\n
 133:  <\/span>Function<\/span> EchoUsage()<\/pre>\n
 134:  <\/span>  If<\/span> arguments.Count=0 Or<\/span> arguments.Named.Exists(\"help\"<\/span>) Or<\/span> _
            arguments.Named.Exists(\"h\"<\/span>) or<\/span> iwdFormat=-1 Then<\/span><\/pre>\n
 135:  <\/span>   output.WriteLine \"Save Word 2007 Compatible Document(s) in a different Format and more\"<\/span><\/pre>\n
 136:  <\/span>   output.WriteLine \"\"<\/span><\/pre>\n
 137:  <\/span>   output.WriteLine \"Usage: cscript \/nologo doc2pdf.vbs [] [\/dir:] \" & _ 
                           \"[\/date:created\/modified] [\/datefrom:mm-dd-yyyyy] \" & _
                           \"[\/dateto:mm-dd-yyyy] [\/days:nn] [\/f:] \" & _
                           \"[\/o:] [\/googledocs:]\"<\/span><\/pre>\n
 138:  <\/span>   output.WriteLine  \"\"<\/span><\/pre>\n
 139:  <\/span>   output.WriteLine  \"Available Options:\"<\/span><\/pre>\n
 140:  <\/span>   output.WriteLine  \"==================\"<\/span><\/pre>\n
 141:  <\/span>   output.WriteLine  \"\/help - Specifies that this usage\/help information should be displayed.\"<\/span><\/pre>\n
 142:  <\/span>   output.WriteLine  \"\/verbose - Specifies that detailed information about the \" & _
                            \"processing should be displayed.\"<\/span><\/pre>\n
 143:  <\/span>   output.WriteLine  \"\"<\/span><\/pre>\n
 144:  <\/span>   output.WriteLine  \"Parameters (optional):\"<\/span><\/pre>\n
 145:  <\/span>   output.WriteLine  \"======================\"<\/span><\/pre>\n
 146:  <\/span>   output.WriteLine  \"\/dir:\"<\/span><\/pre>\n
 147:  <\/span>   output.WriteLine  \"    Directory Batch Processing. Use  argument as \" & _
                                \"filter option (e.g. *.DOCX or *.* for all)\"<\/span><\/pre>\n
 148:  <\/span>   output.WriteLine  \"\"<\/span><\/pre>\n
 149:  <\/span>   output.WriteLine  \"Date Filter Options\"<\/span><\/pre>\n
 150:  <\/span>   output.WriteLine  \"--------------------\"<\/span><\/pre>\n
 151:  <\/span>   output.WriteLine \"\/date:created\/modified - Date filter option\"<\/span><\/pre>\n
 152:  <\/span>   output.WriteLine \"\/datefrom:mm-dd-yyy - From Date for date-created or date-modfied filter\"<\/span><\/pre>\n
 153:  <\/span>   output.WriteLine \"\/datetto:mm-dd-yyy - To Date for date-created or date-modfied filter\"<\/span><\/pre>\n
 154:  <\/span>   output.WriteLine \" ...or ..\"<\/span><\/pre>\n
 155:  <\/span>   output.WriteLine \"\/days:nn - created\/changed within the last nn days. \"<\/span><\/pre>\n
 156:  <\/span>   output.WriteLine \"\"<\/span><\/pre>\n
 157:  <\/span>   output.WriteLine \"Output Options Parameters\"<\/span><\/pre>\n
 158:  <\/span>   output.WriteLine \"-------------------------\"<\/span><\/pre>\n
 159:  <\/span>   output.WriteLine  \" \/f: Specifies the output format values:\"<\/span>     <\/pre>\n
 160:  <\/span>   output.WriteLine  \"    DOCX, DOCM, DOTX, DOTM, XML, PDF (default), XPS, TXT,\" & _
                            \" DOS, ASC, HTML, HTM, RTS, DOC, WEB\"<\/span> <\/pre>\n
 161:  <\/span>   output.WriteLine  \" \/o: Optionally specification of output file.\"<\/span><\/pre>\n
 162:  <\/span>   output.WriteLine \"\"<\/span><\/pre>\n
 163:  <\/span>   output.WriteLine \"Send to Google Docs via Email Option\"<\/span><\/pre>\n
 164:  <\/span>   output.WriteLine \"------------------------------------\"<\/span><\/pre>\n
 165:  <\/span>   output.WriteLine \"Note: Google Docs only supports the import of documents in \" & _
                             \"DOC file format (Office 97).\"<\/span><\/pre>\n
 166:  <\/span>   output.WriteLine \"PDF files are not supported. The file size is also limited to \" & _
                             \"500KB per document.\"<\/span><\/pre>\n
 167:  <\/span>   output.WriteLine \"\"<\/span><\/pre>\n
 168:  <\/span>   output.WriteLine \"\/googledocs: - your personal email to upload documents,\" & _<\/span><\/pre>\n
                             \" which looks like: longstring@prod.writely.com \"<\/span><\/pre>\n
 169:  <\/span>   output.WriteLine \"\"<\/span>      <\/pre>\n
 170:  <\/span>   output.WriteLine  \"Examples:\"<\/span><\/pre>\n
 171:  <\/span>   output.WriteLine  \"=========\"<\/span><\/pre>\n
 172:  <\/span>   output.WriteLine \"1. Convert all Word 2007 documents (.docx) that were modified \" & _
                             \"on or since December 31, 2008 and are located in C:\\DOCS \" & _
                             \"to PDF and show detailed information about the processing.\"<\/span><\/pre>\n
 173:  <\/span>   output.WriteLine \"\"<\/span><\/pre>\n
 174:  <\/span>   output.WriteLine \"cscript \/nologo docx2pdf2.vbs *.docx \/f:PDF \/dir:C:\\DOCS \" & _
                           \"\/date:modified \/datefrom:12-31-2008 \/verbose\"<\/span><\/pre>\n
 175:  <\/span>   output.WriteLine \"\"<\/span><\/pre>\n
 176:  <\/span>   output.WriteLine \"2. Convert all Word 2007 documents (.docx) that where created \" & _
                           \"in the last 7 days and are located in C:\\MY DOCUMENTS to \" & _
                           \"Word 97 (.DOC) and send them to Google Docs. \"<\/span><\/pre>\n
 177:  <\/span>   output.WriteLine \"\"<\/span><\/pre>\n
 178:  <\/span>   output.WriteLine \"cscript \/nologo docx2pdf2.vbs *.docx \/f:DOC \/dir:\"<\/span>\"C:\\MY DOCUMENTS\"<\/span>\" \" & _
                           \"\/date:created \/days:7 \/googledocs:mysecretemail@prod.writely.com\"<\/span><\/pre>\n
 179:  <\/span>   output.WriteLine \"\"<\/span><\/pre>\n
 180:  <\/span>   output.WriteLine \"3. Convert a single Word 2007 Document C:\\DOCS\\mydocument.docx \" & _
                             \"to PDF and save it as C:\\MY DOCUMENTS\\mynewdocument.pdf\"<\/span><\/pre>\n
 181:  <\/span>?? output.WriteLine \"\"<\/span><\/pre>\n
 182:  <\/span>   output.WriteLine \"cscript \/nologo docx2pdf2.vbs \"<\/span>\"C:\\DOCS\\mydocument.docx\"<\/span>\" \" & _
                             \"\/o:\"<\/span>\"C:\\MY DOCUMENTS\\mynewdocument.pdf\"<\/span>\"\"<\/span><\/pre>\n
 183:  <\/span>   output.WriteLine \"\"<\/span><\/pre>\n
 184:  <\/span>   output.WriteLine \"4. Convert C:\\DOCS\\mydocument.docx to HTML and save it in \" & _
                             \"the same folder\"<\/span><\/pre>\n
 185:  <\/span>   output.WriteLine \"\"<\/span><\/pre>\n
 186:  <\/span>   output.WriteLine \"cscript \/nologo docx2pdf2.vbs \"<\/span>\"C:\\DOCS\\mydocument.docx\"<\/span>\" \/f:HTML\"<\/span><\/pre>\n
 187:  <\/span>   output.WriteLine \"\"<\/span>                         <\/pre>\n
 188:  <\/span>  End<\/span> If<\/span> <\/pre>\n
 189:  <\/span>End<\/span> Function<\/span><\/pre>\n
 190:  <\/span>??<\/pre>\n
 191:  <\/span>-------------------------------------------------------------------------------------------<\/span><\/pre>\n
 192:  <\/span> CHECKARGS<\/span><\/pre>\n
 193:  <\/span> Makes some preliminary checks of the arguments.<\/span><\/pre>\n
 194:  <\/span> Quits the application is any problem is found.<\/span><\/pre>\n
 195:  <\/span><\/span><\/pre>\n
 196:  <\/span>Function<\/span> CheckArgs()<\/pre>\n
 197:  <\/span>   Check that  is specified<\/span><\/pre>\n
 198:  <\/span>  If<\/span> arguments.Unnamed.Count <> 1 Then<\/span><\/pre>\n
 199:  <\/span>    output.WriteLine \"Error: Obligatory  parameter missing!\"<\/span><\/pre>\n
 200:  <\/span>    WScript.Quit 1<\/pre>\n
 201:  <\/span>  End<\/span> If<\/span><\/pre>\n
 202:  <\/span>??<\/pre>\n
 203:  <\/span>if<\/span> arguments.Named.Exists(\"f\"<\/span>) then<\/span><\/pre>\n
 204:  <\/span>      sOutFormat = arguments.Named.Item(\"f\"<\/span>)<\/pre>\n
 205:  <\/span>end<\/span> if<\/span><\/pre>\n
 206:  <\/span>??<\/pre>\n
 207:  <\/span>if<\/span> arguments.Named.Exists(\"googledocs\"<\/span>) then<\/span><\/pre>\n
 208:  <\/span>  sGoogleEmail =  arguments.Named.Item(\"googledocs\"<\/span>)<\/pre>\n
 209:  <\/span>end<\/span> if<\/span>    <\/pre>\n
 210:  <\/span>if<\/span> sGoogleEmail <> \"\"<\/span> then<\/span><\/pre>\n
 211:  <\/span>   sOutFormat = \"DOC\"<\/span><\/pre>\n
 212:  <\/span>end<\/span> if<\/span><\/pre>\n
 213:  <\/span>??<\/pre>\n
 214:  <\/span>sOutExt = sOutFormat<\/pre>\n
 215:  <\/span>iwdFormat = DetermineOutFormat(sOutFormat)<\/pre>\n
 216:  <\/span>??<\/pre>\n
 217:  <\/span>if<\/span> arguments.Named.Exists(\"date\"<\/span>) then<\/span><\/pre>\n
 218:  <\/span>??<\/pre>\n
 219:  <\/span>    if<\/span> arguments.Named.Exists(\"days\"<\/span>) then<\/span><\/pre>\n
 220:  <\/span>       if<\/span> isNumeric(arguments.Named.Item(\"days\"<\/span>)) then<\/span><\/pre>\n
 221:  <\/span>          iDays = int(abs(arguments.Named.Item(\"days\"<\/span>)))<\/pre>\n
 222:  <\/span>          sDateFrom = formatdatetime(dateadd(\"d\"<\/span>,iDays*-1,now),vbshortdate)<\/pre>\n
 223:  <\/span>          sDateTo = formatdatetime(now,vbshortdate)<\/pre>\n
 224:  <\/span>       end<\/span> if<\/span><\/pre>\n
 225:  <\/span>     else<\/span><\/pre>\n
 226:  <\/span>        if<\/span> arguments.Named.Exists(\"datefrom\"<\/span>) then<\/span><\/pre>\n
 227:  <\/span>          if<\/span> isDate(arguments.Named.Item(\"datefrom\"<\/span>)) then<\/span><\/pre>\n
 228:  <\/span>            sDateFrom = formatdatetime(arguments.Named.Item(\"datefrom\"<\/span>),vbshortdate)<\/pre>\n
 229:  <\/span>          end<\/span> if<\/span><\/pre>\n
 230:  <\/span>        end<\/span> if<\/span><\/pre>\n
 231:  <\/span>         if<\/span> arguments.Named.Exists(\"dateto\"<\/span>) then<\/span><\/pre>\n
 232:  <\/span>           if<\/span> isDate(arguments.Named.Item(\"dateto\"<\/span>)) then<\/span><\/pre>\n
 233:  <\/span>              sDateTo = formatdatetime(arguments.Named.Item(\"dateto\"<\/span>),vbshortdate)<\/pre>\n
 234:  <\/span>           end<\/span> if<\/span><\/pre>\n
 235:  <\/span>         else<\/span><\/pre>\n
 236:  <\/span>             sDateTo = formatdatetime(now,vbshortdate)<\/pre>\n
 237:  <\/span>         end<\/span> if<\/span><\/pre>\n
 238:  <\/span>         end<\/span> if<\/span><\/pre>\n
 239:  <\/span>         <\/pre>\n
 240:  <\/span>     if<\/span> arguments.Named.Item(\"date\"<\/span>) = \"created\"<\/span> then<\/span><\/pre>\n
 241:  <\/span>        sDateFilterType = \"c\"<\/span><\/pre>\n
 242:  <\/span>     end<\/span> if<\/span><\/pre>\n
 243:  <\/span>     if<\/span> arguments.Named.Item(\"date\"<\/span>) = \"modified\"<\/span> then<\/span><\/pre>\n
 244:  <\/span>        sDateFilterType = \"m\"<\/span><\/pre>\n
 245:  <\/span>     end<\/span> if<\/span><\/pre>\n
 246:  <\/span>    <\/pre>\n
 247:  <\/span>     if<\/span> sDateFilterType <> \"\"<\/span> and<\/span> sDateFrom <> \"\"<\/span> and<\/span> sDateTo <> \"\"<\/span> then<\/span><\/pre>\n
 248:  <\/span>        bDateFilter = true<\/span><\/pre>\n
 249:  <\/span>                if<\/span> bVerbose = true<\/span> then<\/span><\/pre>\n
 250:  <\/span>                   output.WriteLine \"Date Filter on! From Date: \"<\/span> & sDateFrom & _
\", To Date: \"<\/span> & sDateTo & \", Filter: \"<\/span> & sDateFilterType<\/pre>\n
 251:  <\/span>                end<\/span> if<\/span><\/pre>\n
 252:  <\/span>     end<\/span> if<\/span><\/pre>\n
 253:  <\/span>??<\/pre>\n
 254:  <\/span>end<\/span> if<\/span><\/pre>\n
 255:  <\/span>??<\/pre>\n
 256:  <\/span>??<\/pre>\n
 257:  <\/span>??<\/pre>\n
 258:  <\/span>??<\/pre>\n
 259:  <\/span>End<\/span> Function<\/span><\/pre>\n
 260:  <\/span>??<\/pre>\n
 261:  <\/span>------------------------------------------------------------------------------------------<\/span><\/pre>\n
 262:  <\/span> DOC2PDF<\/span><\/pre>\n
 263:  <\/span> Converts a Word document to PDF using Word 2007.<\/span><\/pre>\n
 264:  <\/span> Input:<\/span><\/pre>\n
 265:  <\/span> sDocFile - Full path to Word document.<\/span><\/pre>\n
 266:  <\/span> sPDFFile - Optional full path to output file.<\/span><\/pre>\n
 267:  <\/span><\/span><\/pre>\n
 268:  <\/span> If not specified the output PDF file<\/span><\/pre>\n
 269:  <\/span> will be the same as the sDocFile except<\/span><\/pre>\n
 270:  <\/span> file extension will be .pdf.<\/span><\/pre>\n
 271:  <\/span><\/span><\/pre>\n
 272:  <\/span>Function<\/span> DOC2PDF( sDocFile, sPDFFile )<\/pre>\n
 273:  <\/span>??<\/pre>\n
 274:  <\/span>??<\/pre>\n
 275:  <\/span>  Dim<\/span> owdoc  As Word.Document<\/span><\/pre>\n
 276:  <\/span>  Dim<\/span> sPrevPrinter  As String<\/span><\/pre>\n
 277:  <\/span>??<\/pre>\n
 278:  <\/span>??<\/pre>\n
 279:  <\/span>  if<\/span> sFolder = \"\"<\/span> then<\/span><\/pre>\n
 280:  <\/span>      sDocFile = ofso.GetAbsolutePathName(sDocFile)<\/pre>\n
 281:  <\/span>        sTmpFolder = ofso.GetParentFolderName(sDocFile)<\/pre>\n
 282:  <\/span>  else<\/span><\/pre>\n
 283:  <\/span>    sDocFile = sDocFile<\/pre>\n
 284:  <\/span>    sTmpFolder = sFolder<\/pre>\n
 285:  <\/span>  end<\/span> if<\/span><\/pre>\n
 286:  <\/span>??<\/pre>\n
 287:  <\/span>  If<\/span> Len(sPDFFile)=0 Then<\/span><\/pre>\n
 288:  <\/span>    sPDFFile = ofso.GetBaseName(sDocFile) + \".\"<\/span> + lcase(sOutExt)<\/pre>\n
 289:  <\/span>  End<\/span> If<\/span><\/pre>\n
 290:  <\/span>??<\/pre>\n
 291:  <\/span>  If<\/span> Len(ofso.GetParentFolderName(sPDFFile))=0 Then<\/span><\/pre>\n
 292:  <\/span>    sPDFFile = sTmpFolder + \"\\\"<\/span> + sPDFFile<\/pre>\n
 293:  <\/span>  End<\/span> If<\/span><\/pre>\n
 294:  <\/span>??<\/pre>\n
 295:  <\/span>??<\/pre>\n
 296:  <\/span>   Enable this line if you want to disable autoexecute macros<\/span><\/pre>\n
 297:  <\/span>   owdo.WordBasic.DisableAutoMacros<\/span><\/pre>\n
 298:  <\/span>     if<\/span> bVerbose = true<\/span> then<\/span><\/pre>\n
 299:  <\/span>         output.WriteLine \"Converting: \"<\/span> & sDocFile <\/pre>\n
 300:  <\/span>     end<\/span> if<\/span>                <\/pre>\n
 301:  <\/span>   Open the Word document<\/span><\/pre>\n
 302:  <\/span>  Set<\/span> owdoc = owdocs.Open(sDocFile)<\/pre>\n
 303:  <\/span>??<\/pre>\n
 304:  <\/span>   Let Word document save as PDF<\/span><\/pre>\n
 305:  <\/span>   - for documentation of SaveAs() method,<\/span><\/pre>\n
 306:  <\/span>     see http:\/\/msdn2.microsoft.com\/en-us\/library\/bb221597.aspx <\/span><\/pre>\n
 307:  <\/span>  owdoc.SaveAs sPDFFile, iwdFormat <\/pre>\n
 308:  <\/span>??<\/pre>\n
 309:  <\/span>  owdoc.Close WdDoNotSaveChanges<\/pre>\n
 310:  <\/span>??<\/pre>\n
 311:  <\/span>     if<\/span> bVerbose = true<\/span> then<\/span><\/pre>\n
 312:  <\/span>         output.WriteLine \"Saved As: \"<\/span> & sPDFFile & \"(Format: \"<\/span> & iwdFormat & \")\"<\/span><\/pre>\n
 313:  <\/span>     end<\/span> if<\/span>                <\/pre>\n
 314:  <\/span>??<\/pre>\n
 315:  <\/span>     if<\/span> sGoogleEmail <> \"\"<\/span> then<\/span><\/pre>\n
 316:  <\/span>        SendEmailToGoogleDocs sGoogleEmail, sPDFFile<\/pre>\n
 317:  <\/span>     end<\/span> if<\/span><\/pre>\n
 318:  <\/span>End<\/span> Function<\/span><\/pre>\n
 319:  <\/span>??<\/pre>\n
 320:  <\/span>------------------------------------------------------------------------------------------<\/span><\/pre>\n
 321:  <\/span> Returns an array with the file names that match Path.<\/span><\/pre>\n
 322:  <\/span> The Path string may contain the wildcard characters \"*\"<\/span><\/pre>\n
 323:  <\/span> and \"?\" in the file name component. The same rules apply<\/span><\/pre>\n
 324:  <\/span> as with the MSDOS DIR command.<\/span><\/pre>\n
 325:  <\/span> If Path is a directory, the contents of this directory is listed.<\/span><\/pre>\n
 326:  <\/span> If Path is empty, the current directory is listed.<\/span><\/pre>\n
 327:  <\/span> Author: Christian dHeureuse (www.source-code.biz)<\/span><\/pre>\n
 328:  <\/span>??<\/pre>\n
 329:  <\/span>Public<\/span>  Function<\/span> ListDir (ByVal<\/span> Path)<\/pre>\n
 330:  <\/span>   Dim<\/span> fso: Set<\/span> fso = CreateObject(\"Scripting.FileSystemObject\"<\/span>)<\/pre>\n
 331:  <\/span>   If<\/span> Path = \"\"<\/span> then<\/span> Path = \"*.*\"<\/span><\/pre>\n
 332:  <\/span>   Dim<\/span> Parent, Filter<\/pre>\n
 333:  <\/span>   if<\/span> fso.FolderExists(Path) then<\/span>       Path is a directory<\/span><\/pre>\n
 334:  <\/span>      Parent = Path<\/pre>\n
 335:  <\/span>      Filter = \"*\"<\/span><\/pre>\n
 336:  <\/span>     Else<\/span><\/pre>\n
 337:  <\/span>      Parent = fso.GetParentFolderName(Path)<\/pre>\n
 338:  <\/span>      If<\/span> Parent = \"\"<\/span> Then<\/span> If<\/span> Right(Path,1) = \":\"<\/span> Then<\/span> Parent = Path: Else<\/span> Parent = \".\"<\/span><\/pre>\n
 339:  <\/span>      Filter = fso.GetFileName(Path)<\/pre>\n
 340:  <\/span>      If<\/span> Filter = \"\"<\/span> Then<\/span> Filter = \"*\"<\/span><\/pre>\n
 341:  <\/span>      End<\/span> If<\/span><\/pre>\n
 342:  <\/span>   ReDim<\/span> a(10)<\/pre>\n
 343:  <\/span>   Dim<\/span> n: n = 0<\/pre>\n
 344:  <\/span>   Dim<\/span> Folder: Set<\/span> Folder = fso.GetFolder(Parent)<\/pre>\n
 345:  <\/span>   Dim<\/span> Files: Set<\/span> Files = Folder.Files<\/pre>\n
 346:  <\/span>   Dim<\/span> File<\/pre>\n
 347:  <\/span>   For<\/span> Each<\/span> File In<\/span> Files<\/pre>\n
 348:  <\/span>??<\/pre>\n
 349:  <\/span>        bDateFiltered = false<\/span><\/pre>\n
 350:  <\/span>      if<\/span> bDateFilter = true<\/span> then<\/span><\/pre>\n
 351:  <\/span>           if<\/span> sDateFilterType = \"c\"<\/span> then<\/span><\/pre>\n
 352:  <\/span>             dDate = File.DateCreated <\/pre>\n
 353:  <\/span>           end<\/span> if<\/span>            <\/pre>\n
 354:  <\/span>           if<\/span> sDateFilterType = \"m\"<\/span> then<\/span><\/pre>\n
 355:  <\/span>             dDate = File.DateLastModified<\/pre>\n
 356:  <\/span>           end<\/span> if<\/span><\/pre>\n
 357:  <\/span>                     if<\/span> datediff(\"d\"<\/span>,dDate,sDateFrom) >= 0  or<\/span> _
???????????????????????????????????????????????????????????? datediff(\"d\"<\/span>,dDate,sDateTo) < 0 then<\/span><\/pre>\n
 358:  <\/span>                       bDateFiltered = true<\/span><\/pre>\n
 359:  <\/span>                         if<\/span> bVerbose = true<\/span> then<\/span><\/pre>\n
 360:  <\/span>                             output.WriteLine File.Name & \" skipped (Date Filter), (dc: \"<\/span> & _
                                    File.DateCreated & \", dm: \"<\/span> & File.DateLastModified & \")\"<\/span> <\/pre>\n
 361:  <\/span>                         end<\/span> if<\/span><\/pre>\n
 362:  <\/span>                     end<\/span> if<\/span>      <\/pre>\n
 363:  <\/span>            end<\/span> if<\/span><\/pre>\n
 364:  <\/span>      if<\/span>  bDateFiltered = false<\/span> then<\/span><\/pre>\n
 365:  <\/span>          If<\/span> CompareFileName(File.Name,Filter) Then<\/span><\/pre>\n
 366:  <\/span>              If<\/span> n > UBound(a) Then<\/span> ReDim<\/span> Preserve<\/span> a(n*2)<\/pre>\n
 367:  <\/span>              a(n) = File.Path<\/pre>\n
 368:  <\/span>              n = n + 1<\/pre>\n
 369:  <\/span>                  else<\/span><\/pre>\n
 370:  <\/span>                         if<\/span> bVerbose = true<\/span> then<\/span><\/pre>\n
 371:  <\/span>                             output.WriteLine File.Name & _
?????????????????????????????????????????????????????????????????????? \" skipped (File Path Filter Argument)\"<\/span> <\/pre>\n
 372:  <\/span>                         end<\/span> if<\/span>                    <\/pre>\n
 373:  <\/span>          End<\/span> If<\/span><\/pre>\n
 374:  <\/span>            end<\/span> if<\/span><\/pre>\n
 375:  <\/span>      Next<\/span><\/pre>\n
 376:  <\/span>   ReDim<\/span> Preserve<\/span> a(n-1)<\/pre>\n
 377:  <\/span>   ListDir = a<\/pre>\n
 378:  <\/span>   End<\/span> Function<\/span><\/pre>\n
 379:  <\/span>-----------------------------------------------------------------------------------------<\/span><\/pre>\n
 380:  <\/span>Private<\/span> Function<\/span> CompareFileName (ByVal<\/span> Name, ByVal<\/span> Filter)  (recursive)<\/span><\/pre>\n
 381:  <\/span>   CompareFileName = False<\/span><\/pre>\n
 382:  <\/span>   Dim<\/span> np, fp: np = 1: fp = 1<\/pre>\n
 383:  <\/span>   Do<\/span><\/pre>\n
 384:  <\/span>      If<\/span> fp > Len(Filter) Then<\/span> CompareFileName = np > len(name): Exit<\/span> Function<\/span><\/pre>\n
 385:  <\/span>      If<\/span> Mid(Filter,fp) = \".*\"<\/span> Then<\/span>     special case: \".*\" at end of filter<\/span><\/pre>\n
 386:  <\/span>         If<\/span> np > Len(Name) Then<\/span> CompareFileName = True<\/span>: Exit<\/span> Function<\/span><\/pre>\n
 387:  <\/span>         End<\/span> If<\/span><\/pre>\n
 388:  <\/span>      If<\/span> Mid(Filter,fp) = \".\"<\/span> Then<\/span>      special case: \".\" at end of filter<\/span><\/pre>\n
 389:  <\/span>         CompareFileName = np > Len(Name): Exit<\/span> Function<\/span><\/pre>\n
 390:  <\/span>         End<\/span> If<\/span><\/pre>\n
 391:  <\/span>      Dim<\/span> fc: fc = Mid(Filter,fp,1): fp = fp + 1<\/pre>\n
 392:  <\/span>      Select<\/span> Case<\/span> fc<\/pre>\n
 393:  <\/span>         Case<\/span> \"*\"<\/span><\/pre>\n
 394:  <\/span>            CompareFileName = CompareFileName2(name,np,filter,fp)<\/pre>\n
 395:  <\/span>            Exit<\/span> Function<\/span><\/pre>\n
 396:  <\/span>         Case<\/span> \"?\"<\/span><\/pre>\n
 397:  <\/span>            If<\/span> np <= Len(Name) And<\/span> Mid(Name,np,1) <> \".\"<\/span> Then<\/span> np = np + 1<\/pre>\n
 398:  <\/span>         Case<\/span> Else<\/span><\/pre>\n
 399:  <\/span>            If<\/span> np > Len(Name) Then<\/span> Exit<\/span> Function<\/span><\/pre>\n
 400:  <\/span>            Dim<\/span> nc: nc = Mid(Name,np,1): np = np + 1<\/pre>\n
 401:  <\/span>            If<\/span> Strcomp(fc,nc,vbTextCompare)<>0 Then<\/span> Exit<\/span> Function<\/span><\/pre>\n
 402:  <\/span>         End<\/span> Select<\/span><\/pre>\n
 403:  <\/span>      Loop<\/span><\/pre>\n
 404:  <\/span>   End<\/span> Function<\/span><\/pre>\n
 405:  <\/span>-------------------------------------------------------------------------------------------<\/span><\/pre>\n
 406:  <\/span>Private<\/span> Function<\/span> CompareFileName2 (ByVal<\/span> Name, ByVal<\/span> np0, ByVal<\/span> Filter, ByVal<\/span> fp0)<\/pre>\n
 407:  <\/span>   Dim<\/span> fp: fp = fp0<\/pre>\n
 408:  <\/span>   Dim<\/span> fc2<\/pre>\n
 409:  <\/span>   Do<\/span>                                   skip over \"*\" and \"?\" characters in filter<\/span><\/pre>\n
 410:  <\/span>      If<\/span> fp > Len(Filter) Then<\/span> CompareFileName2 = True<\/span>: Exit<\/span> Function<\/span><\/pre>\n
 411:  <\/span>      fc2 = Mid(Filter,fp,1): fp = fp + 1<\/pre>\n
 412:  <\/span>      If<\/span> fc2 <> \"*\"<\/span> And<\/span> fc2 <> \"?\"<\/span> Then<\/span> Exit<\/span> Do<\/span><\/pre>\n
 413:  <\/span>      Loop<\/span><\/pre>\n
 414:  <\/span>   If<\/span> fc2 = \".\"<\/span> Then<\/span><\/pre>\n
 415:  <\/span>      If<\/span> Mid(Filter,fp) = \"*\"<\/span> Then<\/span>      special case: \".*\" at end of filter<\/span><\/pre>\n
 416:  <\/span>         CompareFileName2 = True<\/span>: Exit<\/span> Function<\/span><\/pre>\n
 417:  <\/span>         End<\/span> If<\/span><\/pre>\n
 418:  <\/span>      If<\/span> fp > Len(Filter) Then<\/span>          special case: \".\" at end of filter<\/span><\/pre>\n
 419:  <\/span>         CompareFileName2 = InStr(np0,Name,\".\"<\/span>) = 0: Exit<\/span> Function<\/span><\/pre>\n
 420:  <\/span>         End<\/span> If<\/span><\/pre>\n
 421:  <\/span>      End<\/span> If<\/span><\/pre>\n
 422:  <\/span>   Dim<\/span> np<\/pre>\n
 423:  <\/span>   For<\/span> np = np0 To<\/span> Len(Name)<\/pre>\n
 424:  <\/span>      Dim<\/span> nc: nc = Mid(Name,np,1)<\/pre>\n
 425:  <\/span>      If<\/span> StrComp(fc2,nc,vbTextCompare)=0 Then<\/span><\/pre>\n
 426:  <\/span>         If<\/span> CompareFileName(Mid(Name,np+1),Mid(Filter,fp)) Then<\/span><\/pre>\n
 427:  <\/span>            CompareFileName2 = True<\/span>: Exit<\/span> Function<\/span><\/pre>\n
 428:  <\/span>            End<\/span> If<\/span><\/pre>\n
 429:  <\/span>         End<\/span> If<\/span><\/pre>\n
 430:  <\/span>      Next<\/span><\/pre>\n
 431:  <\/span>   CompareFileName2 = False<\/span><\/pre>\n
 432:  <\/span>   End<\/span> Function<\/span><\/pre>\n
 433:  <\/span>-------------------------------------------------------------------------------------------<\/span><\/pre>\n
 434:  <\/span>     <\/pre>\n
 435:  <\/span>Sub<\/span> SendEmailToGoogleDocs(sToEmail, sFileAttachment)<\/pre>\n
 436:  <\/span>??<\/pre>\n
 437:  <\/span>Dim<\/span> ToAddress<\/pre>\n
 438:  <\/span>Dim<\/span> MessageSubject<\/pre>\n
 439:  <\/span>Dim<\/span> MessageBody<\/pre>\n
 440:  <\/span>Dim<\/span> MessageAttachment<\/pre>\n
 441:  <\/span>Dim<\/span> newMail<\/pre>\n
 442:  <\/span> <\/pre>\n
 443:  <\/span>??<\/pre>\n
 444:  <\/span>??<\/pre>\n
 445:  <\/span>Set<\/span> oCheckFile = oFso.GetFile(sFileAttachment)<\/pre>\n
 446:  <\/span>if<\/span> oCheckFile.Size > iGoogleDocsSizeLimit then<\/span><\/pre>\n
 447:  <\/span>File is too large<\/span><\/pre>\n
 448:  <\/span>  output.WriteLine sFileAttachment & \" could not be sent to Google Docs. \" & _
              \"It is too large (limit 500KB). File Size: \"<\/span> & oCheckFile.Size\/1024 & \"KB\"<\/span> <\/pre>\n
 449:  <\/span>else<\/span><\/pre>\n
 450:  <\/span>??<\/pre>\n
 451:  <\/span>    ToAddress = sToEmail<\/pre>\n
 452:  <\/span>    MessageSubject = oFso.GetFileName(sFileAttachment)<\/pre>\n
 453:  <\/span>    MessageBody = \"\"<\/span><\/pre>\n
 454:  <\/span>??<\/pre>\n
 455:  <\/span>        <\/pre>\n
 456:  <\/span>        <\/pre>\n
 457:  <\/span>        Select<\/span> Case<\/span> EmailSendMethod <\/pre>\n
 458:  <\/span>        <\/pre>\n
 459:  <\/span>        Case<\/span> 1<\/pre>\n
 460:  <\/span>              Send EMail using MAPI<\/span><\/pre>\n
 461:  <\/span>              <\/pre>\n
 462:  <\/span>          Set<\/span> ol = WScript.CreateObject(\"Outlook.Application\"<\/span>)<\/pre>\n
 463:  <\/span>          Set<\/span> ns = ol.getNamespace(\"MAPI\"<\/span>)<\/pre>\n
 464:  <\/span>          ns.logon \"\"<\/span>,\"\"<\/span>,true<\/span>,false<\/span><\/pre>\n
 465:  <\/span>           <\/pre>\n
 466:  <\/span>          Set<\/span> newMail = ol.CreateItem(olMailItem)<\/pre>\n
 467:  <\/span>          newMail.Subject = MessageSubject<\/pre>\n
 468:  <\/span>          newMail.Body = MessageBody &vbCrLf<\/pre>\n
 469:  <\/span>          <\/pre>\n
 470:  <\/span>          MessageAttachment = sFileAttachment<\/pre>\n
 471:  <\/span>          newMail.Attachments.Add(MessageAttachment).Displayname = _
???????????????????????????????????????????????????????????????????????????????????????? oFso.GetFileName(sFileAttachment)<\/pre>\n
 472:  <\/span>          <\/pre>\n
 473:  <\/span>           validate the recipient, just in case???<\/span><\/pre>\n
 474:  <\/span>          Set<\/span> myRecipient = ns.CreateRecipient(ToAddress)<\/pre>\n
 475:  <\/span>          myRecipient.Resolve<\/pre>\n
 476:  <\/span>          <\/pre>\n
 477:  <\/span>          If<\/span> Not<\/span> myRecipient.Resolved Then<\/span><\/pre>\n
 478:  <\/span>              output.WriteLine  sToEmail & _
\" is an Unknown recipient, cannot send email with \"<\/span> & sFileAttachment<\/pre>\n
 479:  <\/span>          Else<\/span><\/pre>\n
 480:  <\/span>             newMail.Recipients.Add(myRecipient)<\/pre>\n
 481:  <\/span>             newMail.Send<\/pre>\n
 482:  <\/span>                   if<\/span> bVerbose = true<\/span> then<\/span><\/pre>\n
 483:  <\/span>                          output.WriteLine \"Email for Google Docs for \"<\/span> & _
???????????????????????????????????????????????????????????????? sFileAttachment & \" was created in our Outlook Outbox folder.\"<\/span> <\/pre>\n
 484:  <\/span>                 end<\/span> if<\/span>                     <\/pre>\n
 485:  <\/span>          End<\/span> If<\/span><\/pre>\n
 486:  <\/span>      <\/pre>\n
 487:  <\/span>          Set<\/span> ol = Nothing<\/span><\/pre>\n
 488:  <\/span>        Case<\/span> 2<\/pre>\n
 489:  <\/span>        Send EMail Using CDO<\/span><\/pre>\n
 490:  <\/span>          msgType  = 0 <\/pre>\n
 491:  <\/span>        <\/pre>\n
 492:  <\/span>            Set<\/span> newMail = Wscript.CreateObject(\"CDO.Message\"<\/span>)<\/pre>\n
 493:  <\/span>?????? newMail.To<\/span> = sToEmail<\/pre>\n
 494:  <\/span>            newMail.From = sToEmail<\/pre>\n
 495:  <\/span>            newMail.Subject = MessageSubject<\/pre>\n
 496:  <\/span>            if<\/span> msgType = TEXTMSG then<\/span><\/pre>\n
 497:  <\/span>?????????????????? newMail.TextBody = MessageBody &vbCrLf<\/pre>\n
 498:  <\/span>            else<\/span><\/pre>\n
 499:  <\/span>???????????????????? newMail.HTMLBody = MessageBody &vbCrLf<\/pre>\n
 500:  <\/span>            end<\/span> if<\/span><\/pre>\n
 501:  <\/span>            newMail.AddAttachment  sFileAttachment<\/pre>\n
 502:  <\/span>           if<\/span> bVerbose = true<\/span> then<\/span><\/pre>\n
 503:  <\/span>              output.WriteLine \"Email for Google Docs for \"<\/span> & sFileAttachment & _
???????????????????????????????????????? \" was sent via CDO\"<\/span> <\/pre>\n
 504:  <\/span>           end<\/span> if<\/span>                     <\/pre>\n
 505:  <\/span>            <\/pre>\n
 506:  <\/span>           <\/pre>\n
 507:  <\/span>      newMail.Configuration.Fields.Item _<\/span><\/pre>\n
 508:  <\/span>            (\"http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendusing\") = 2<\/span><\/pre>\n
 509:  <\/span>      newMail.Configuration.Fields.Item _<\/span><\/pre>\n
 510:  <\/span>            (\"http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpserver\") =<\/span><\/pre>\n
 511:  <\/span>      newMail.Configuration.Fields.Item _<\/span><\/pre>\n
 512:  <\/span>            (\"http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpserverport\") = 25<\/span><\/pre>\n
 513:  <\/span>      newMail.Configuration.Fields.Update<\/span><\/pre>\n
 514:  <\/span>        <\/pre>\n
 515:  <\/span>??<\/pre>\n
 516:  <\/span>        newMail.Send<\/pre>\n
 517:  <\/span>??<\/pre>\n
 518:  <\/span>        set<\/span> newMail = Nothing<\/span><\/pre>\n
 519:  <\/span>??<\/pre>\n
 520:  <\/span>    End<\/span> Select<\/span><\/pre>\n
 521:  <\/span>        <\/pre>\n
 522:  <\/span>end<\/span> if<\/span><\/pre>\n
 523:  <\/span>??<\/pre>\n
 524:  <\/span>End<\/span> Sub<\/span>     <\/pre>\n
 525:  <\/span>??<\/pre>\n
 526:  <\/span>------------------------------------------------------------------------------------------<\/span><\/pre>\n
 527:  <\/span>Sub<\/span> ForceCscript(bForceRelance) <\/pre>\n
 528:  <\/span>Force to reload the program in non interactive mode <\/span><\/pre>\n
 529: <\/span>If<\/span> (right(Ucase(WScript.FullName),11)=\"WSCRIPT.EXE\"<\/span>) and<\/span> bForceRelance Then<\/span> <\/pre>\n
 530:  <\/span> Dim<\/span> WshShell,args,objArgs,argname, I , sFullCall<\/pre>\n
 531:  <\/span> Set<\/span> WshShell = CreateObject(\"WScript.Shell\"<\/span>) <\/pre>\n
 532:  <\/span> args=\"\"<\/span> <\/pre>\n
 533:   <\/span>If<\/span> Wscript.Arguments.Count > 0 Then<\/span> <\/pre>\n
 534:  <\/span>  Set<\/span> objArgs = Wscript.arguments.Unnamed <\/pre>\n
 535:  <\/span>  For<\/span> I = 0 to<\/span> objArgs.Count - 1<\/pre>\n
 536:  <\/span>     if<\/span> instr(objArgs(I),\" \"<\/span>) > 0 then<\/span><\/pre>\n
 537:  <\/span>       args = args & \" \"<\/span>\"\"<\/span> & objArgs(I) & \"\"<\/span>\"\"<\/span><\/pre>\n
 538:  <\/span>     else<\/span> <\/pre>\n
 539:  <\/span>      args = args & \" \"<\/span> & objArgs(I)<\/pre>\n
 540:  <\/span>     end<\/span> if<\/span>         <\/pre>\n
 541:  <\/span>  Next<\/span> <\/pre>\n
 542:  <\/span>  For<\/span> each<\/span> argname in<\/span> Wscript.arguments.Named <\/pre>\n
 543:  <\/span>     if<\/span> instr(Wscript.arguments.Named.Item(argname),\" \"<\/span>) > 0 then<\/span><\/pre>\n
 544:  <\/span>        args = args & \" \/\"<\/span> & argname & \":\"<\/span>\"\"<\/span> & Wscript.arguments.Named.Item(argname) & \"\"<\/span>\"\"<\/span><\/pre>\n
 545:  <\/span>     else<\/span><\/pre>\n
 546:  <\/span>        if<\/span> Wscript.arguments.Named.Item(argname) = \"\"<\/span> then<\/span><\/pre>\n
 547:  <\/span>                args = args & \" \/\"<\/span> & argname <\/pre>\n
 548:  <\/span>         else<\/span><\/pre>\n
 549:  <\/span>              args = args & \" \/\"<\/span> & argname & \":\"<\/span> & Wscript.arguments.Named.Item(argname)<\/pre>\n
 550:  <\/span>         end<\/span> if<\/span>        <\/pre>\n
 551:  <\/span>     end<\/span> if<\/span><\/pre>\n
 552:  <\/span>  Next<\/span><\/pre>\n
 553:   <\/span>End<\/span> If<\/span><\/pre>\n
 554:  <\/span> sFullCall =  WshShell.ExpandEnvironmentStrings(\"%COMSPEC%\"<\/span>) & \" \/C cscript.exe \"<\/span>\"\"<\/span> & _
                     Wscript.ScriptFullName & \"\"<\/span>\"\"<\/span> & args<\/pre>\n
 555:  <\/span>??<\/pre>\n
 556:  <\/span> WshShell.Run  sFullCall,1,False<\/span> <\/pre>\n
 557:  <\/span> Set<\/span> WshShell = Nothing<\/span> <\/pre>\n
 558:  <\/span> WScript.Quit <\/pre>\n
 559:  <\/span>End<\/span> If<\/span> <\/pre>\n
 560:  <\/span>End<\/span> Sub<\/span> <\/pre>\n
 561:  <\/span>??<\/pre>\n
 562:  <\/span>=======================================================================<\/span><\/pre>\n
 563:  <\/span> *** MAIN **************************************<\/span><\/pre>\n
 564:  <\/span>=======================================================================<\/span><\/pre>\n
 565:  <\/span>??<\/pre>\n
 566:  <\/span>??<\/pre>\n
 567:  <\/span>??<\/pre>\n
 568:  <\/span>??<\/pre>\n
 569:  <\/span>set<\/span> output = wscript.stdout<\/pre>\n
 570:  <\/span>bVerbose = arguments.Named.Exists(\"verbose\"<\/span>) Or<\/span> arguments.Named.Exists(\"v\"<\/span>)<\/pre>\n
 571:  <\/span>??<\/pre>\n
 572:  <\/span>Call<\/span> EchoUsage()<\/pre>\n
 573:  <\/span>Call<\/span> CheckArgs()<\/pre>\n
 574:  <\/span>??<\/pre>\n
 575:  <\/span>Set<\/span> ofso = CreateObject(\"Scripting.FileSystemObject\"<\/span>)<\/pre>\n
 576:  <\/span>Set<\/span> owdo = CreateObject(\"Word.Application\"<\/span>)<\/pre>\n
 577:  <\/span>Set<\/span> owdocs = owdo.Documents<\/pre>\n
 578:  <\/span>??<\/pre>\n
 579:  <\/span>sFolder= \"\"<\/span><\/pre>\n
 580:  <\/span>??<\/pre>\n
 581:  <\/span>if<\/span> not<\/span> arguments.Named.Exists(\"dir\"<\/span>) then<\/span><\/pre>\n
 582:  <\/span>   Single Document Conversion<\/span><\/pre>\n
 583:  <\/span>   Call<\/span> DOC2PDF( arguments.Unnamed.Item(0), arguments.Named.Item(\"o\"<\/span>) )<\/pre>\n
 584:  <\/span>else<\/span><\/pre>\n
 585:  <\/span>   Batch Conversion<\/span><\/pre>\n
 586:  <\/span>   sFolder = arguments.Named.Item(\"dir\"<\/span>)<\/pre>\n
 587:  <\/span>   if<\/span> right(sFolder,1) = \"\\\"<\/span> then<\/span><\/pre>\n
 588:  <\/span>    sFolder = left(sFolder, Len(sFolder)-1)<\/pre>\n
 589:  <\/span>   end<\/span> if<\/span> <\/pre>\n
 590:  <\/span>??<\/pre>\n
 591:  <\/span>   if<\/span> Not<\/span> oFso.FolderExists(sFolder)  then<\/span><\/pre>\n
 592:  <\/span>      output.WriteLine  \"Error: Input Folder for Batch Processing does not exist!\"<\/span><\/pre>\n
 593:  <\/span>   else<\/span><\/pre>\n
 594:  <\/span>      WScript.Echo sFolder & \"\\\" & arguments.Unnamed.Item(0)<\/span><\/pre>\n
 595:  <\/span>       aFiles = ListDir(sFolder & \"\\\"<\/span> & arguments.Unnamed.Item(0))<\/pre>\n
 596:  <\/span>       If<\/span> UBound(aFiles) = -1 then<\/span><\/pre>\n
 597:  <\/span>          output.WriteLine  \"No files found.\"<\/span><\/pre>\n
 598:  <\/span>       end<\/span> if<\/span><\/pre>\n
 599:  <\/span>       For<\/span> Each<\/span> FileName In<\/span> aFiles <\/pre>\n
 600:  <\/span>          Call<\/span> DOC2PDF(FileName,\"\"<\/span>)  <\/pre>\n
 601:  <\/span>       Next<\/span><\/pre>\n
 602:  <\/span>   end<\/span> if<\/span><\/pre>\n
 603:  <\/span>??<\/pre>\n
 604:  <\/span>end<\/span> if<\/span><\/pre>\n
 605:  <\/span>??<\/pre>\n
 606:  <\/span>owdo.Quit WdDoNotSaveChanges<\/pre>\n
 607:  <\/span>Set<\/span> owdo = Nothing<\/span><\/pre>\n
 608:  <\/span>Set<\/span> arguments = Nothing<\/span><\/pre>\n
 609:  <\/span>Set<\/span> oFso = Nothing<\/span><\/pre>\n
 610:  <\/span>        <\/pre>\n<\/div>\n","protected":false},"excerpt":{"rendered":"
It started with a script by Michael Suodenjoki called “docx2pdf.vbs” that lets you convert individual Word 2007 documents to PDF. It is possible to use it to process a batch of files, such as all documents in a specific directory, by using (programming) another sophisticated MS DOS batch script, but that is a pain in […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[17,3],"tags":[],"class_list":["post-104","post","type-post","status-publish","format-standard","hentry","category-internet-marketing","category-tools"],"_links":{"self":[{"href":"http:\/\/www.roysac.com\/blog\/wp-json\/wp\/v2\/posts\/104","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.roysac.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.roysac.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.roysac.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.roysac.com\/blog\/wp-json\/wp\/v2\/comments?post=104"}],"version-history":[{"count":0,"href":"http:\/\/www.roysac.com\/blog\/wp-json\/wp\/v2\/posts\/104\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.roysac.com\/blog\/wp-json\/wp\/v2\/media?parent=104"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.roysac.com\/blog\/wp-json\/wp\/v2\/categories?post=104"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.roysac.com\/blog\/wp-json\/wp\/v2\/tags?post=104"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}