dion 2003/08/27 22:15:09
Modified: src/plugins-build/word2html/src/plugin-resources
word2html.vbs
Log:
Dont generate html if it exists and is newer
Revision Changes Path
1.5 +27 -11
maven/src/plugins-build/word2html/src/plugin-resources/word2html.vbs
Index: word2html.vbs
===================================================================
RCS file:
/home/cvs/maven/src/plugins-build/word2html/src/plugin-resources/word2html.vbs,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- word2html.vbs 29 Jun 2003 13:39:02 -0000 1.4
+++ word2html.vbs 28 Aug 2003 05:15:09 -0000 1.5
@@ -39,11 +39,23 @@
CreateOutputDirectories = folder
End Function
+Function ExportAsHTML(inputFile, outputFile)
+ Dim obj, HTMLFormat, wdDoNotSaveChanges
+ Set obj = WScript.CreateObject("Word.Application")
+ HTMLFormat = 8
+ wdDoNotSaveChanges = 0
+
+ obj.Visible = FALSE
+ obj.Documents.Open inputFile,,True
+ obj.ActiveDocument.SaveAs outputFile, HTMLFormat
+ obj.Quit wdDoNotSaveChanges
+
+End Function
+
' Main chunk of code
-Dim basedir, FileSys, HTMLFormat, inputFile, obj, outputDir, outputFile
+Dim basedir, FileSys, inputFile, outputDir, outputFile
On Error Resume Next
-HTMLFormat = 8
' work out the directory structure for the input file
Set FileSys = WScript.CreateObject("Scripting.FileSystemObject")
@@ -57,11 +69,15 @@
outputFile = CreateOutputDirectories(basedir, inputFile, outputDir) & "\" & _
FileSys.GetBaseName(inputFile) & ".html"
-Set obj = WScript.CreateObject("Word.Application")
-
-obj.Visible = FALSE
-obj.Documents.Open inputFile,,True
-obj.ActiveDocument.SaveAs outputFile, HTMLFormat
-Dim wdDoNotSaveChanges
-wdDoNotSaveChanges = 0
-obj.Quit wdDoNotSaveChanges
+' check if output file exists and is newer than input file
+' if it is, skip output
+If FileSys.Exists(outputFile) Then
+ Dim fileOutput, fileInput
+ Set fileOutput = FileSys.GetFile(outputFile)
+ Set fileInput = FileSys.GetFile(inputFile)
+ If fileOutput.DateLastModified < fileInput.DateLastModified Then
+ ExportAsHTML inputFile, outputFile
+ End If
+Else
+ ExportAsHTML inputFile, outputFile
+End If
\ No newline at end of file
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
