×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
指定されたフォルダの中のファイルを全てクリアする関数です。 フォルダ内のファイル一覧を取得には System.IO.Directory.GetFiles を用います。
取得されたファイル一覧に従って、個別にクリアを繰り返します。 ファイルクリアは System.IO.File.Create でファイルを生成/上書きでファイルをオープンし、すぐにクローズすることで行います。
System.IO.Directory.GetFiles 関数について
Public Shared Function GetFiles (path As String) As String() path: 検索するディレクトリの相対パスまたは絶対パス。 この文字列の大文字と小文字は区別されません。 戻り値: 指定したディレクトリ内のファイルの完全名 (パスを含む) の配列。 ファイルが見つからない場合は空の配列。(空と言うことはLengthが 0 のString配列)
System.IO.File.Create 関数について
Public Shared Function Create (path As String) As FileStream path: 作成するファイルのパスと名前。 戻り値: FileStream で指定したファイルへの読み取り/書き込みアクセスを提供する path
指定フォルダ内の全ファイルをクリア
''' ----------------------------------------------------------------------- '''''' 指定フォルダ内の全ファイルをクリア ''' ''' <param name="astrDesFolderName">指定フォルダ</param> '''True:正常, False:エラー ''' ----------------------------------------------------------------------- Function ClearFolderFile(ByVal astrDesFolderName As String) As Boolean '戻り値初期化 ClearFolderFile = False Try '指定フォルダ内の全ファイルを取得 Dim arrFiles() As String = System.IO.Directory.GetFiles(astrDesFolderName) '全ファイルクリア For Each strFile As String In arrFiles 'File.Create メソッドを使用してファイルを作成する Using fs As System.IO.FileStream = System.IO.File.Create(strFile) 'ファイルクローズ fs.Close() End Using Next '正常終了 Return True Catch ex As Exception 'エラー処理が必要な場合は、ここに記述する End Try End Function
関連する記事
⇒フォルダコピー(サブフォルダ以下も含む):[Directory.GetFiles,Directory.GetDirectories]⇒指定フォルダ内の全ファイルを削除 :[Directory.GetFiles,File.Delete]
⇒テキストファイル追記処理 :[File.ReadAllText,File.AppendAllText]
⇒テキストファイル先頭行削除処理 :[IO.StreamReader,IO.StreamWriter,Encoding.GetEncoding]
⇒ファイルサイズ取得 :[IO.FileInfo]
⇒テキストファイルレコード件数取得 :[IO.StreamReader]
⇒ファイル上書きコピー :[IO.FileInfo,File.Copy]
PR
コメント