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:
dion 2003-06-29 13:39:02 +00:00
parent 76973e5943
commit 26d455c523

View File

@ -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