Author: rolf
Date: 2007-12-10 04:51:47 -0500 (Mon, 10 Dec 2007)
New Revision: 91035
Modified:
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/ChangeLog
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/ChangeLog
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/FileSystem.vb
Log:
* Microsoft.VisualBasic/FileSystem.vb: Remove a couple of warnings.
Modified: trunk/mono-basic/vbruntime/Microsoft.VisualBasic/ChangeLog
===================================================================
--- trunk/mono-basic/vbruntime/Microsoft.VisualBasic/ChangeLog 2007-12-10
09:48:53 UTC (rev 91034)
+++ trunk/mono-basic/vbruntime/Microsoft.VisualBasic/ChangeLog 2007-12-10
09:51:47 UTC (rev 91035)
@@ -1,3 +1,7 @@
+2007-12-10 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
+
+
+
2007-12-04 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
Modified:
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/ChangeLog
===================================================================
---
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/ChangeLog
2007-12-10 09:48:53 UTC (rev 91034)
+++
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/ChangeLog
2007-12-10 09:51:47 UTC (rev 91035)
@@ -1,3 +1,7 @@
+2007-12-10 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
+
+ * FileSystem.vb: Remove a couple of warnings.
+
2007-12-05 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
* Collection.vb: Make the changes actually compile.
Modified:
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/FileSystem.vb
===================================================================
---
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/FileSystem.vb
2007-12-10 09:48:53 UTC (rev 91034)
+++
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/FileSystem.vb
2007-12-10 09:51:47 UTC (rev 91035)
@@ -105,9 +105,10 @@
End Function
Public Function Dir(ByVal Pathname As String, Optional ByVal
Attributes As Microsoft.VisualBasic.FileAttribute = 0) As String
- Dim str_parent_dir, str_pattern As String
+ Dim str_parent_dir As String = Nothing
+ Dim str_pattern As String = Nothing
Dim di As DirectoryInfo
- Dim dirs As DirectoryInfo()
+ Dim dirs As DirectoryInfo() = nothing
Dim files As FileInfo()
Dim result As String
Dim length As Integer
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches