この記事は2018年11月19日に投稿しました。
目次
- 作者: 川口輝久,河野勉
- 出版社/メーカー: 技術評論社
- 発売日: 1999/04
- メディア: 単行本
- 購入: 2人 クリック: 16回
- この商品を含むブログ (3件) を見る
1. はじめに
こんにちは、iOSのエディタアプリPWEditorの開発者の二俣です。
今回は業務で使用しているVB6でフォルダ内のフォルダ・ファイルの一覧する方法についてです。
2. VB6でフォルダ内のフォルダ・ファイルの一覧を取得する
VB6でフォルダ内のフォルダ・ファイルの一覧を取得する方法は、FolderオブジェクトのSubFolders関数とGetFiles関数を使用します。
実装例
' ファイルシステムオブジェクトを生成します。 Dim fso As FileSystemObject Set fso = New FileSystemObject ' 対象のフォルダオブジェクト(例では"C:¥Sample")を取得します。 Dim targetFolder As Folder Set targetFolder = fso.GetFolder("C:¥Sample") ’ 不要となったファイルシステムオブジェクトをクリアします。 Set fso = Nothing ' サブフォルダ数分繰り返します。 Dim subFolder As Folder For Each subFolder In targetFolder.SubFolders ' subFolderがC:¥Sample"フォルダ内のサブフォルダになります。 ' サブフォルダに対する処理を行います。 Next subFolder ' 不要となったサブフォルダオブジェクトをクリアします。 Set subFolder = Nothing ' 対象のファイルオブジェクト数分繰り返します。 Dim targetFile As File For Each targetFile In targetFolder.Files ' targetFileがC:¥Sample"フォルダ内のファイルになります。 ' ファイルに対する処理を行います。 Next targetFile ' 不要となったファイルオブジェクトをクリアします。 Set targetFile = Nothing ' 不要となった対象フォルダオブジェクトをクリアします。 Set targetFolder = Nothing
3. おわりに
SubFolders関数とFiles関数ですが、ループで回すことを考えると一つの関数でフォルダとファイルを取得できた方が使いやすいかな、と思います。
かんたんプログラミング Visual Basic 6 応用編
- 作者: 川口輝久,河野勉
- 出版社/メーカー: 技術評論社
- 発売日: 1999/07/09
- メディア: 大型本
- クリック: 5回
- この商品を含むブログ (1件) を見る
紹介している一部の記事のコードはGitlabで公開しています。
興味のある方は覗いてみてください。
私が勤務しているニューラルでは、主に組み込み系ソフトの開発を行っております。
弊社製品のハイブリッドOS Bi-OSは高い技術力を評価されており、特に制御系や通信系を得意としています。
私自身はiOSモバイルアプリやウィンドウズアプリを得意としております。
ソフトウェア開発に関して相談などございましたら、お気軽にご連絡ください。
また一緒に働きたい技術者の方も随時募集中です。
興味がありましたらご連絡ください。
EMAIL : info-nr@newral.co.jp / m-futamata@newral.co.jp
TEL : 042-523-3663
FAX : 042-540-1688