![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
既に書かれている回答でも問題無さそうでは ありますが、(見かけ上)他の
やり方もありますので、書いておきます。
System.IO.Path.GetExtension(fileName)
でも同様のことが可能です。(内部的には同じ事をしているようですが…)
ファイル名がString配列に入っているならば
Dim fileNames() As String
(ここでファイル名を配列に格納)
For Each fileName As String In fileNames
If System.IO.Path.GetExtension(fileName).ToLower = ".txt" Then
ListBox1.Items.Add(fileName)
End If
Next
みたいな感じで、または判定元のファイル名もListBoxに入っているなら
For Each itm As Object In ListBox1.Items
If System.IO.Path.GetExtension(itm.ToString).ToLower = ".txt" Then
ListBox2.Items.Add(itm.ToString)
End If
Next
みたいな書き方で可能かと思います。
For Each とか、String.ToLower とか、Object.ToString とか、
分からない部分があったら、別途ヘルプ等で調べてみてください。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?e8efa67)
No.1
- 回答日時:
例えばファイル名をfileNameというString型の変数に格納したとします。
その時、そのファイルの拡張子("."を含む)は
fileName.Substring(fileName.LastIndexOf("."c))
で得られます。
例えば、拡張子が".txt"の場合のみListBoxに加える、という場合は
If fileName.Substring(fileName.LastIndexOf("."c)).Equals(".txt") Then
ListBox.Add(fileName)
End If
になります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- XML エクセルのマクロについて教えてください。 3 2023/02/06 09:06
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
- その他(開発・運用・管理) フォルダの中にファルダを作成してファイルを格納するバッチコマンド 1 2022/06/30 11:39
- その他(プログラミング・Web制作) フォルダ内の特定 拡張子のファイルを一括実行するBat ファイルについて 4 2022/04/17 09:51
- PHP ファイルアップロードに関してのセキュリティについてアドバイスお願い致します 1 2023/08/20 00:25
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- その他(プログラミング・Web制作) Excel vbaでフォルダー内のpptをpptxにdocをdocxに変換 6 2022/09/01 21:03
- Windows 10 どうしたらパソコンに詳しくなれる?? 5 2022/04/04 19:09
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
多数のサブディレクトリ内のフ...
-
テキストファイルで提出とは?
-
.txtではなく.logの方が良いの...
-
Windowsのバッチファイルを利用...
-
Windows マシンでFTPバッチが動...
-
ハードディスク上書き用大容量...
-
【Excel】 VBAを使って毎回名前...
-
バッチ処理でファイルの中身を...
-
XCOPY でファイルかフォルダか...
-
リストボックスから選択した拡...
-
バッチファイルについて
-
VBAでワークシートを引数として...
-
ファイルの最後に文字列挿入
-
wikiでローカルファイルのリン...
-
javaで大量のファイルを読み込...
-
大量のフォルダからひとつのフ...
-
コマンドプロンプトのエラーに...
-
コマンドプロンプトの「%1」と...
-
クリップNOTEというソフトを使...
-
exeファイルを実行するとコマン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
VBAでワークシートを引数として...
-
.txtではなく.logの方が良いの...
-
拡張子を元に戻す
-
多数のサブディレクトリ内のフ...
-
COPYコマンドで結合すると余計...
-
ファイルの最後に文字列挿入
-
Windowsのバッチファイルを利用...
-
バッチファイル 複数ファイル...
-
renameコマンドについて
-
psqlでエラーログをとりたい
-
テキストファイルで提出とは?
-
forfilesで検索したファイルを...
-
VBAでエクセルをtxtに変換する...
-
テキスト(txt)→ワード(docx)へ...
-
UWSCでテキストファイルを開い...
-
バッチファイルで文字列削除に...
-
wikiでローカルファイルのリン...
-
ExcelVBA テキストファイルUNIC...
-
コマンドプロンプトで指定した...
おすすめ情報