VB.NET-TIPS などプログラミングについて

以前紹介しましたフォルダの中のファイルを全て削除する関数を、指定フォルダのサブフォルダ内のファイルも全て削除する様にします。

⇒指定フォルダ内の全ファイルを削除　　　：[Directory.GetFiles,File.Delete]

指定フォルダ内の全ファイル削除関数（サブフォルダ内も削除）

    ''' -----------------------------------------------------------------------
    ''' 

    ''' 指定フォルダ内の全ファイルを削除（サブフォルダも削除）
    ''' 
    '''指定フォルダ
    ''' True:正常, False:エラー
    ''' -----------------------------------------------------------------------
    Function DeleteFolder(ByVal astrDesFolderName As String) As Boolean
        '戻り値初期化
        DeleteFolder = False
        Try
            '指定フォルダ内の全ファイルを取得
            Dim arrFiles() As String = System.IO.Directory.GetFiles(astrDesFolderName)

            '全ファイル削除
            For Each strFile As String In arrFiles
                System.IO.File.Delete(strFile)
            Next

            'サブフォルダにあるファイルを削除(再帰呼出)
            Dim ArrDirs As String() = System.IO.Directory.GetDirectories(astrDesFolderName)
            Dim strDir As String
            For Each strDir In ArrDirs
                '自分自身を再帰呼出
                If DeleteFolder(strDir) = False Then
                    '再帰呼出での内部のファイルの削除がエラーの場合
                    Return False
                End If
            Next

            '正常終了
            Return True

        Catch ex As Exception
            'エラー処理が必要な場合は、ここに記述する
        End Try
    End Function

関連する記事