Visual Basic

<pre lang="vb">MyTableDef = MyDb.CreateTableDef(tblName)
        ' record type
        For i = 1 To UBound(Fields)
            MyField = MyTableDef.CreateField(Fields(i), FieldType(i), Size(i))
            MyTableDef.Fields.Append(MyField)
        Next
        MyDb.TableDefs.Append(MyTableDef)
        MyDb.Close()
        Exit Sub
</pre>

Dim desktopFolder As IShellFolder = Nothing
Dim someFolder As IShellFolder = Nothing
Dim extract As IExtractImage = Nothing

'Get the parent folder IShellFolder
desktopFolder.ParseDisplayName(IntPtr.Zero, IntPtr.Zero, folderName, 0, pidl, 0)
desktopFolder.BindToObject(pidl, IntPtr.Zero, IID_IShellFolder, someFolder)

'Get the file's IExtractImage
someFolder.ParseDisplayName(IntPtr.Zero, IntPtr.Zero, shortFileName, 0, filePidl, 0)
someFolder.GetUIObjectOf(IntPtr.Zero, 1, filePidl, IID_IExtractImage, 0, extract)

Dim asStream As FileStream = New FileStream(physicalPath, FileMode.Open, FileAccess.Read)
            Dim asLen As Long = asStream.Length
            Dim fileData As Byte() = New Byte(asLen) {}
            asStream.Read(fileData, 0, asLen)
            asStream.Close()

            Dim byteLine() As Byte = New Byte() {}
            Dim strArray() As String = New String() {}
            For bdx As Integer = 0 To fileData.Length - 1

                Dim byteVal As Byte = fileData(bdx)
                If Not (byteVal = &HD) Then

                    Array.Resize(byteLine, byteLine.Length + 1)
                    byteLine(byteLine.Length - 1) = byteVal

                Else
                    Array.Resize(byteLine, byteLine.Length + 1)
                    byteLine(byteLine.Length - 1) = byteVal

                    Dim charLine() As Char = New Char() {}
                    Array.Resize(charLine, byteLine.Length + 1)

                    For cdx As Integer = 0 To byteLine.Length - 1

                        charLine(cdx) = AsciiByteToChar(byteLine(cdx))

                    Next

                    Dim value As String = New String(charLine)
                    Array.Resize(strArray, strArray.Length + 1)
                    strArray(strArray.Length - 1) = value

                    Array.Resize(byteLine, 0)
                    bdx += 1

                End If
            Next