[271] | 1 | Namespace System
|
---|
| 2 | Namespace IO
|
---|
| 3 |
|
---|
| 4 |
|
---|
[83] | 5 | Class FileSystemInfo
|
---|
[84] | 6 | m_CreationTime As FILETIME
|
---|
| 7 | m_LastAccessTime As FILETIME
|
---|
| 8 | m_LastWriteTime As FILETIME
|
---|
| 9 | m_FileAttributes As DWord
|
---|
[83] | 10 | Protected
|
---|
| 11 | FullPath As String
|
---|
| 12 | OriginalPath As String
|
---|
| 13 | Public
|
---|
[318] | 14 |
|
---|
| 15 | Override Function Equals( object As Object ) As Boolean
|
---|
| 16 | If This.ToString = object.ToString Then
|
---|
| 17 | Return True
|
---|
| 18 | Else
|
---|
| 19 | Return False
|
---|
| 20 | End If
|
---|
| 21 | End Function
|
---|
| 22 |
|
---|
| 23 | Override Function ToString() As String
|
---|
| 24 | Return FullPath
|
---|
| 25 | End Function
|
---|
| 26 |
|
---|
[83] | 27 | 'Public Properties
|
---|
[318] | 28 | Function Attributes() As DWord'FileAttributes
|
---|
| 29 | Return m_FileAttributes
|
---|
[83] | 30 | End Function
|
---|
| 31 |
|
---|
[318] | 32 | Sub Attributes(value As DWord)
|
---|
| 33 | If SetFileAttributes(FullPath, value) = FALSE Then
|
---|
[83] | 34 | 'Exception
|
---|
| 35 | Debug
|
---|
| 36 | End If
|
---|
| 37 | End Sub
|
---|
| 38 |
|
---|
| 39 | Function CreationTime() As DateTime
|
---|
[84] | 40 | Return DateTime.FromFileTime(m_CreationTime)
|
---|
[83] | 41 | End Function
|
---|
| 42 |
|
---|
| 43 | Sub CreationTime(ByRef value As DateTime)
|
---|
[84] | 44 | m_CreationTime = value.ToFileTimeUtc()
|
---|
[333] | 45 | setFileTime()
|
---|
[83] | 46 | End Sub
|
---|
| 47 |
|
---|
| 48 | Function CreationTimeUtc() As DateTime
|
---|
[333] | 49 | Return CreationTime.ToUniversalTime()
|
---|
[83] | 50 | End Function
|
---|
| 51 |
|
---|
| 52 | Sub CreationTimeUtc(ByRef value As DateTime)
|
---|
| 53 | CreationTime = value
|
---|
| 54 | End Sub
|
---|
| 55 |
|
---|
| 56 | Function LastAccessTime() As DateTime
|
---|
[84] | 57 | Return DateTime.FromFileTime(m_LastAccessTime)
|
---|
[83] | 58 | End Function
|
---|
| 59 |
|
---|
| 60 | Sub LastAccessTime(ByRef value As DateTime)
|
---|
[84] | 61 | m_LastAccessTime = value.ToFileTimeUtc()
|
---|
[333] | 62 | setFileTime()
|
---|
[83] | 63 | End Sub
|
---|
| 64 |
|
---|
| 65 | Function LastAccessTimeUtc() As DateTime
|
---|
[333] | 66 | Return LastAccessTime.ToUniversalTime()
|
---|
[83] | 67 | End Function
|
---|
| 68 |
|
---|
| 69 | Sub LastAccessTimeUtc(ByRef value As DateTime)
|
---|
| 70 | LastAccessTime = value
|
---|
| 71 | End Sub
|
---|
| 72 |
|
---|
| 73 | Function LastWriteTime() As DateTime
|
---|
[84] | 74 | Return DateTime.FromFileTime(m_LastWriteTime)
|
---|
[83] | 75 | End Function
|
---|
| 76 |
|
---|
| 77 | Sub LastWriteTime(ByRef value As DateTime)
|
---|
[84] | 78 | m_LastWriteTime = value.ToFileTimeUtc()
|
---|
[333] | 79 | setFileTime()
|
---|
[83] | 80 | End Sub
|
---|
| 81 |
|
---|
| 82 | Function LastWriteTimeUtc() As DateTime
|
---|
[333] | 83 | Return LastWriteTime.ToUniversalTime()
|
---|
[83] | 84 | End Function
|
---|
| 85 |
|
---|
| 86 | Sub LastWriteTimeUtc(ByRef value As DateTime)
|
---|
| 87 | LastWriteTime = value
|
---|
| 88 | End Sub
|
---|
| 89 |
|
---|
| 90 | Function Exists() As Boolean
|
---|
[84] | 91 | If m_FileAttributes = 0 Then
|
---|
| 92 | Return False
|
---|
| 93 | Else
|
---|
| 94 | Return True
|
---|
| 95 | End If
|
---|
[83] | 96 | End Function
|
---|
| 97 |
|
---|
| 98 | Function Extension() As String
|
---|
| 99 | Return Path.GetExtension(FullPath)
|
---|
| 100 | End Function
|
---|
| 101 |
|
---|
| 102 | Function FullName() As String
|
---|
| 103 | Return FullPath
|
---|
| 104 | End Function
|
---|
| 105 |
|
---|
| 106 | Function Name() As String
|
---|
| 107 | Return Path.GetFileName(FullPath)
|
---|
| 108 | End Function
|
---|
| 109 |
|
---|
| 110 | 'Public Methods
|
---|
| 111 | Virtual Sub Delete()
|
---|
| 112 | If DeleteFile(FullPath) = FALSE Then
|
---|
| 113 | 'Exception
|
---|
| 114 | debug
|
---|
| 115 | End If
|
---|
| 116 | End Sub
|
---|
| 117 |
|
---|
[130] | 118 | Virtual Sub Refresh()
|
---|
[84] | 119 | Dim data As WIN32_FIND_DATA
|
---|
[142] | 120 | Dim hFind = FindFirstFile(ToTCStr(FullPath), data)
|
---|
[130] | 121 | FindClose(hFind)
|
---|
[84] | 122 |
|
---|
| 123 | m_FileAttributes = data.dwFileAttributes
|
---|
| 124 | m_CreationTime = data.ftCreationTime
|
---|
| 125 | m_LastAccessTime = data.ftLastAccessTime
|
---|
| 126 | m_LastWriteTime = data.ftLastWriteTime
|
---|
[83] | 127 | End Sub
|
---|
| 128 | Private
|
---|
[333] | 129 | Sub setFileTime()
|
---|
[142] | 130 | Dim hFile = CreateFile(ToTCStr(FullPath), GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0)
|
---|
[83] | 131 | If hFile = INVALID_HANDLE_VALUE Then
|
---|
[333] | 132 | debug 'Exception
|
---|
[83] | 133 | Exit Function
|
---|
| 134 | End If
|
---|
| 135 |
|
---|
[333] | 136 | If SetFileTime(hFile, m_CreationTime, m_LastAccessTime, m_LastWriteTime) = False Then
|
---|
| 137 | debug 'Exception
|
---|
[83] | 138 | End If
|
---|
[84] | 139 |
|
---|
| 140 | CloseHandle(hFile)
|
---|
[333] | 141 | End Sub
|
---|
[271] | 142 | End Class
|
---|
| 143 |
|
---|
| 144 |
|
---|
| 145 | End Namespace
|
---|
| 146 | End Namespace
|
---|