‘ 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
‘ Retrieves the description of a file from the registry’ or a null string if the file’s extension isn’t registered’ Example: Debug.WriteLine(GetFileDescription(“D: yc.zip”))Function GetFileDescription(ByVal filePath As String) As String ‘
‘ 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
‘ 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+
‘ Validate a US ZIP code’ Example:’ MessageBox.Show(IsValidUsZip(“12345”)) ‘ => True’ MessageBox.Show(IsValidUsZip(“12345-1234”)) ‘ => True’ MessageBox.Show(IsValidUsZip(“12345-12345”)) ‘ => FalseFunction IsValidUsZip(ByVal zip As String) As Boolean Return System.Text.RegularExpressions.Regex.IsMatch(zip, _ “^(d{5}-d{4})|(d{5})$”)End Function