[azizos]

السلام عليكم
الحل هو كالتالي :

كود :

متغيير به المسار المطلوب يمكنك الاستعانة ب Dialogbox
Dim path As String = "C:\System Volume Information"
متغيير لحفظ خصائص المجلد المطلوب
        Dim logDirectoryProperties As System.IO.DirectoryInfo

تحديد المجلد المطلوب :
        logDirectoryProperties = My.Computer.FileSystem.GetDirectoryInfo(path)

        Try
هنا يحاول البرنامج تسجيل الخصائص ، عدد الملفات الفرعية ، المجلدات ، الحجم ، التاريخ ...
            logDirectoryProperties.GetDirectories()
        Catch ex As Exception
عند ظهور الخطأ يعني هدا عدم السماح للبرنامج بفتح المجلد المطلوب
  MessageBox.Show(ex.Message)
            End
        End Try
ان لم يظهر خطأ فكل شيء بخير .
        MessageBox.Show("عدد الجلدات الفرعية هو : " & logDirectoryProperties.GetDirectories.Length)

بالتوفيق اخي .