Método Execute
Método Execute cuando se aplica al objeto FileSearch.
Comienza la búsqueda de los archivos especificados. Devuelve un valor Long; cero (0) si no se ha encontrado ningún archivo o un número positivo si ha encontrado uno o varios archivos.
expresión.Execute(SortBy, SortOrder, AlwaysAccurate)
expresión Requerida. Expresión que devuelve un objeto FileSearch.
SortBy MsoSortBy opcional. Método utilizado para clasificar los archivos devueltos.
| MsoSortBy puede ser una de estas constantes de MsoSortBy. |
| msoSortByFileName predeterminado |
| msoSortByFileType |
| msoSortByLastModified |
| msoSortByNone |
| msoSortBySize |
SortOrder MsoSortOrder opcional. Orden en que se clasifican los archivos devueltos.
| MsoSortOrder puede ser una de estas constantes de MsoSortOrder. |
| msoSortOrderAscending predeterminado |
| msoSortOrderDescending |
AlwaysAccurate Boolean opcional. True para que la búsqueda incluya archivos que hayan sido agregados, modificados o eliminados desde que se actualizó por última vez el índice. El valor predeterminado es True.
Para los objetos de la barra de comandos, ejecuta el procedimiento o comando integrado asignado al control de barra de comandos especificado. Para controles personalizados, utilice la propiedad OnAction para especificar el procedimiento que desea ejecutar.
Para objetos FileDialog de tipo msoFileDialogOpen o msoFileDialogSaveAs, lleva a cabo la acción del usuario justo después de llamar al método Show.
expresión.Execute
expresión Requerida. Expresión que devuelve uno de los objetos anteriores.
Ejemplo
Cuando se aplica al objeto FileSearch.
Este ejemplo busca todos los archivos en la carpeta My Documents que terminan con la extensión de archivo ".doc" y, a continuación, muestra la ubicación y el nombre de cada archivo encontrado. El ejemplo ordena también la lista de los nombres de archivos devueltos en orden alfabético ascendente.
Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.FileName = "*.doc"
If .Execute(SortBy:=msoSortbyFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End WithEste ejemplo de Microsoft Excel crea una barra de comandos y después agrega un control de botón de barra de comandos integrado a esa barra. El botón ejecuta la función de Excel Autosuma. Este ejemplo utiliza el método Execute para sumar el rango de celdas seleccionado cuando aparece la barra de comandos.
Dim cbrCustBar As CommandBar
Dim ctlAutoSum As CommandBarButton
Set cbrCustBar = CommandBars.Add("Custom")
Set ctlAutoSum = cbrCustBar.Controls _
.Add(msoControlButton, CommandBars("Standard") _
.Controls("AutoSum").Id)
cbrCustBar.Visible = True
ctlAutoSum.Execute