質問: 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 です。
回答: ``` 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 ``` このようなコードを書いて実行してみたのですがファイルがリストボックスにされません。