FC2ブログ

フォルダ内のファイルをすべて削除について

フォルダ内のファイルをすべて削除

指定したフォルダ内のファイルをすべて削除します。
削除する拡張子も指定できます。

'==============================================================================
'
' フォルダ内のファイルをすべて削除
'
' ------------------------------------------------------------------------
' 説明 : 指定したフォルダ内のファイルをすべて削除する。
'
' ------------------------------------------------------------------------
' 引数 : strFolderPath フォルダのフルパス
'     strDelimiter 拡張子
'     strErrMsg  エラーメッセージ
' 戻値 : True:成功、False:失敗
'
'==============================================================================

Public Function fncFilesDelete(ByVal strFolderPath As String, Optional ByVal strDelimiter As String = "*", Optional ByRef strErrMsg As String = "") As Boolean
  Dim strFiles As String() = System.IO.Directory.GetFiles(strFolderPath, strDelimiter,     System.IO.SearchOption.AllDirectories)
  Dim intCnt As Integer

  Try

    '------------------------------------------
    ' 指定したファイルをすべて削除
    '------------------------------------------

    For intCnt = 0 To strFiles.GetUpperBound(0)
      If System.IO.File.Exists(strFiles(intCnt)) Then
        System.IO.File.Delete(strFiles(intCnt))
      End If
    Next


    '--------------------------------------------------
    ' 戻り値設定
    '--------------------------------------------------

    Return True


  Catch ex As Exception

    '--------------------------------------------------
    ' エラーメッセージ作成
    '--------------------------------------------------

    strErrMsg = "ファイルを削除できませんでした。" & vbCrLf & _
          "詳細は以下のとおり" & vbCrLf & _
          "----------------------------------------------------------------------" & vbCrLf & _
          ex.Message


    '--------------------------------------------------
    ' 戻り値設定
    '--------------------------------------------------

    Return False

  End Try

End Function



【宣伝・・・(*´ω`)】

タイトルロゴ3

 システム葵では、個人様向けでも企業様向けでも、パソコン修理から、パソコン設定、パソコンの使い方、LAN環境構築、ソフトウェア開発まで、様々な実績がありますので、困ったことがあれば、お気軽にご相談下さい。
関連記事

テーマ : プログラミング
ジャンル : コンピュータ

コメントの投稿

非公開コメント

検索フォーム
最新記事
カテゴリ
全記事表示リンク

全ての記事を表示する

最新コメント
プロフィール

ITLife

Author:ITLife
システム葵新井聡太です。
東京都東村山市に生まれ、ここで育ち、ここで結婚し、システムエンジニア一筋で十数年やってきました。
ここでは主に、パソコンを中心にITに関わることを備忘録として残していきたいと思います。
少しでも来ていただいた方のお役に立てたら幸いです。
m(_ _)m

p.s
ここで紹介している内容は一例です。すべては、自己責任でお願いします。

カレンダー
07 | 2019/08 | 09
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
訪問数
月別アーカイブ
リンク