FSO 指定したファイルの読取・追加・書込をするFSOTextFile
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Sub FSOTextFile(ByVal TxtPath As String, ByVal 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 |