「FileSystemObjectでファイル入出力」の編集履歴(バックアップ)一覧に戻る

FileSystemObjectでファイル入出力 - (2008/02/06 (水) 13:04:01) のソース

// 現在のページ名
*&this_page() 

**概要
fileSystemObject によるファイル入出力を行う。

**前提条件
-[[新しいwebサイトの作成]]

**手順
default.aspx.vb を以下のように変更。

#highlight(vb.net){

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim fso As Object = Server.CreateObject("scripting.fileSystemObject")
        Dim strPath As String = "test.txt"
        Dim handle

        strPath = Server.MapPath(strPath)

        '##########################################################
        '### 書き込み
        '##########################################################

        handle = fso.OpenTextFile(strPath, OpenMode.Output, True)

        handle.WriteLine("書き込まれます。")

        handle.Close()

        '##########################################################
        '### 読み込み
        '##########################################################

        handle = fso.OpenTextFile(strPath, OpenMode.Input, True)

        Response.Write(handle.readLine())

        handle.Close()

    End Sub
End Class
}

&img(236.jpg)
記事メニュー
ウィキ募集バナー