Localizar un archivo

El siguiente código muestra cómo obtener la/s ubicacion/es de un archivo en una ruta determinada, utilizando el objeto de FileSearch incluido en el objeto Application.

<br />
Function LocateFile(strFileName as String)<br />
   Dim vItem As Variant<br />
   With Application.FileSearch<br />
      .FileName = strFileName<br />
      .LookIn = "C:\"<br />
      .SearchSubFolders = True<br />
      .Execute<br />
      For Each vItem In .FoundFiles<br />
         Debug.Print vItem<br />
      Next vItem<br />
   End With<br />
End Function<br />

Fuente: Microsoft

A cabo de descrubrir del.icio.us…

y me gusta.

http://del.icio.us/lumbanico

Y para hacer una copia de seguridad:

http://rentzsch.com/notes/backingUpDelicious