FSO 指定したファイルの読取・追加・書込をするFSOTextFile

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

Option Explicit


Sub FSOTextFile(ByVal TxtPath As StringByVal Character As String)
'****************************************************************
'FSO 指定したファイルの読取・追加・書込をするFSOTextFile
'****************************************************************
'
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim Fso, f
Set Fso = CreateObject("Scripting.FileSystemObject")
Set f = Fso.OpenTextFile(TxtPath, ForWriting, True)
f.Write Character
f.Close
End Sub


Private Sub test()
FSOSetDLL 'FSO参照設定
Dim p As String
Dim m As String
Dim s As String
p = ThisWorkbook.Path
m = "test.txt"
s = "テスト"
Call FSOTextFile(p & "\" & m, s)
'テスト
End Sub

 

2000年01月01日|[VBサンプルコード]:[FSO]