التاكد من وجود فولدر داخل فولدر اخر

[UserUser2]

من فضلكم لدى فولدر رئيسي يحتوى على فولدرات اخرى تحمل ارقام وليس اسماء محتاج كود اتاكد منه من وجود الفولدر من عدمه 
المسار هكذا 
("D:\System\PDF\" & "me.id")

[Moosak]

أهلا بك أخي @UserUser2 🙂

ضع هذه الدالة في موديول  :

Public Function IsFileExists(txtPath As String) As Boolean

' To check whether a given file or folder exists or not
If Len(Dir(txtPath, vbDirectory)) = 0 Then
   IsFileExists = False
Else
   IsFileExists = True
End If
End Function

بعدها في النموذج أو مكان كتابة الكود للتحقق من وجود الملف أكتبها هكذا :

Dim txtPath as String

txtPath = "D:\System\PDF\" & me.id

If IsFileExists(txtPath) = True Then

	'الأمر الذي تريد فعله إذا كان المجلد موجود
Else

	'الأمر الذي تريد فعله إذا لم يكن المجلد موجود 

End IF

 

[UserUser2]

جزاك الله خيرا استاذ @Moosak
من فضلك ممكن كود للحذف 

 

[Moosak]

4 دقائق مضت, UserUser2 said:

من فضلك ممكن كود للحذف

تفضل أخي العزيز :  🙂 

Dim txtPath as String
txtPath = "D:\System\PDF\" & me.id

Kill txtPath

 

[Moosak]

وهذه دالة أخرى في حال لم تعمل معك الطريقة السابقة 

الدالة توضع في موديول وتظيف المكتبة التالية :Microsoft Scripting Runtime

Public Function DleteFolder(FolderPath As String)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFolder FolderPath, True
Set fs = Nothing
End Function

ثم تستخدمها بنفس الطريقة السابقة مع تعديم اسم الدالة :

Dim txtPath as String
txtPath = "D:\System\PDF\" & me.id

DleteFolder txtPath