Macro: "Guardar como" con comprobación de existencia del archivo

[Antoni]

Hola:

Procedimiento de "Guardar como" con comprobación de existencia del archivo a guardar.

Private Sub GuardarComo(Directorio As Variant, Libro As Variant)


Dim Objeto_Archivos As Object

Dim Lista_Archivos As Object

Dim Archivos As Object

Dim Archivo As Object

Dim Encontrado As Boolean


Set Objeto_Archivos = CreateObject("Scripting.FileSystemObject")

Set Lista_Archivos = Objeto_Archivos.GetFolder(Directorio)

Set Archivos = Lista_Archivos.Files


For Each Archivo In Archivos

   If Archivo.Name = Libro Then Encontrado = True

Next


If Encontrado = True Then

   MsgBox "El archivo: " & Libro & "  ya existe en este directorio.", vbInformation, Directorio

Else

   ActiveWorkbook.SaveAs Directorio & "\" & Libro

End If


End Sub[/CODE]

la forma de ejecutar el procedimiento:

[b]

[CODE]GuardarComo "C\MiDirectorio", "MiLibro.xls"[/CODE]

[/b]

Salu2. Antoni