Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
20080 / 76735 ←次へ　｜　前へ→
【62078】Re:フォルダ内のファイル数を知りたい
回答  つるりん  - 09/6/20(土) 20:08 -
引用なし
パスワード
   Sub try()
Dim myFso As Scripting.FileSystemObject
Dim myFiles As Scripting.Files
Dim myFile As Scripting.File
Dim i As Long
Set myFso = New Scripting.FileSystemObject
Set myFiles = myFso.GetFolder("******").Files
i = 0
For Each myFile In myFiles
　　i = i + 1
Next
Debug.Print i
End Sub
上記でどうでしょう？
*****←フォルダパス
0 hits
▼ 【62077】フォルダ内のファイル数を知りたい たかお 09/6/20(土) 19:21 質問
【62078】Re:フォルダ内のファイル数を知りたい つるりん 09/6/20(土) 20:08 回答≪
【62079】Re:フォルダ内のファイル数を知りたい つるりん 09/6/20(土) 20:31 発言
【62080】Re:フォルダ内のファイル数を知りたい kanabun 09/6/20(土) 21:14 発言
【62081】Re:フォルダ内のファイル数を知りたい neptune 09/6/20(土) 21:36 発言
【62083】Re:フォルダ内のファイル数を知りたい たかお 09/6/20(土) 22:10 お礼
【62084】Re:フォルダ内のファイル数を知りたい kanabun 09/6/21(日) 0:00 発言
【62087】Re:フォルダ内のファイル数を知りたい たかお 09/6/21(日) 9:08 お礼
【62082】Re:フォルダ内のファイル数を知りたい たかお 09/6/20(土) 21:40 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
20080 / 76735 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free