VB.NET GetFiles()に条件を付けたい

Question

###前提・実現したいこと
VB.NETでファイルの管理アプリケーションを作成しています
log のファイルの FileInfo オブジェクトの配列をGetFiles()で取得するときに
ファイルが作成されてから7日たったファイルのみ取得するようにしたいのですが
どのように条件を付ければよいかわかりません
###発生している問題・エラーメッセージ

###該当のソースコード

Dim cul = System.Globalization.CultureInfo.InvariantCulture
Dim day7 As String = Today.AddDays(-7).ToString("yyyyMMdd", cul)
'で7日前の日付をyyyyMMddの形式で取得します。
'ファイルの作成日時もこのような形式で取得します。
'7日前のyyyyMMdd値よりも小さいyyyyMMdd値のファイルのみを取得したいと思っています。

###試したこと

###補足情報(言語/FW/ツール等のバージョンなど)
開発環境は
Visual Studio 2017 Professional
Visual Basic 2017
.NET Framework 4.6.1

Windows 10 Professional x64
です。

Comments

[KIYOSHI]

試したこと、どううまく行かないかを書いてください。

Answer 1

全部同じ投稿者ではないのですか？

ファイル管理アプリケーションの制作
投稿者/ SSSKKK (1回)-(2017/11/13(Mon) 11:58:43)
http://bbs.wankuma.com/index.cgi?mode=al2&namber=85652

指定したファイルの削除
投稿者/ VB始めました (1回)-(2017/11/14(Tue) 10:17:59)
http://bbs.wankuma.com/index.cgi?mode=al2&namber=85674

VB.NET　GetFiles()に条件を付けたい ← このスレッド
SSSKKK_0729 投稿 2017/11/14 12:19
https://teratail.com/questions/100392

そうだとすると、それは大変失礼なこと。止めましょう。誰も相手にしてくれなくなりますよ。

Answer 2

Dim cul = System.Globalization.CultureInfo.InvariantCulture
Dim fileday As String
fileday = Today.AddDays(-7).ToString(format:="yyyyMMdd", provider:=cul)

        For Each ss As String In IO.Directory.GetFiles("C:\DIR")
            Dim fi As New IO.FileInfo(ss)
            Dim ext As String = System.IO.File.GetCreationTime(ss).ToString("yyyyMMdd", cul)
            If ext < fileday Then
                ListBox1.Items.Add(ss)
            End If
        Next

このようなコードを書いて実行してみたのですがファイルがリストボックスにされません。