![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
いつもお世話になっています。
今、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)
-
checkbox付きListViewで デフォルトチェック
Visual Basic(VBA)
-
-
4
コマンドでのFTP転送が進まない。
その他(コンピューター・テクノロジー)
-
5
vba Listviewでのチェックボックスのイベントを教えてください
Excel(エクセル)
-
6
windows11のUSB接続の機器がcomポートに表示されない。
Windows 10
-
7
自分の部署・担当を言うとき、どういう言い方が正しいでしょうか?? 会社のときは、弊社といいますが、部
その他(ビジネス・キャリア)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッチファイル 二つ上のディ...
-
エクセルvbaでdocuworksprinter...
-
Excel 相対パス
-
xcopyコマンドの進行状況を表示...
-
SaveAsの保存先について
-
ExcelVBAの使い方 ¥の使い方...
-
エクセルVBAで一つ上の階層...
-
指定したフォルダ内の最新ファ...
-
ExcelのVBAで上書き保存を確...
-
コマンドプロンプトのコピー関...
-
Shell関数内で変数を使うことに...
-
Eclipse
-
VB.NETで参照設定
-
Visual Studio 2013
-
C++でネットワークパスのファイ...
-
VBAでファイル名の取得方法
-
AccessからExcel最小化
-
Cの関数で自分自身のパス取得
-
【Excel VBA】Power Qurry のソ...
-
ShellExecute で file://... を...
マンスリーランキングこのカテゴリの人気マンスリー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ファイルから...
-
開いているファイルを削除し、...
おすすめ情報