home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2002 July / VPR0207A.ISO / OLS / IRVINE0_4_1A / irvine0_4_1a.lzh / doc / sample.vbs < prev   
Text File  |  2002-02-03  |  248b  |  8 lines
  1.   set irvine = CreateObject("Irvine.Api")
  2.   MsgBox("Irvineのバージョンは " & irvine.Version & " です。")
  3.   set item = CreateObject("Irvine.Item")
  4.   for i = 0 to irvine.ItemCount - 1
  5.     item.Data = irvine.Items(i)
  6.     MsgBox item.Url
  7.   next
  8.