[عبدالله الدوسري]

أهلاً 

هذا الكود يؤدي نفس الغرض

كود :

Dim FullName As String = "C:\Windows"
If(Directory.Exists(FullName)) Then
    If Directory.GetFiles(FullName, "*.*").Count > 0 Then
        Form2.Label1.Text = "يوجد ملفات"
    Else
        Form2.Label1.Text = "لا توجد ملفات"
    End If
    Form2.Show()
End If