C# VB Web システム開発の部屋

システム開発で役に立つコードを厳選したブログです。

【VB.NET】過去日付のフォルダを削除する<フォルダ名=yyyyMMdd(日付)の場合>

 

’サンプルコード

Dim dt As Date = '日付(yyyy/MM/dd)'←これより過去の日付は削除される
Dim Folders As String() = Directory.GetDirectories
('フォルダのパス', "*", SearchOption.AllDirectories)

For I As Integer = 0 To Folders.Length - 1   If IsDigit(Path.GetFileName(Folders(I))) = True Then      If CInt(dt.ToString("yyyyMMdd")) > CInt(Path.GetFileName(Folders(I))) Then
       Try          Directory.Delete(Folders(I), True)        Catch ex As Exception          'エラー処理
       End Try      End If    End If Next

 

VB.NET