Reply to thread

Message: <blockquote data-quote="NO_MeRcY" data-source="post: 14125301" data-attributes="member: 289641">[CODE]    Dim dr As TimeSpan = TimeSpan.FromMilliseconds(200)    Using str As ObexGetStream = session.[Get](Nothing, ObexConstant.Type.FolderListing)        Dim parser As New ObexFolderListingParser(str)        parser.IgnoreUnknownAttributeNames = True        Dim item As ObexFolderListingItem = Nothing        Dim items As New List(Of ListViewItem)()        While (InlineAssignHelper(item, parser.GetNextItem())) IsNot Nothing            If TypeOf item Is ObexParentFolderItem Then                Continue While            End If            Dim filefolderitem As ObexFileOrFolderItem = TryCast(item, ObexFileOrFolderItem)            Dim isfolder As Boolean = TypeOf filefolderitem Is ObexFolderItem            Dim temp As New ListViewItem(New String() {filefolderitem.Name, FormatSize(filefolderitem.Size, isfolder), FormatDate(filefolderitem.Modified), FormatDate(filefolderitem.Accessed), FormatDate(filefolderitem.Created)}, GetIconIndex(Path.GetExtension(filefolderitem.Name), isfolder))            temp.Tag = isfolder            temp.Name = filefolderitem.Name            items.Add(temp)            If old.Add(dr) < DateTime.Now Then                old = DateTime.Now                bgwWorker.ReportProgress(0, temp.Text)            End If        End While        e.Result = items.ToArray()    End Using[/CODE]</blockquote>

Verification: Winadiyakata thappara keeyak tibeda?

Top Bottom