FileSystemObjectでファイル入出力 - おのれ鍋奉行が！

FileSystemObjectでファイル入出力

概要

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

前提条件

• 新しいwebサイトの作成

手順

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

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
 

not found (236.jpg)