Ignore:
Timestamp:
Feb 12, 2008, 3:40:11 PM (16 years ago)
Author:
OverTaker
Message:

地味に修整

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Include/Classes/System/IO/DirectoryInfo.ab

    r376 r404  
    77    Inherits FileSystemInfo
    88Public
     9    /*!
     10    @brief  コンストラクタ
     11    @author OverTaker
     12    @date   2007/11/11
     13    @param  ディレクトリのパス
     14    */
    915    Sub DirectoryInfo(path As String)
    1016        OriginalPath = path
    … …  
    1521    End Sub
    1622
    17     'Public Property
     23    '----------------------------------------------------------------
     24    ' パブリック プロパティ
     25    '----------------------------------------------------------------
     26
     27    /*!
     28    @brief  ひとつ上のディレクトリを取得する
     29    @author OverTaker
     30    @date   2007/11/11
     31    @return 親ディレクトリ
     32    */
    1833    Function Parent() As DirectoryInfo
    1934        Return New DirectoryInfo(Path.GetDirectoryName(FullPath))
    2035    End Function
    2136
     37    /*!
     38    @brief  ルートディレクトリを取得する
     39    @author OverTaker
     40    @date   2007/11/11
     41    @return ルートディレクトリ
     42    */
    2243    Function Root() As DirectoryInfo
    2344        Return New DirectoryInfo(Path.GetPathRoot(FullPath))
    2445    End Function
    2546
    26     'Public Method
     47    '----------------------------------------------------------------
     48    ' パブリック メソッド
     49    '----------------------------------------------------------------
     50
     51    /*!
     52    @brief  ディレクトリを作成する
     53    @author OverTaker
     54    @date   2007/11/11
     55    */
    2756    Sub Create()
    2857        CreateDirectory(ToTCStr(FullPath), NULL)
    … …  
    3261    End Sub*/
    3362
     63    /*!
     64    @brief  ディレクトリを削除する。ただしディレクトリが空の場合
     65    @author OverTaker
     66    @date   2007/11/11
     67    */
    3468    Override Sub Delete()
    3569        RemoveDirectory(ToTCStr(FullPath))
    3670    End Sub
    3771
     72    /*!
     73    @brief  ディレクトリを削除する
     74    @author OverTaker
     75    @date   2007/11/11
     76    @param  ディレクトリのファイルごと消すかどうか
     77    */
    3878    Sub Delete(recursive As Boolean)
    3979        If recursive Then
    … …  
    73113    End Function*/
    74114
     115    /*!
     116    @brief  ディレクトリの中にあるディレクトリを取得する
     117    @author OverTaker
     118    @date   2007/11/11
     119    @return ディレクトリの配列
     120    */
    75121    Function GetDirectories() As List<DirectoryInfo>
    76122        Return GetDirectories("?*")
    77123    End Function
    78124
     125    /*!
     126    @brief  ディレクトリの中にあるディレクトリを取得する
     127    @author OverTaker
     128    @date   2007/11/11
     129    @param  サーチするディレクトリ名のパターン
     130    @return パターンに適合したディレクトリの配列
     131    */
    79132    Function GetDirectories(searchPattern As String) As List<DirectoryInfo>
    80133        Dim infos As List<FileSystemInfo>
    … …  
    91144    End Function
    92145
     146    /*!
     147    @brief  ディレクトリの中にあるディレクトリを取得する
     148    @author OverTaker
     149    @date   2007/11/11
     150    @param  サーチするディレクトリ名のパターン
     151    @param  サーチする範囲
     152    @return サーチした範囲にあるパターンに適合したディレクトリの配列
     153    */
    93154    Function GetDirectories(searchPattern As String, searchOption As SearchOption) As List<DirectoryInfo>
    94155        Select Case searchOption
    … …  
    111172    End Function
    112173
     174    /*!
     175    @brief  ディレクトリの中にあるファイルを取得する
     176    @author OverTaker
     177    @date   2007/11/11
     178    @return ファイルの配列
     179    */
    113180    Function GetFiles() As List<FileInfo>
    114181        Return GetFiles("?*")
    115182    End Function
    116183
     184    /*!
     185    @brief  ディレクトリの中にあるファイルを取得する
     186    @author OverTaker
     187    @date   2007/11/11
     188    @param  サーチするファイル名のパターン
     189    @return パターンに適合したファイルの配列
     190    */
    117191    Function GetFiles(searchPattern As String) As List<FileInfo>
    118192        Dim infos As List<FileSystemInfo>
    … …  
    129203    End Function
    130204
     205    /*!
     206    @brief  ディレクトリの中にあるファイルを取得する
     207    @author OverTaker
     208    @date   2007/11/11
     209    @param  サーチするファイル名のパターン
     210    @param  サーチする範囲
     211    @return サーチした範囲にあるパターンに適合したディレクトリの配列
     212    */
    131213    Function GetFiles(searchPattern As String, searchOption As SearchOption) As List<FileInfo>
    132214        Select Case searchOption
    … …  
    150232    End Function
    151233
     234    /*!
     235    @brief  ディレクトリの中にあるディレクトリやファイルを取得する
     236    @author OverTaker
     237    @date   2007/11/11
     238    @return ディレクトリやファイルの配列
     239    */
    152240    Function GetFileSystemInfos() As List<FileSystemInfo>
    153241        Return GetFileSystemInfos("?*")
    154242    End Function
    155243
     244    /*!
     245    @brief  ディレクトリの中にあるディレクトリやファイルを取得する
     246    @author OverTaker
     247    @date   2007/11/11
     248    @param  サーチする名前のパターン
     249    @return パターンに適合したディレクトリやファイルの配列
     250    */
    156251    Function GetFileSystemInfos(searchPattern As String) As List<FileSystemInfo>
    157252        Dim find As HANDLE
    … …  
    184279    End Function
    185280
     281    /*!
     282    @brief  ディレクトリを移動する
     283    @author OverTaker
     284    @date   2007/11/11
     285    @param  移動先
     286    */
    186287    Sub MoveTo(destDirName As String)
    187288        If MoveFile(ToTCStr(FullPath), ToTCStr(destDirName)) = FALSE Then
Note: See TracChangeset for help on using the changeset viewer.