Namespace System
Namespace IO


Class FileInfo
	Inherits FileSystemInfo
Public
	Sub FileInfo(path As String)
		OriginalPath = path
		FullPath = Path.GetFullPath(path)
	End Sub

	Sub ~FileInfo()
	End Sub

	'----------------------------------------------------------------
	' Public properties
	'----------------------------------------------------------------

	Function Directory() As DirectoryInfo
		Return New DirectoryInfo(Path.GetDirectoryName(FullPath))
	End Function

	Function DirectoryName() As String
		Return Path.GetDirectoryName(FullPath)
	End Function

	Function IsReadOnly() As Boolean
		If (Attributes And FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY Then
			Return True
		Else
			Return False
		End If
	End Function
End Class



End Namespace
End Namespace
