vb2010Listboxについて

Listboxに、テキストファイル名だけを、表示させたいのですが、解りません
どのうにすれば、できますか下記がその、プログラムに成ります。
宜しくお願いいたします。

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) & "年\" & Str(intMonth) & "月\"

If Nen.SelectedIndex = -1 And Tuki.SelectedIndex = -1 Then '選択されていない
MessageBox.Show("選択されてません。" & vbCrLf & "西暦と月を選択して下さい。", "結果")
Else '選択されている
'選択されたディレクトリが無かったらエラーを表示
If GetDir <> Kensaku Then _
MessageBox.Show("指定された年は、在りません", "警告", _
MessageBoxButtons.OK, MessageBoxIcon.Warning)

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


End If

No.2 回答者： めぐみん_ 回答日時： 2021/12/01 06:23

度々気になるのは、西暦に対して月のフォルダが必ずしも12ヶ月分存在しないケースがあるのですか？

もしそうなら西暦年毎に存在している月の値だけを、ComboBoxに入れたら良いように思えますが何せ初心者レベルのジジィなのでＶＢは難しいですね。

No.1 回答者： naktak 回答日時： 2021/11/30 22:03

色々なチェックは省いています。

求めているのはこういうことですよね？
fsoを利用する必要はありません。

Imports System.IO

Public Class Form1
''' <summary>
''' ルートディレクトリ。
''' </summary>
Private Shared ReadOnly RootDirectory As String = "G:\日記"

''' <summary>
''' ボタンを押した契機で実施すると仮定
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub executeButton_Click(sender As Object, e As EventArgs) Handles executeButton.Click
If Nen.SelectedIndex = -1 OrElse Tuki.SelectedIndex = -1 Then
MessageBox.Show("選択されてません。" & vbCrLf & "西暦と月を選択して下さい。", "結果")
Return
End If

Dim scanDirectory As String = Path.Combine(RootDirectory, Nen.Text, Tuki.Text)
If Not Directory.Exists(scanDirectory) Then
MessageBox.Show("指定されたディレクトリは存在しません。" & vbCrLf & "西暦と月を選択して下さい。", "結果")
Return
End If

' サブディレクトリは走査しない
ListBox1.Items.Clear()
For Each file As String In Directory.GetFiles(scanDirectory, "*", SearchOption.TopDirectoryOnly)
ListBox1.Items.Add(Path.GetFileName(file))
Next
End Sub
End Class