掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ファイル名の取得について (ID:139919)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
指定したパスのフォルダ内にあるファイル（.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"としたい場合にはどのようにすればいいでしょうか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.