| |
▼もぐら さん：
>超初心者ですが、宜しくお願いします。
>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を使ったコードは、何が出来るコードになっているか
記述してください
|
|
ichinose
- 15/7/24(金) 7:00 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
