PIECE OF CAKE - Detecta se Arquivo Existe

Function CheckFileExist (nPath As String, nFile As String) As Boolean
    ' © 2007-20 Alefe & Bete Processamento de Dados LTDA - ME, except where noted, all rights reserved.
    '      Author: André Bernardes
    '     Contact: andreluizbernardess@gmail.com | https://goo.gl/EUMbSe/
    ' Application: AutoGenClosing®
    ' Description: Detecta se um determinado arquivo está no referido Path.

    Dim obj_fso As Object

    Set obj_fso = CreateObject("Scripting.FileSystemObject")

    Let CheckFileExist = obj_fso.fileExists(nPath & "\" & nFile)

End Function

#A&A #PIECEOFCAKE #POC #VBA

Consulte-nos

⬛◼◾▪ Social Media ▪◾◼⬛

• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

• VBA Specialist® • VBA Excel Specialist®

• VBA Access Specialist® • VBA Dashboards Specialist®

• VBA Infografics Specialist® • VBA Pharma Specialist® 

⬛◼◾▪ CONTATO ▪◾◼⬛

brazilsalesforceeffectiveness@gmail.com