目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
212 / 277 ←次へ | 前へ→

【74】FilePathを列挙するサンプル
全般  ちゃっぴ  - 04/9/13(月) 23:57 -

引用なし
パスワード
   Jakaさんが一人でがんばっているみたいなので・・・
私も一点。

FAQであるFilePathを列挙するサンプルです。

【その1 FSO Version】

【要参照】「Microsoft Scripting Runtime」

'呼び出し用
Sub CallFilePathList1()
  Dim objFSO     As FileSystemObject
  Dim strTargetPath  As String      '対象フォルダパス
  
  Set objFSO = New FileSystemObject
  
  Call EnumFilePathList1(objFSO.GetFolder(strTargetPath))
End Sub

'本体
Sub EnumFilePathList1(objFolder As Folder)
  Dim objTargetFile  As File
  Dim objSubFolder   As Folder
  
  'ファイル名を列挙
  For Each objTargetFile In objFolder.Files
    Debug.Print objTargetFile.Path
  Next objTargetFile
  
  'サブフォルダを検索
  For Each objSubFolder In objFolder.SubFolders
    Call EnumFilePathList1(objSubFolder)
  Next objSubFolder
End Sub

非常にシンプルで不具合も少ないのですが、
速度が非常に遅いのがネックです。
(初心者にもっともお勧め・・・)
6,901 hits

【74】FilePathを列挙するサンプル ちゃっぴ 04/9/13(月) 23:57 全般[未読]
【75】Re:FilePathを列挙するサンプル ちゃっぴ 04/9/14(火) 0:03 全般[未読]
【76】FilePathを列挙するサンプル(API) ちゃっぴ 04/9/14(火) 1:37 全般[未読]
【77】Re:FilePathを列挙するサンプル(API) ちゃっぴ 04/9/14(火) 1:50 全般[未読]

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
212 / 277 ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free