日付範囲を指定したファイル検索

Question

カレンダーから日付を指定して、その範囲で検索することができません。
開始のカレンダー(dtpStart)と終了のカレンダー(dtpEnd)の２つがあります。
カレンダーの値はテキスト(txtcover1,txtcover2)に転写して表示します。
以下のようにコードを書いたのですが、falseとしてかえってきてしまい、ぜんぜん日付範囲指定ができません。
どうしたらよいか教えていただけますでしょうか。
よろしくお願いいたします。

Dim lwtime As New IO.FileInfo(f)
Dim LT As Date = lwtime.LastWriteTime
Dim d1 As Date = dtpStart.Value
Dim d2 As Date = dtpEnd.Value
'範囲なし
txtcover1.Text = dtpStart.Value.ToString("yyyy/MM/dd")
 txtcover2.Text = dtpEnd.Value.ToString("yyyy/MM/dd")
If txtcover1.Text = "" Or txtcover2.Text = "" Then
'Console.WriteLine(f)
 MessageBox.Show(LT)
'範囲あり
ElseIf txtcover1.Text <> "" And txtcover2.Text <> "" Then
'Console.Write(d1 <= LT And LT <= d2)
MessageBox.Show(d1 <= LT And LT <= d2)
End If

Answer 1

date.compareを使用して解決しました

Answer 2

date.conpareを使用して解決しました。

Answer 3

おそらくDateTimePickerコントロールを使用されているかと思いますが、
GUI上での選択の有無にかかわらず、Valueプロパティには現在日時が初期値として設定されます。
ですので、TextBoxが空欄になることは無いかと思われます。

また、このValueプロパティの値としては時分秒まで考慮する必要があると思われますので、
真偽値の判定についてはこちらも確認してみてはいかがでしょうか。

Answer 4

falseとしてかえってきてしまい

これはどこの処理のことですか？ここ？
txtcover1.Text = dtpStart.Value.ToString("yyyy/MM/dd")
txtcover2.Text = dtpEnd.Value.ToString("yyyy/MM/dd")

ここじゃないとしたら、検索している箇所に問題がありそうですが、tomo.inaさんのところに挙げているソースには、肝心のtxtcover1も2も出てきていないので判断がつきません。

ちなみにdtpStartとEndは名前から推測すると、DateTimePickerコントロールと思いますが、Valueの初期値は本日日付だそうです。
https://msdn.microsoft.com/ja-jp/library/system.windows.forms.datetimepicker.value(v=vs.110).aspx

Answer 5

falseがかえってくるとは、txtcover1やtxtcover2に値が
入っていないということなのでしょうか？

それとも日付は入っているが、日付範囲指定で検索ができないということでしょうか？
そうであれば、検索している箇所の記載をよろしくお願いします。

Comments

[退会済みユーザー]

ご返信の回答になっているかわからないのですが。。
なぜか、取りたい更新日時ではなく、falseやtrueでかえってきてしまいます。
検索しているおおもとは以下です。その後いろいろ条件分岐はさせていますが。
'''
Dim files As String() = System.IO.Directory.GetFiles(fpath, "*", System.IO.SearchOption.AllDirectories)
For Each f As String In files
'''

textcover1,textcover2の初期値は空白です。
日付を選択しなけれtextcover1,textcover2には値は入りません。
しかし、日付を選択していなくても「開始」を押して実行すると、textcover1,textcover2には本日の日付が入ってしまっています(本当は日付選択がなければ空白のままでいてほしい)

if文をいれなければファイルの更新日は下記で取れます。
'''
Dim lwtime As New IO.FileInfo(f)
Dim LT As Date = lwtime.LastWriteTime
'''

[tomo.ina]

なぜfalseが返ってくるのかはわかりませんが、
System.IO.Directory.GetFiles(fpath, "*", System.IO.SearchOption.AllDirectories)
で指定したパス内に存在するファイルは取得できているのでしょうか？

dtpStartが入力されているかどうかで
「txtcover1.TextdtpStart.Value.ToString("yyyy/MM/dd")」とするか
「txtcover1.Text=""」とするか条件分岐したほうがよいと思います。

[退会済みユーザー]

date.compareを使用して解決しました