Visual Basic

Private Sub StoreImage(sPath As String)<br />
Dim bytBLOB() As Byte<br />
Dim intNum As Integer<br />
Dim rs as new RecordSet<br />
<br />
If (Trim(sPath) <> "") Then<br />
    rs.Open "Select * From tTable1",cn,,adOpenDynamic,adLockOptimistic<br />
    'Start store pic<br />
    intNum = FreeFile<br />
    Open sPath For Binary As #intNum<br />
    ReDim bytBLOB(FileLen(Trim(sPath)))<br />
    Get #intNum, , bytBLOB<br />
    Close #1<br />
    'End store pic<br />
    rs.AddNew<br />
    rs("Img").AppendChunk bytBLOB<br />
    'Other Fields...."<br />
    rs.Update<br />
End If<br />
End Sub<br />
<br />

AlexeiXX3 wrote:

i know i could use int but i wanted to use tinyint

Private Sub tvwExplorer_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvwExplorer.AfterSelect<br />
        'Get reference to the selected node<br />
        Dim dirInfo As DirectoryInfo = New DirectoryInfo(e.Node.FullPath)<br />
        'Clear all the items in the listview<br />
        lvwExplorer.Items.Clear()<br />
        'Check if the Directory exist or not<br />
        If (dirInfo.Exists) Then<br />
            'Get reference to all the files<br />
            Dim fileInfos As FileInfo() = dirInfo.GetFiles()<br />
            'Add all the files to the ListView one by one<br />
            Dim info As FileInfo<br />
            For Each info In fileInfos<br />
                'First check the extension, make sure it's a url file<br />
                If info.Extension = ".url" Then<br />
                    Try<br />
                        'Open the file and read it<br />
                        'Convert the file path into a string for the StreamReader<br />
                        Dim infoPath As String = info.FullName<br />
                        ' Create an instance of StreamReader to read from each file.<br />
                        Dim sr As StreamReader = New StreamReader(infoPath)<br />
                        'Read the complete url file text<br />
                        Dim url As String<br />
                        url = sr.ReadToEnd()<br />
                        'Extract only the url text<br />
                        <big>This is where I need to extract the http text</big><br />
<br />
                        Dim item As ListViewItem = New ListViewItem<br />
                        item = lvwExplorer.Items.Add(info.Name)<br />
                        ' Link the ImageList object<br />
                        item.ImageIndex = 2<br />
                        'Add the items<br />
                        item.SubItems.Add(url.ToString())<br />
                        item.SubItems.Add(info.LastAccessTime.ToString())<br />
                        sr.Close()<br />
                    Catch ex As Exception<br />
                        'Ignor Exception<br />
                        Return<br />
                    End Try<br />
                End If<br />
            Next<br />
        End If<br />
    End Sub

'Read the url file and get the url text<br />
Dim c(3) As Char<br />
Dim url As String<br />
url = sr.ReadLine()<br />
url = sr.ReadLine()<br />
url = sr.ReadLine()<br />
url = sr.Read(c, 0, c.Length)<br />
url = sr.ReadLine()