指定したパスのフォルダ内にあるファイル（.txt)のみをリストボックスに表示させ、ファイル名をリネームしたいと考えております。
Dim i As Integer
Dim ContentItem As String
Dim cnt As Integer = My.Computer.FileSystem. _
GetFiles(Label_21.Text & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt").Count
※ ContentItem = Dir("C:\" & "\*.txt")
For i = 0 To cnt - 1
ListBox.Items.Add(ContentItem)
If Strings.Right(ContentItem, 4) = ".txt" Then
'ここにリネーム処理を入れます
End If
ContentItem = Dir()
Next
c:\に格納されているテキストファイルは"テキスト名YYYYMM.txt"といったようにファイル名の後に年月を追加する予定です。
まだ、リネーム処理のプログラムは作成していないのですが、現時点で例えば"aaa.txt"があった場合、※のContentItemでは、"C:\aaa.txt.txt"となってしまいます。
※のContentItemで、"C:\aaa.txt"としたい場合にはどのようにすればいいでしょうか？
> 現時点で例えば"aaa.txt"があった場合、※のContentItemでは、"C:\aaa.txt.txt"となってしまいます。
> ※のContentItemで、"C:\aaa.txt"としたい場合にはどのようにすればいいでしょうか？
単に，aaa.txt.txtというファイルが存在しているだけではないでしょうか。
というか，本当に，aaa.txtが存在するのですか？
・エクスプローラの「登録されている拡張子は表示しない」がONになっている，ということはないか
・コマンドプロンプトでDIRとして表示されるファイル名がaaa.txtであることは確かめたか
・・・・・お恥ずかしい。
Yuo様のおっしゃるとおりでした(^_^;
ありがとうございました。