निर्धारित यदि फ़ाइल या निर्देशिका मौजूद है VBA मेक्रो निर्धारित करता है अगर एक फाइल या निर्देशिका मौजूद है.
व्याख्या निर्धारित करने के लिए अगर एक फाइल या निर्देशिका मौजूद सक्षम होना करने के लिए कुछ कोडिंग स्थितियों में उपयोगी हो सकता है. इस कोड को एक सीधे आगे दृष्टिकोण है कि लॉग अगर एक त्रुटि होता है जब GetAttr () का प्रयोग करने की कोशिश कर अगर एक त्रुटि होता है तो फाइल या निर्देशिका स्पष्ट रूप से मौजूद नहीं है. पूरे एक्सेल VBA प्रोग्राम इस पृष्ठ के नीचे, पर डाउनलोड करने का आनंद के लिए उपलब्ध है!
कोड 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 |
