今日の日付から5日を削除する方法を考え出すのに苦労しています...
テキストファイル配列の検索結果を比較してから、今日の日付と比較する次の簡単なコードがあります。テキストファイル内の日付が今日より古い場合は削除され、そうでない場合は削除されます。
しかし、私が欲しいのは、テキストファイルの日付が5日以上古い場合は削除することです。
これは英語の日付形式で使用されています。
Sub KillSuccess()
Dim enUK As New CultureInfo("en-GB")
Dim killdate As String = DateTime.Now.ToString("d", enUK)
For Me.lo = 0 To UBound(textcis)
If textcis(lo).oDte < killdate Then
File.Delete(textcis(lo).oPath & ".txt")
End If
Next
End Sub
ありがとう
AddDays
メソッドを使用できます。次のようなコードで:
Dim today = DateTime.Now
Dim answer = today.AddDays(-5)
msdn.Microsoft.com/en-us/library/system.datetime.adddays.aspx
あなたのコードを作るでしょう
Sub KillSuccess()
Dim killdate = DateTime.Now.AddDays(-5)
For Me.lo = 0 To UBound(textcis)
If textcis(lo).oDte < killdate Then
File.Delete(textcis(lo).oPath & ".txt")
End If
Next
End Sub