'スレリスト取得 Public Function GetThreadList(ServerRoot As String, BoardName As String) As Collection Dim list As Collection Dim thrfile() As String Dim i As Long Dim thread As CThread Dim Name As String Dim start As Long Dim ahttp As CTinyHTTP
For i = 0 To UBound(thrfile) - 1 If InStr(thrfile(i), "<") > 0 Then '一時追加*********** Set thread = New CThread thread.DatName = Left(thrfile(i), InStr(thrfile(i), "<") - 1)
Name = Right(thrfile(i), Len(thrfile(i)) - InStr(thrfile(i), ">"))