vb201について

Public Class 履歴

Private Sub 検索_Click(sender As System.Object, e As System.EventArgs) Handles 検索.Click

Dim fso : fso = CreateObject("Scripting.FileSystemObject")
Dim Drve_Data As String, Drve_True As Boolean

Drve_Data = "G"
Drve_True = fso.DriveExists(Drve_Data)
'日記ディレクトリのチェック
Dim Dir_Nane As String = Drve_Data + ":\日記\"
Dim intYear As Integer = DateTime.Now.Year '西暦
Dim intMonth As Integer = DateTime.Now.Month '月

Dim GetDir As String = Dir_Nane & Nen.Text & "年\" & Tuki.Text & "月\"
Dim Kensaku As String = Dir_Nane & Str(intYear) & "年\" & Tuki.Text & "月\"

If Nen.SelectedIndex = -1 And Tuki.SelectedIndex = -1 Then '選択されていない
MessageBox.Show("選択されてません。" & vbCrLf & "西暦と月を選択して下さい。", "結果")
Else '選択されている
'選択されたディレクトリが無かったらエラーを表示

'MsgBox(GetDir & vbCrLf & Kensaku)
MsgBox("GetDir:" & GetDir & vbCrLf & "Kensaku:" & Kensaku)
If GetDir <> GetDir Then _
MessageBox.Show("指定された年と月ディレクトリは、在りません", "警告", _
MessageBoxButtons.OK, MessageBoxIcon.Warning)
'Return
'MsgBox(GetDir & vbCrLf & Kensaku)
MsgBox("GetDir:" & GetDir & vbCrLf & "Kensaku:" & Kensaku)
'選択されたディレクトリが有ったらtxtファイル名をListboxに表示
If GetDir = GetDir Then _
MessageBox.Show("指定された年は、在ります", "警告", _
MessageBoxButtons.OK, MessageBoxIcon.Warning)
'Return

End If

これですと、過去のディレクトリか検索出来ません。
過去のディレクトリを検索するには、どのようにすればできますか
　それと、最新のディレクトリの検索方法も教えていただきたいと思います

ディレクトリ内のtxtファイルをListboxに表示するには、どうすればできますか

No.1 回答者： めぐみん_ 回答日時： 2021/12/01 11:17

どうしてもＦＳＯに拘っていると知恵袋のように成りかねないかもですよ。

回答者は掛け持ちしてたりしますから。

今回の質問では『過去のフォルダを検索できない』とありますが、一番の原因と思われるのは。

＞Dim intYear As Integer = DateTime.Now.Year '西暦
＞Dim intMonth As Integer = DateTime.Now.Month '月

これではないかな？
Nowによって『実行した今現在の年月』を取得してますから、今年の今月以外は当てはまらないのでは？

それは
＞Dim Kensaku As String = Dir_Nane & Str(intYear) & "年\" & Tuki.Text & "月\"

これが不要な訳ですよね？

https://masagoroku.com/%E3%80%90vb-net%E3%80%91% …

Dim Kensaku As String = Dir_Nane & Str(intYear) & "年\" & Tuki.Text & "月\"

↓

Dim Kensaku As String = Dir_Nane & Nen.SelectedItem & "年\" & Tuki.SelectedItem & "月\"

じゃないかな？

あと

＞Dim GetDir As String = Dir_Nane & Nen.Text & "年\" & Tuki.Text & "月\"

これいらないでしょ。
それに

＞If GetDir <> GetDir Then
＞If GetDir = GetDir Then

同じ変数を比較しても意味ないです。

前の質問の回答にあったようＦＳＯは忘れるべきです。