Determine si el archivo o directorio existe La macro VBA determina si un archivo o directorio existe.
Explicación Para poder determinar si un archivo o directorio existe puede ser útil en algunas situaciones de codificación. Este código es un método sencillo que registra si un error se produce al intentar utilizar la GetAttr () si un error se produce entonces el archivo o directorio no existe claridad. Todo el programa de VBA Excel está disponible para su descarga en la parte inferior de esta página, diviértete!
Código Public Sub DetermineIfFileDirectoryExists()
Dim DetermineFileExists As Integer
Dim PathOfName As String
Range("C8").Value = ""
Range("C8").Interior.ColorIndex = 0
' If the file does not exist the program will log an error
On Error Resume Next
PathOfName = Range("C5").Value + "\" + Range("C6").Value
DetermineFileExists = GetAttr(PathOfName)
Select Case Err.Number
Case Is = 0
Range("C8").Value = "The File or Directory Exists"
Range("C8").Interior.ColorIndex = 4
Case Else
Range("C8").Value = "The File or Directory does NOT Exists"
Range("C8").Interior.ColorIndex = 3
End Select
On Error GoTo 0
End Sub
Descargar archivo de Excel!Determine_If_File_Or_Directory_Exists.xls |
