File-I/O EAFunctions

EA_TextFileAppendSave

機能説明

配列に格納されたテキスト情報を指定ファイルに追記書き込みを行います。また、指定への書き込み先のファイルが存在しない場合、新規に作成します。

定義

Public Function EA_TextFileAppendSave (

ByVal ea_path As String,
ByRef ea_data() As String

) As Integer

引数

ea_path

読み込み対象のテキストファイルの絶対パスを設定します。

ea_data()

読み込まれたテキスト情報が格納されます。

戻り値

正常：(0)が返却されます。
異常：(Err.Number)が返却されます。

Sub Main() Dim ea_path As String Dim ea_data(2) As String Dim ea_fcnt As Integer ea_fcnt = funcSaveFileDlg1("", ea_path) If ea_fcnt = 0 Then Exit Sub ea_data(0) = "a1" ea_data(1) = "b2" ea_data(2) = "c3" ea_fcnt = EA_TextFileAppendSave(ea_path, ea_data) MsgBox "結果:" & ea_fcnt End Sub