「FileSystemObjectでファイル入出力」の編集履歴（バックアップ）一覧はこちら

FileSystemObjectでファイル入出力 - (2008/02/06 (水) 12:28:47) の最新版との変更点

追加された行は緑色になります。

削除された行は赤色になります。

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

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

**前提条件
なし

**手順
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
}

// 現在のページ名
*&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)