Autor Tema: Saber si un fichero existe  (Leído 1122 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 196
Saber si un fichero existe
« en: Abril 21, 2020, 04:05:29 pm »
Palabras clave: FSO, averiguar, saber, archivo, fichero
Autor: Xavi
Extraído de: Centro de desarrollo de Office


Objetivo
Averiguar si un fichero existe mediante FSO. Es la alternativa a Dir(strFileName, vbArchive) que puede dar errores cuando strFileName = ""

Código: [Seleccionar]
Public Function ExistsFile(strFileName As String) As Boolean
    Dim fso As Object
   
    Set fso = CreateObject("Scripting.FileSystemObject")
   
    On Error Resume Next
    If fso.FileExists(strFileName) = False Then
        ExistsFile = False
    Else
        ExistsFile = True
    End If
   
    If Err <> 0 Then
        ExistsFile = False
    End If
   
    Set fso = Nothing
       
End Function

« Última modificación: Abril 21, 2020, 04:09:53 pm por xavi »