Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
949 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【77335】application file serch もぐら 15/7/23(木) 16:39 発言[未読]
【77340】Re:application file serch ichinose 15/7/24(金) 7:00 発言[未読]
【77335】application file serch
発言  もぐら E-MAIL  - 15/7/23(木) 16:39 -
引用なし
パスワード
   超初心者ですが、宜しくお願いします。
FileSearch()
　　Dim FSO As Object, Folder As Variant
　　Set FSO = CreateObject("Scripting.FileSystemObject")
　　For Each Folder In FSO.GetFolder("G:\").SubFolders
　　　　Debug.Print Folder.Path
　　Next Folder
ふるいバージョンのマクロが動作しないので、これを使って、読みにいきたいのですが、記述がわかりません＞＜　
もともとは
Set fs = Application.FileSearch 'ﾌｧｲﾙの有無
With fs
　　.LookIn = "G:\"
　　.Filename = "*." & n
　　If .Execute(SortBy:=msoSortByFileName, _
　　　　　　SortOrder:=msoSortOrderAscending) > 0 Then
　　　　For j = 1 To .FoundFiles.Count
　　　　　　m = m + 1
　　　　Next j
こんなふうになっていました。
御教授お願いいたします。。
【77340】Re:application file serch
発言  ichinose  - 15/7/24(金) 7:00 -
引用なし
パスワード
   ▼もぐら さん：
>超初心者ですが、宜しくお願いします。
>FileSearch()
>　　Dim FSO As Object, Folder As Variant
>　　Set FSO = CreateObject("Scripting.FileSystemObject")
>　　For Each Folder In FSO.GetFolder("G:\").SubFolders
>　　　　Debug.Print Folder.Path
>　　Next Folder
>ふるいバージョンのマクロが動作しないので、これを使って、読みにいきたいのですが、記述がわかりません＞＜　
>もともとは
>Set fs = Application.FileSearch 'ﾌｧｲﾙの有無
>With fs
>　　.LookIn = "G:\"
>　　.Filename = "*." & n
>　　If .Execute(SortBy:=msoSortByFileName, _
>　　　　　　SortOrder:=msoSortOrderAscending) > 0 Then
>　　　　For j = 1 To .FoundFiles.Count
>　　　　　　m = m + 1
>　　　　Next j
>こんなふうになっていました。
>御教授お願いいたします。。


FSOの使い方は、このサイトでFSOで検索すれば、沢山事例が表示されます。


www.happy2-island.com/vbs/cafe02/capter00201.shtml

www.atmarkit.co.jp/ait/articles/0804/09/news153.html

この辺りで調べることから　はじめてください。


>もともとは

から提示されたFileSearchを使ったコードは、何が出来るコードになっているか
記述してください
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
949 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free