28-03-17, 04:01 PM
28-03-17, 06:10 PM
السلام عليكم
تفضل الكود
تفضل الكود
كود :
Dim path As String = "C:\folder"
If IO.Directory.Exists(path) Then
Dim b As Boolean = IO.Directory.EnumerateFileSystemEntries(path).Any
If b Then
MsgBox("المجلد ليس فارغ")
Else
MsgBox("المجلد فارغ")
End If
Else
MsgBox("لم أجد المجلد")
End If
29-03-17, 02:18 AM
(28-03-17, 06:10 PM)مساعدة كتب : [ -> ]السلام عليكمالله يحفظك اخي
تفضل الكود
كود :
Dim path As String = "C:\folder"
If IO.Directory.Exists(path) Then
Dim b As Boolean = IO.Directory.EnumerateFileSystemEntries(path).Any
If b Then
MsgBox("المجلد ليس فارغ")
Else
MsgBox("المجلد فارغ")
End If
Else
MsgBox("لم أجد المجلد")
End If
دائما متألق
جزاك الله خيرا