dion2003/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 ChangesPath
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 - 1.4
+++ word2html.vbs 28 Aug 2003 05:15:09 - 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]