Error 13 No Coinciden los tipos en funcion DIR
Publicado por Angel Daniel (6 intervenciones) el 22/06/2017 20:00:10
Tengo una Funcion para verificar que un archivo exista con el siguiente codigo:
Perdonen las lineas "Dim archivo As Variant" y "archivo = EFile" ya que son patagas de ahogado (desesperacion)
me marca el error 13 no coinciden los tipos en la linea marcada con negritas (if Dir(archivo)
he estado buscando como definir una variable tipo file y asignarle una variable string... pero no encontre.
he usado en otras partes la funcion dir sin problemas pero en este codigome esta dando lata. mepueden decir donde tengo el error?
Gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Function ExisteArchivo(EFile As String)
ExisteArchivo = False
If Len(Trim(EFile)) = 0 Then EFile = Null
If IsNull(EFile) Then
MsgBox "Sin Archivo Definido", vbInformation, "ERROR EN EL NOMBRE"
GoTo Salir
End If
Dim archivo As Variant
archivo = EFile
If Dir(archivo) = 0 Then
MsgBox "Archivo " + EFile + " NO EXISTE", vbInformation, "Archivo NO EXISTE"
GoTo Salir
End If
ExisteArchivo = True
Salir:
End Function
Perdonen las lineas "Dim archivo As Variant" y "archivo = EFile" ya que son patagas de ahogado (desesperacion)
me marca el error 13 no coinciden los tipos en la linea marcada con negritas (if Dir(archivo)
he estado buscando como definir una variable tipo file y asignarle una variable string... pero no encontre.
he usado en otras partes la funcion dir sin problemas pero en este codigome esta dando lata. mepueden decir donde tengo el error?
Gracias
Valora esta pregunta


0