|
超初心者ですが、宜しくお願いします。
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
こんなふうになっていました。
御教授お願いいたします。。
|
|