Author: rolf
Date: 2007-03-01 03:21:30 -0500 (Thu, 01 Mar 2007)
New Revision: 73581
Modified:
trunk/mono-basic/vbnc/rt/source/ChangeLog
trunk/mono-basic/vbnc/rt/source/Test.vb
Log:
2007-03-01 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
* Test.vb: Create the output directory if it doesn't exist.
Modified: trunk/mono-basic/vbnc/rt/source/ChangeLog
===================================================================
--- trunk/mono-basic/vbnc/rt/source/ChangeLog 2007-03-01 07:25:57 UTC (rev
73580)
+++ trunk/mono-basic/vbnc/rt/source/ChangeLog 2007-03-01 08:21:30 UTC (rev
73581)
@@ -1,3 +1,7 @@
+2007-03-01 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
+
+ * Test.vb: Create the output directory if it doesn't exist.
+
2007-02-20 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
* EnhancedProgressBar.vb, frmMain.vb, Settings.vb, TestExecutor.vb:
Modified: trunk/mono-basic/vbnc/rt/source/Test.vb
===================================================================
--- trunk/mono-basic/vbnc/rt/source/Test.vb 2007-03-01 07:25:57 UTC (rev
73580)
+++ trunk/mono-basic/vbnc/rt/source/Test.vb 2007-03-01 08:21:30 UTC (rev
73581)
@@ -457,11 +457,17 @@
'First option is always the /out: argument.
Const OutArgument As String = "-out:{0}"
+ Dim outputFilename, outputPath As String
If ForVBC Then
- result.Add(String.Format(OutArgument, GetOutputVBCAssembly))
+ outputFilename = GetOutputVBCAssembly()
Else
- result.Add(String.Format(OutArgument, GetOutputAssembly))
+ outputFilename = GetOutputAssembly()
End If
+ outputPath = IO.Path.GetDirectoryName(outputFilename)
+ If IO.Directory.Exists(outputPath) = False Then
+ IO.Directory.CreateDirectory(outputPath)
+ End If
+ result.Add(String.Format(OutArgument, outputFilename))
'If there is one unique .rsp file, use it
If m_RspFile <> "" Then
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches
