确定文件或目录存在 VBA宏确定是否存在一个文件或目录。
解释为了能够确定是否存在一个文件或目录，可在某些情况下有用的编码。此代码是一个简单的办法，如果一个记录时出现错误尝试使用通过getattr（），如果发生错误则文件或目录显然并不存在。 整个VBA Excel程序可用于在本页面底部，下载欣赏！
码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
下载Excel文件！Determine_If_File_Or_Directory_Exists.xls |
