‘ Returns a boolean indicating whether two files are equal’ Example: Debug.WriteLine(CompareFiles(“D:File1.mdb”, “D:File2.mdb”))Function CompareFiles(ByVal path1 As String, ByVal path2 As String) As Boolean Dim file1 As New System.IO.FileInfo(path1) Dim file2
‘ Returns a boolean indicating whether the specified folder has sub-foldersFunction FolderHasSubFolders(ByVal folderPath As String) As Boolean Return System.IO.Directory.GetDirectories(folderPath).Length > 0End Function
‘ Returns an array with the installed SQL Server databases’ The first param must be a valid connection string to the ‘master’ database’ Requires Imports System.Data.SqlClient” Example:’ Dim databases() As
‘ Returns an array with the names of the installed COM+ Applications’ Params: the name of the server – defaults to the local server’ Requires a reference to the COM+
‘ Returns whether a SQL Server DB with the specified name is present’ The first param must be a valid connection string to the ‘master’ database’ Requires Imports System.Data.SqlClient” Example:’
‘ Returns the names of all the tables in the database identified by the input ‘ connection string’ Requires Imports System.Data.OleDb” Example:’ Dim tables() As String = GetDatabaseTables’ (“PROVIDER=Microsoft.Jet.OLEDB.4.0; Data
‘ Restarts the default web site in IIS Sub RestartDefaultSite() Dim p As New Process() p.StartInfo.FileName = “net.exe” p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden ‘ set the parameters to STOP the service p.StartInfo.Arguments
‘ Returns the names of all the columns in the specified database table. The ‘ database is identified by the input connection string’ Requires Imports System.Data.OleDb” Example:’ Dim columns() As
‘ Validate a US phone number’ Example:’ MessageBox.Show(IsValidUsPhoneNumber(“(123) 456-7890”)) ‘ True’ MessageBox.Show(IsValidUsPhoneNumber(“(123) 456-78901”)) ‘ FalseFunction IsValidUsPhoneNumber(ByVal phnNum As String) As Boolean Return System.Text.RegularExpressions.Regex.IsMatch(phnNum, _ “^(((d{3}) ?)|(d{3}-))?d{3}-d{4}$”)End Function