Fully resolve file names so that reactored builds with .. in the path are handled correctly
git-svn-id: https://svn.apache.org/repos/asf/maven/maven-1/plugins/trunk@113547 13f79535-47bb-0310-9956-ffa450edef68
This commit is contained in:
parent
76973e5943
commit
26d455c523
@ -1,5 +1,5 @@
|
||||
' Word2HTML.vbs
|
||||
' $Id: word2html.vbs,v 1.3 2003/06/18 06:39:54 dion Exp $
|
||||
' $Id: word2html.vbs,v 1.4 2003/06/29 13:39:02 dion Exp $
|
||||
Option Explicit
|
||||
|
||||
' Creates the output directories to the same depth as the inputFile specified
|
||||
@ -44,18 +44,19 @@ Dim basedir, FileSys, HTMLFormat, inputFile, obj, outputDir, outputFile
|
||||
On Error Resume Next
|
||||
|
||||
HTMLFormat = 8
|
||||
' Fully Qualified File name
|
||||
inputFile=WScript.Arguments(0)
|
||||
' Directory to place results in
|
||||
outputDir=WScript.Arguments(1)
|
||||
' base directory for the input file
|
||||
basedir = WScript.Arguments(2)
|
||||
' work out the directory structure for the input file
|
||||
Set FileSys = WScript.CreateObject("Scripting.FileSystemObject")
|
||||
|
||||
' Fully Qualified File name
|
||||
inputFile=FileSys.GetAbsolutePathName(WScript.Arguments(0))
|
||||
' Directory to place results in
|
||||
outputDir=FileSys.GetAbsolutePathName(WScript.Arguments(1))
|
||||
' base directory for the input file
|
||||
basedir = FileSys.GetAbsolutePathName(WScript.Arguments(2))
|
||||
|
||||
outputFile = CreateOutputDirectories(basedir, inputFile, outputDir) & "\" & _
|
||||
FileSys.GetBaseName(inputFile) & ".html"
|
||||
|
||||
|
||||
Set obj = WScript.CreateObject("Word.Application")
|
||||
|
||||
obj.Visible = FALSE
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user