VB.NET : Copying files from one folder to another

The interface of my Application used a font available in Windows 7 but not in Windows XP. While opening the Application, it would not show nicely (in other words, my forms were disordered esp. @ bold controls). 

So, I needed the same fonts in Windows XP or the system not having those fonts.
I did what we would do to solve the problems from my Application itself, copying those fonts to the Windows Fonts folder.

Private Sub CopyFont()
        Dim fonts(5) As String 'To store fonts name inside the folder
        Dim i As Integer = 0
        Dim fontExists As Boolean = False
        Dim sourcePath As String = String.Empty
        Dim destinationPath As String = String.Empty
        Dim fontNamewithPath As String = String.Empty
        Dim fontName As String = String.Empty

        ' Listing all fonts found in "..\Fonts\" folder
        For Each foundFontFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Fonts\", FileIO.SearchOption.SearchTopLevelOnly, "*.ttf")
            fontNamewithPath = foundFontFile
            Dim font() As String = fontNamewithPath.Split("\")
            fontName = font(font.Length() - 1)

            fonts(i) = fontName.Trim(" ")
            i += 1
        Next

        ' Verifying whether the destined folder contains all the fonts
        For Each requiredFont In fonts
            For Each oldFont As String In My.Computer.FileSystem.GetFiles("C:\Windows\Fonts\", FileIO.SearchOption.SearchTopLevelOnly, requiredFont)
                fontNamewithPath = oldFont
                Dim font() As String = fontNamewithPath.Split("\")
                fontName = font(font.Length() - 1)

                If fontName = requiredFont Then
                    fontExists = True
                End If
            Next
        Next

        ' If the destined folder doesn't contains the fonts of the source folder, copy it to the destined folder
        If fontExists = False Then
            For Each requiredFont In fonts
                sourcePath = Application.StartupPath & "\Fonts\" & requiredFont
                destinationPath = "C:\Windows\Fonts\" & requiredFont
                My.Computer.FileSystem.CopyFile(sourcePath, destinationPath, FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)
            Next
        Else
            'MessageBox.Show("Font already exists", "Install Fonts")
            'Do Nothing
        End If

    End Sub


P.S. I did the above possible with some googling and some stackoverflow posts...

TSQL Questions

1. What is the output of both the queries on a database?
CREATE TABLE dbo.Zip_code
(
  id    VARCHAR(10) NULL,
  Descr VARCHAR(max) NULL
)
GO

INSERT INTO dbo.Zip_code VALUES('1111', 'AAAA')
GO
INSERT INTO dbo.Zip_code VALUES('2222', 'bbbb')
GO
INSERT INTO dbo.Zip_code VALUES('aaaa', 'bbbb')
GO

SELECT count(*) FROM Zip_code WHERE id = '1111'
SELECT count(*) FROM Zip_code WHERE id = 1111

Options: a) 1,1     b) 1, error    c) error, error

2. What is the output of the SELECT query?
CREATE TABLE test
(
  col1 INT,
  col2 CHAR(2)
)
GO
INSERT INTO test VALUES(1,'AB')

INSERT INTO test VALUES(2,'Ab')

INSERT INTO test VALUES(3,'aB')

INSERT INTO test VALUES(4,'ab')

INSERT INTO test VALUES(5,'XY')

INSERT INTO test VALUES(6,'xy')
GO
SELECT COUNT(*) FROM test WHERE col2 in ('AB', 'aB', 'xy')

Options: a) 3     b) 6    c) None

SQL Server: CTAS - Create Table As SELECT

CTAS stands for 'Create Table As SELECT'.

This method is used when table was not created earlier and needs to be created using data from another table. The new table is created using same data types as of the prior table.

Example:

USE AdventureWorks
GO

SELECT FirstName, LastName
INTO MyTable
FROM Person.Contact
WHERE EmailPromotion = 2


Reference : http://blog.sqlauthority.com/