Código
'--------------------------------------------------------------------------------------- ' Module : mFileExists ' Author : Elemental Code ' Date : 01/02/2011 ' Purpose : Check if a file exists in the most rustic way '--------------------------------------------------------------------------------------- Option Explicit Dim attr As VbFileAttribute Public Function FileExists(ByVal sPath As String) As Boolean On Error GoTo Missing attr = GetAttr(sPath) FileExists = True Exit Function Missing: FileExists = False End Function
Esta es la version estupida, facil y rustica de averiguar si un archivo existe.
Posiblemente haya aproximadamente 15.000 formas mejores pero esta funciona y la arme yo de guapo que soy.
Ademas uso esto como palanca para que un programador capo (Ejem Karcrack, Cobein, Seba123neo, BlackZeroX, Mr.Frog, LeandroA) se jueguen y saquen una version super rapida, con inline de ASM y que tire rayos por los ojos
Saludos.