質問するログイン新規登録

Q&A

解決済

1回答

3880閲覧

配列で一覧取得したパスからファイル名だけを抽出する方法

退会済みユーザー

退会済みユーザー

総合スコア0

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

0クリップ

投稿2020/08/12 01:29

編集2020/08/12 02:12

0

0

フォルダ内のファイルをパスで一覧取得したのですが、それをパスからファイル名のみに変換したいのですが、方法が分かりません。
調べたところPath.GetFileName() を使えばできると書かれていたのですが、どのようにすればよいのでしょうか。
コードは以下のようになっております。

※追記
ListBoxへの表示をAddRange()からAdd()に変更しました。
修正版のコードが最新のものとなっています。

コード Dim fbd As FolderBrowserDialog = New FolderBrowserDialog() 'フォルダ選択画面を表示し、OKボタンが押下たとき選択フォルダのパスを表示 If fbd.ShowDialog() = DialogResult.OK Then txtFolder.Text = fbd.SelectedPath 'フォルダ内の一覧をパス形式で配列に取得 Dim files As String() = Directory.GetFiles( txtFolder.Text, "*", SearchOption.TopDirectoryOnly ) '配列をListBoxへ表示 lstFile.Items.Clear() lstFile.Items.AddRange(files) End If
コード(修正済み) Dim fbd As FolderBrowserDialog = New FolderBrowserDialog() 'フォルダ選択画面を表示し、OKボタンが押下たとき選択フォルダのパスを表示 If fbd.ShowDialog() = DialogResult.OK Then txtFolder.Text = fbd.SelectedPath 'フォルダ内の一覧をパス形式で配列に取得 Dim filePath() As String = Directory.GetFiles( txtFolder.Text, "*", SearchOption.TopDirectoryOnly) '配列をListBoxへ表示 lstFile.Items.Clear() For i As Integer = 0 To UBound(filePath) lstFile.Items.Add(filePath(i)) Next End If

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

guest

この質問の投稿者はすでに退会しているため、質問者からの返信がない点にご留意ください。

回答1

0

ベストアンサー

コード Dim fbd As FolderBrowserDialog = New FolderBrowserDialog() 'フォルダ選択画面を表示し、OKボタンが押下たとき選択フォルダのパスを表示 If fbd.ShowDialog() = DialogResult.OK Then txtFolder.Text = fbd.SelectedPath 'フォルダ内の一覧をパス形式で配列に取得 Dim filePath() As String = Directory.GetFiles( txtFolder.Text, "*", SearchOption.TopDirectoryOnly) '配列をListBoxへ表示 lstFile.Items.Clear() For i As Integer = 0 To UBound(filePath) lstFile.Items.Add(Path.GetFileName(filePath(i))) Next

投稿2020/08/12 02:28

退会済みユーザー

退会済みユーザー

総合スコア0

この質問の投稿者はすでに退会しているため、質問者からの返信やベストアンサーの選定がない点にご留意ください。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.25%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問