| 1 | Class DirectoryInfo
|
|---|
| 2 | Inherits FileSystemInfo
|
|---|
| 3 | Public
|
|---|
| 4 | Sub DirectoryInfo(path As String)
|
|---|
| 5 | OriginalPath = path
|
|---|
| 6 | FullPath = Path.GetFullPath(path)
|
|---|
| 7 | Refresh()
|
|---|
| 8 | End Sub
|
|---|
| 9 |
|
|---|
| 10 | Sub ~DirectoryInfo()
|
|---|
| 11 | End Sub
|
|---|
| 12 |
|
|---|
| 13 | 'Public Property
|
|---|
| 14 | Function Parent() As DirectoryInfo
|
|---|
| 15 | Dim dirInfo As DirectoryInfo(Path.GetDirectoryName(FullPath))
|
|---|
| 16 | Return dirInfo
|
|---|
| 17 | End Function
|
|---|
| 18 |
|
|---|
| 19 | Function Root() As DirectoryInfo
|
|---|
| 20 | Dim dirInfo As DirectoryInfo(Path.GetPathRoot(FullPath))
|
|---|
| 21 | Return dirInfo
|
|---|
| 22 | End Function
|
|---|
| 23 |
|
|---|
| 24 | 'Public Method
|
|---|
| 25 | Sub Create()
|
|---|
| 26 | CreateDirectory(ToTCStr(FullPath), NULL)
|
|---|
| 27 | End Sub
|
|---|
| 28 |
|
|---|
| 29 | /* Sub Create(directorySecurity As DirectorySecurity)
|
|---|
| 30 | End Sub*/
|
|---|
| 31 |
|
|---|
| 32 | Override Sub Delete()
|
|---|
| 33 | RemoveDirectory(ToTCStr(FullPath))
|
|---|
| 34 | End Sub
|
|---|
| 35 |
|
|---|
| 36 | /* Override Sub Delete(recursive As Boolean)
|
|---|
| 37 | End Sub*/
|
|---|
| 38 |
|
|---|
| 39 | /* Function GetAccessControl() As DirectorySecurity
|
|---|
| 40 | End Function*/
|
|---|
| 41 |
|
|---|
| 42 | /* Function GetAccessControl(includeSections As AccessControlSections) As DirectorySecurity
|
|---|
| 43 | End Function*/
|
|---|
| 44 |
|
|---|
| 45 | /* Function GetDirectories() As Array
|
|---|
| 46 | End Function*/
|
|---|
| 47 |
|
|---|
| 48 | /* Function GetDirectories(searchPattern As String) As Array
|
|---|
| 49 | End Function*/
|
|---|
| 50 |
|
|---|
| 51 | /* Function GetDirectories(searchPattern As String, searchOption As SearchOption) As Array
|
|---|
| 52 | End Function*/
|
|---|
| 53 |
|
|---|
| 54 | /* Function GetFiles() As Array
|
|---|
| 55 | End Function*/
|
|---|
| 56 |
|
|---|
| 57 | /* Function GetFiles(searchPattern As String) As Array
|
|---|
| 58 | End Function*/
|
|---|
| 59 |
|
|---|
| 60 | /* Function GetFiles(searchPattern As String, searchOption As SearchOption) As Array
|
|---|
| 61 | End Function*/
|
|---|
| 62 |
|
|---|
| 63 | /* Function GetFileSystemInfos() As Array
|
|---|
| 64 | End Function*/
|
|---|
| 65 |
|
|---|
| 66 | /* Function GetFileSystemInfos(searchPattern As String) As Array
|
|---|
| 67 | End Function*/
|
|---|
| 68 |
|
|---|
| 69 | Sub MoveTo(destDirName As String)
|
|---|
| 70 | If MoveFile(ToTCStr(FullPath), ToTCStr(destDirName)) = FALSE Then
|
|---|
| 71 | 'Exception
|
|---|
| 72 | End If
|
|---|
| 73 | End Sub
|
|---|
| 74 |
|
|---|
| 75 | /* Sub SetAccessControl(directorySecurity As DirectorySecurity)
|
|---|
| 76 | End Sub*/
|
|---|
| 77 |
|
|---|
| 78 | End Class
|
|---|
| 79 |
|
|---|
| 80 | Enum SearchOption
|
|---|
| 81 | AllDirectories
|
|---|
| 82 | TopDirectoryOnly
|
|---|
| 83 | End Enum
|
|---|
