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 FileAttributes.ReadOnly) = FileAttributes.ReadOnly Then Return True Else Return False End If End Function End Class End Namespace End Namespace