Small Basic でFlickr画像ダウンロードアプリ作ってみた

指定したタグを持つ画像をランダムに検索し100枚ダウンロードするアプリケーションです。

TextWindow.WriteLine("Flickrの画像を100枚保存するアプリケーションです")
TextWindow.WriteLine("検索したい画像のタグ名を入力してください")
TextWindow.Write(">")
tag = TextWindow.Read()
TextWindow.WriteLine("Downloading…")

saveDir = "C:\FlickrSample\" + tag + "\"

For i = 1 To 100
  url = Flickr.GetRandomPicture(tag)
  tmpFile = Network.DownloadFile(url)
  saveFile = saveDir + "image" + i + ".png"
  File.CopyFile(tmpFile, saveFile)
  TextWindow.WriteLine("  " + saveFile)
EndFor

TextWindow.WriteLine("Complete!")