| |
超初心者ですが、宜しくお願いします。
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
こんなふうになっていました。
御教授お願いいたします。。
|
|
もぐら
- 15/7/23(木) 16:39 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
≪
