تحديد ما إذا كان ملف أو دليل موجود ماكرو 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
تنزيل ملف اكسل!Determine_If_File_Or_Directory_Exists.xls |
