いつもお世話になっています。
今、VisualStudio.NETのVB.NETを使用して勉強しているものです。
現在、特定のフォルダからその中に入っているファイルを
リストボックスに表示させたいと思っています。
フルパスを表示させることはできたのですが、ファイル名のみの表示がうまくいきません。
どなたか教えていただけないでしょうか。
以下のようにコードを書いております。
一度、TextBox1にフォルダのパスをコピーする仕組みになっています。
GetFileName関数を使用すればいいのかもしれませんが、
うまく組み合わせることができません。
どうぞよろしくお願いいたします。
Private Sub GetAllFiles(ByVal folder As String, _
ByVal searchPattern As String, ByRef files As ArrayList)
'folderにあるファイルを取得する
Dim fs As String() = _
System.IO.Directory.GetFiles(Me.TextBox1.Text, searchPattern)
'ArrayListに追加する
files.AddRange(fs)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim subFolders As New ArrayList()
Dim files As New ArrayList()
'TextBox1以下のファイルをすべて取得
GetAllFiles(Me.TextBox1.Text, "*.*", files)
'ListBox1に結果を表示する
Me.ListBox1.Items.Clear()
Me.ListBox1.Items.AddRange(files.ToArray())
End Sub
No.2ベストアンサー
- 回答日時:
お世話になります。
これだけで十分かと思われます。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fullPathes() As String = _
System.IO.Directory.GetFiles("C:\", "*.*") '*.* なら指定はいらないんでは?
Me.ListBox1.Items.Clear()
For Each fullPath As String In fullPathes
Me.ListBox1.Items.Add(System.IO.Path.GetFileName(fullPath))
Next
End Sub
丁寧なご回答ありがとうございます。
このとおりにしたら動きました!
内容についてはあらためて勉強させていただきます。
今後ともよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 16:59
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Visual Basic(VBA) エクセル VBAについて教えてください 2 2023/04/26 13:25
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/09 10:33
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excel VBA マクロ フォルダ名を取得
Visual Basic(VBA)
-
String"から型'Double'への変換は無効です。 とエラーが出ます。
Visual Basic(VBA)
-
コマンドでのFTP転送が進まない。
その他(コンピューター・テクノロジー)
-
-
4
vba Listviewでのチェックボックスのイベントを教えてください
Excel(エクセル)
-
5
windows11のUSB接続の機器がcomポートに表示されない。
Windows 10
-
6
自分の部署・担当を言うとき、どういう言い方が正しいでしょうか?? 会社のときは、弊社といいますが、部
その他(ビジネス・キャリア)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルvbaでdocuworksprinter...
-
バッチファイル 二つ上のディ...
-
アプリケーションのインストー...
-
fopenでのパス指定
-
Excel 相対パス
-
EXCEL(VBA)で指定フォルダ内の...
-
VBAでの共有パスにつきまして
-
SaveAsの保存先について
-
エクセルのマクロで特定フォル...
-
xcopyコマンドの進行状況を表示...
-
コマンドプロンプトのコピー関...
-
VBS パスに変数を入れたい
-
VBA★PDFをPDFアプリで印刷し...
-
SendKeysステートメント
-
【VB.NET】App.configにファイ...
-
Atom上でc言語を用いてgnuplot...
-
相対パスが使えない
-
【Excel VBA】Power Qurry のソ...
-
1行単位のデータをテキストファ...
-
ショートファイルネーム→ロング...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルvbaでdocuworksprinter...
-
バッチファイル 二つ上のディ...
-
VBAでパワーシェルを実行したい...
-
VBA一覧取得 再投稿
-
【VB.NET】App.configにファイ...
-
エクセルVBAで一つ上の階層...
-
初心者powershellのPS1ファイル...
-
ExcelVBAの使い方 ¥の使い方...
-
EXCEL(VBA)で指定フォルダ内の...
-
SaveAsの保存先について
-
Excel 相対パス
-
パスワード保護されたExcelファ...
-
【VBA】ExcelマクロでCSVファイ...
-
xcopyコマンドの進行状況を表示...
-
エクセルのマクロで特定フォル...
-
VBA★PDFをPDFアプリで印刷し...
-
VBS パスに変数を入れたい
-
コマンドプロンプトのコピー関...
-
【VBA】複数のtxtファイルから...
-
開いているファイルを削除し、...
おすすめ情報