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

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][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





Production Japan Import Application. Since 1998