Check File Existence

[Guest]

Hi all. How do I check in VBA Excel the existence of a specified file in a
specified directory and display its status. Thanks

 

[Norman Jones]

Hi Catalin,

Try:
'=============>>
Public Function FileExists(sPath As String, _
Optional sFName As String) As Boolean
FileExists = Len(Dir(sPath & sFName)) > 0
End Function
'<<=============

An example of usage might be:
'=============>>
Sub TestIt()
MsgBox FileExists("C:\MyFolder\", "aBook.xls")
End Sub
'<<=============

 

[Guest]

many thanks. it does work, but I've got another question: as the message box
returns true or false how can I pass this result to a variable?

 

[Norman Jones]

Hi Catalin,

Try:

'=============>>
Sub Testit()
Dim blExists As Boolean

blExists = FileExists("C:\MyFolder\", "aBook.xls")
End Sub
'<<=============

 

[Francisco MTY]

1.-
Revisa este link:

WD2000: Función VBA para comprobar si archivo o documento están abiertos

http://support.microsoft.com/kb/209189/es


2.-

existe.bat

@echo off
del /q c:\ok.txt
if exist "LA RUTA DE TU ARCHIVO & NOMBRE DEL MISMO" (
echo "El archivo existe" > c:\ok.txt
) else (
echo "El archivo no existe" > c:\ok.txt )
@echo on


sub existe()
Shell ("c:\existe.bat")
Open "c:\ok.txt" For Input As #1
Do Until EOF(1)
Line Input #1, vartexto
MsgBox vartexto
Loop
Close #1
end sub()

 

[Guest]

MANY THANKS

Hi Catalin,

Try:

'=============>>
Sub Testit()
Dim blExists As Boolean

blExists = FileExists("C:\MyFolder\", "aBook.xls")
End Sub
'<<=============