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

###前提・実現したいこと
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
です。

KIYOSHI

2017/11/14 07:48

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

行動規範の内容に同意します

回答2件

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

ファイル管理アプリケーションの制作
投稿者/ 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

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

投稿2017/11/14 06:52

退会済みユーザー

総合スコア0

VB.NET
1Dim cul = System.Globalization.CultureInfo.InvariantCulture
2Dim fileday As String
3fileday = Today.AddDays(-7).ToString(format:="yyyyMMdd", provider:=cul)
4
5        For Each ss As String In IO.Directory.GetFiles("C:\DIR")
6            Dim fi As New IO.FileInfo(ss)
7            Dim ext As String = System.IO.File.GetCreationTime(ss).ToString("yyyyMMdd", cul)
8            If ext < fileday Then
9                ListBox1.Items.Add(ss)
10            End If
11        Next
12