List 12　ADOコンポーネントを使ったファイルの作成

---

  1： ' 定数。詳細はMDAK 2.5 SDKを参照
  2： adModeWrite = 2  ' 書き込みモード
  3： 
  4： ' Recordオブジェクトのオープンモード
  5： adCreateCollection = &h2000    ' コレクションを作る（ディレクトリ操作）
  6： adCreateNonCollection = 0      ' コレクションを作らない（ファイル操作）
  7： adCreateOverwrite = &h4000000  ' 上書きモード
  8： 
  9： ' ストリームの定数
 10： adDefaultStream = -1    ' デフォルトストリーム
 11： 
 12： Dim objConn, objRec, objStm
 13： 
 14： ' Exchange 2000 Serverと接続する
 15： Set objConn = CreateObject("ADODB.Connection")
 16： objConn.Provider = "ExOLEDB.DataSource"
 17： objConn.Open "http://www.foobar.co.jp/public/myData"
 18： 
 19： ' ADODB.Recordオブジェクトを使ってファイルを作成する
 20： Set objRec = CreateObject("ADODB.Record")
 21： objRec.Open "test.txt", objConn, adModeWrite, _
   　             adCreateNonCollection Or adCreateOverwrite
 22： 
 23： ' ADODB.Streamオブジェクトを使ってファイルに書き込む
 24： Set objStm = objRec.Fields(adDefaultStream).Value
 25： objStm.WriteText "書き込みたい内容"
 26： 
 27： objStm.Close
 28： Set objStm = Nothing
 29： 
 30： objRec.Close
 31： Set objRec = Nothing
 32： 
 33： objConn.Close
 34： Set objConn = Nothing