Visual Basic

Imports System.Io
.
.
.
Public Shared Function GetFileCount(ByVal folderPath As String) As Integer
    If Not Directory.Exists(folderPath) Then
        Throw New DirectoryNotFoundException("The specified path was not found.")
    End If

    Dim filenames As String()
    filenames = Directory.GetFiles(folderPath)
    Return filenames.Length
End Function

<br />
Imports System.IO<br />
<br />
<br />
Private Function GetFileCount(Byval path as String) as Integer<br />
        Dim dirInfo As New IO.DirectoryInfo(path)<br />
        Dim files() As FileInfo = dirInfo.GetFiles()<br />
        return files.GetUpperBound(0) + 1<br />
End Function<br />

Nilish wrote:

I initially added the framework but still getting errors.

Regards,

Satips.

Imports System.Text.RegularExpressions
.
.
.
Public Shared Function EmailAddressIsValid(ByVal address As String) As Boolean
   Dim strRegex As String = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}" & _
                            "\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\" & _
                            ".)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
   Dim re As New Regex(strRegex)
   If re.IsMatch(address)
        Return True
    Else
        Return False
End Function

<br />
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
Dim objRegEx As New System.Text.RegularExpressions.Regex("^[\w-\.]+@([\w-]+\.)+[\w-]{2,4}$")<br />
    If objRegEx.IsMatch(TextBox1.Text) Then<br />
        ErrorProvider1.SetError(sender, "")<br />
    Else<br />
        ErrorProvider1.SetError(sender, "Email address is not valid")<br />
    End If<br />
End Sub<br />