VBA/Excel/Access/Word/File Path/SearchFolders — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:33, 26 мая 2010
The SearchFolders Collection and ScopeFolder Objects
<source lang="vb">
Private Sub SetRootFolder()
Dim sfs As SearchFolders Dim sf As ScopeFolder Dim subsf As ScopeFolder Dim I As Integer Set sfs = Application.fileSearch.SearchFolders Set sf = Application.fileSearch.SearchScopes.Item(1).ScopeFolder With sf For Each subsf In .ScopeFolders If subsf.Path = rootFolder Then subsf.AddToSearchFolders End If Next subsf End With
End Sub
</source>