Dim instance As StdFunc = New StdFunc()
Dim filePathName As String	'ファイルのフルパス
Dim value As String			'追記する文字列
Dim returnValue As Boolean	'成功:True  失敗:False

'Overloads
returnValue = instance.FileAppend(filePathName, value)	'エンコードを指定しない場合はUTF-8

Dim instance As StdFunc = New StdFunc()
Dim filePathName As String	'ファイルのフルパス
Dim value As String			'書き出す文字列
Dim encodeStr As String		'エンコードを表す文字列　"utf8" "shift_jis" "iso-2022-jp" "euc-jp"
Dim returnValue As Boolean	'成功:True  失敗:False

'Overloads
returnValue = instance.FileAppend(filePathName, value, encodeStr)

Dim instance As StdFunc = New StdFunc()
Dim filePathName As String	'ファイルのフルパス
Dim value As String			'書き出す文字列
Dim encode As System.Text.Encoding	'エンコード
Dim returnValue As Boolean	'成功:True  失敗:False

'Overloads
returnValue = instance.FileAppend(filePathName, value, encode)

'StdFuncクラス FileAppendメソッド

Imports System
Imports System.Windows.Forms
Imports Microsoft.VisualBasic

Public Class AddIn

	Private stdf As StdFunc

	Public Sub New()
		stdf = New StdFunc()
	End Sub

	Public Sub AddIn_Start()
		Dim fname As String = "D:\tmp\output.txt"
		If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf) = False Then
			MessageBox.Show("追記に失敗しました")
			Exit Sub
		End If
		stdf.WaitMilliSec(2000)
		If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf) = False Then
			MessageBox.Show("追記に失敗しました")
			Exit Sub
		End If
		stdf.WaitMilliSec(2000)
		If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf) = False Then
			MessageBox.Show("追記に失敗しました")
			Exit Sub
		End If
		MessageBox.Show("追記に成功しました")
	End Sub

End Class

'StdFuncクラス FileAppendメソッド

Imports System
Imports System.Windows.Forms
Imports Microsoft.VisualBasic

Public Class AddIn

	Private stdf As StdFunc

	Public Sub New()
		stdf = New StdFunc()
	End Sub

	Public Sub AddIn_Start()
		Dim fname As String = "D:\tmp\output.txt"
		If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf _
		  , "euc-jp") = False Then
			MessageBox.Show("追記に失敗しました")
			Exit Sub
		End If
		stdf.WaitMilliSec(2000)
		If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf _
		  , "euc-jp") = False Then
			MessageBox.Show("追記に失敗しました")
			Exit Sub
		End If
		stdf.WaitMilliSec(2000)
		If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf _
		  , "euc-jp") = False Then
			MessageBox.Show("追記に失敗しました")
			Exit Sub
		End If
		MessageBox.Show("追記に成功しました")
	End Sub

End Class

'StdFuncクラス FileAppendメソッド

Imports System
Imports System.Windows.Forms
Imports Microsoft.VisualBasic

Public Class AddIn

	Private stdf As StdFunc

	Public Sub New()
		stdf = New StdFunc()
	End Sub

	Public Sub AddIn_Start()
		Dim fname As String = "D:\tmp\output.txt"
		If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf _
		  , System.Text.Encoding.GetEncoding(932)) = False Then
			MessageBox.Show("追記に失敗しました")
			Exit Sub
		End If
		stdf.WaitMilliSec(2000)
		If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf _
		  , System.Text.Encoding.GetEncoding(932)) = False Then
			MessageBox.Show("追記に失敗しました")
			Exit Sub
		End If
		stdf.WaitMilliSec(2000)
		If stdf.FileAppend(fname, DateTime.Now.ToString & ControlChars.CrLf _
		  , System.Text.Encoding.GetEncoding(932)) = False Then
			MessageBox.Show("追記に失敗しました")
			Exit Sub
		End If
		MessageBox.Show("追記に成功しました")
	End Sub

End Class