VB.NETにおけるフォルダ内に存在するファイルを、タイムスタンプを基準として削除する方法

Question

はじめまして。
皆様の知恵をお借りしたく投稿させていただきます。

VB.NETにおいて、指定フォルダ内に存在するファイルを
ファイルのタイムスタンプにて判定して削除をする処理を実装したいと考えております。

---

2020/05/19日より5にち以上前の、
C:\Testフォルダ内に存在するファイルを削除する。

フォルダ構成例
C:\Test

Testディレクトリ
A.txt タイムスタンプ:20200518
B.txt タイムスタンプ:20200419

---

この場合だとB.txtファイルが削除される処理を実装したいです。

お手数ですが、ご教示願えますでしょうか。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

For Each filepath As String In Directory.GetFiles(パス, "*.txt", SearchOption.TopDirectoryOnly)

試したこと

上記のコマンドでファイルの一覧を取得した後に、
各ファイルの日付を取得出来ればいいと思うのですが、
型変換でエラーがかかってしまいうまくいきません。

補足情報（FW/ツールのバージョンなど）

Visual Studio 2015

Comments

[y_waiwai]

その型変換でエラーがかかってしまうというコードを提示しましょう

Answer 1

ファイルのタイムスタンプ（作成日時、更新日時、アクセス日時）を取得、設定する - .NET Tips (VB.NET,C#...)

これをどうぞ。

Answer 2

ご回答、ありがとうございます。
以下のようにすることでうまくいきました。

    For Each filepath As String In Directory.GetFiles(sFilePath, "ap_*.log", SearchOption.TopDirectoryOnly)
        '取得したファイルの更新日付を取得
        Dim DtUpdate As DateTime = System.IO.File.GetLastWriteTime(filepath)

        ' 本日と更新日付の差を算出
        Dim sDate As Integer = DateTime.Today.Subtract(DtUpdate).Days
        If sDate >= 10 Then
            System.IO.File.Delete(filepath)
        End If

Comments

[Zuishin]

回答が参考になって解決できたのであれば自己解決ではなくベストアンサーを選びましょう。