Visual Basic

The FSO model is contained in the Scripting type library, which is located in the file Scrrun.dll. If you don't already have a reference to it, you can create one.

To create a reference to the Scripting type library (Scrrun.dll) 

1. On the Project menu, click Add Reference, and then click the COM tab. 
2. Choose Microsoft Scripting Runtime from the Component Name list, and then click Select. 

You can now use the Object Browser to view the FSO model's objects, collections, properties, methods, events, and constants. 

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 />