Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


56753 / 76732 ←次へ | 前へ→

【24724】Re:ファイルのパス名取得方法について
発言  小僧  - 05/5/6(金) 11:48 -

引用なし
パスワード
   ▼mitu さん:
こんにちは。
【その1 FSO Version】が解りやすいと思われますので、
使用例をあげてみます。

Sub CallFilePathList1()
  Dim objFSO     As FileSystemObject
  Dim strTargetPath  As String      '対象フォルダパス
  
⇒追加
  strTargetPath = ActiveWorkbook.Path
  
  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

任意のエクセルの標準モジュールに上記のコードを
記載して実行させた後に、イミディエトウィンドウ
(コードを表示させた画面でCtrl + G)に
ブックと同じフォルダに存在するファイルが表示されると思います。
0 hits

【24719】ファイルのパス名取得方法について mitu 05/5/6(金) 8:48 質問
【24720】Re:ファイルのパス名取得方法について 小僧 05/5/6(金) 10:29 発言
【24723】Re:ファイルのパス名取得方法について mitu 05/5/6(金) 11:27 お礼
【24724】Re:ファイルのパス名取得方法について 小僧 05/5/6(金) 11:48 発言
【24739】Re:ファイルのパス名取得方法について mitu 05/5/6(金) 17:29 お礼
【24740】Re:ファイルのパス名取得方法について ちゃっぴ 05/5/6(金) 17:44 発言

56753 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free