テキストファイルへの追加書き込み (ID:108808)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じでいいとおもいます。 Dim MyFil As String Dim intFileNo As Integer MyFil = "C:\usr\Grp.txt" intFileNo = FreeFile If Dir$(MyFil) = "" Then Open MyFil For Output As #intFileNo Print #intFileNo, Text1.Text Close #intFileNo Else Open MyFil For Append As #intFileNo Print #intFileNo, Text1.Text Close #intFileNo End If