[سامي محمد]

وعليكم السلام ورحمة الله وبركاته
-----------

كود :

  If IO.Path.GetExtension(TextBox1.Text) = Nothing Then
            MessageBox.Show("مسار مجلد")
        Else
            MessageBox.Show("مسار ملف")
        End If

وان كنت تريد نتيجة ادق

كود :

 If System.Text.RegularExpressions.Regex.IsMatch(TextBox1.Text, "^\w{1}:\\.+\.(\w{2,4})$") = True Then
            MessageBox.Show("مسار ملف")
        Else
            MessageBox.Show("مسار مجلد")
        End If