ファイル保存

質問

Textbox内の文字を外部のtxtファイルに保存するにはどうしたらいいのでしょうか？
分かりやすく教えてください!お願いします!

回答No.1

noname#22222 · ベストアンサー

まあ、僅か１行のコードを書けばいいです。

Private Sub コマンド5_Click()
　　FileWrite "C:\Temp\Text.txt", テキスト3
End Sub

こんな感じで、TextBox[テキスト3]を"C:\Temp\Text.txt"に出力できます。
Function ですが、結果を受け取らない書き方でもOKです。
Microsoft Script Runtime は組み込む必要があります。

Public Function FileWrite(ByVal FileName As String, _
　　　　　　　　　　　　　ByVal Text As String) As Boolean
On Error GoTo Err_FileWrite
　　Dim fso As FileSystemObject
　　Dim txs As TextStream

　　Set fso = New FileSystemObject
　　Set txs = fso.CreateTextFile(FileName, True)
　　txs.Write Text
　　FileWrite = True
Exit_FileWrite:
　　Exit Function
Err_FileWrite:
　　MsgBox Err.Description & "(FileWrite)", vbExclamation, " 関数エラーメッセージ"
　　Resume Exit_FileWrite
End Function

お礼

ありがとうございます！

このやり方でやってみます！