ایجاد فایل متنی از محتوای یک Textbox

[hamid-nice]

سلام

چطور می شه از محتوای text5 در فایل ضمیمه یک فایل متنی ساده در هارد ایجاد کرد ؟

[Abbas Amiri]

سلام
از الگوی زیر استفاده کنید


Sub SaveString2TextFile(strText As String, sPath As String)
If Dir(sPath) <> "" Then Kill sPath
Open sPath For Binary Access Write As #1
Put #1, , strText
Close #1
End Sub
'Example:
'SaveString2TextFile MyTextBox, "C:\sampleText.txt"



لینک زیر را هم ببینید
ایجاد فایل نگین برای پرداخت حقوق (http://barnamenevis.org/showthread.php?321931-%D8%A7%DB%8C%D8%AC%D8%A7%D8%AF-%D9%81%D8%A7%DB%8C%D9%84-%D9%86%DA%AF%DB%8C%D9%86-%D8%A8%D8%B1%D8%A7%DB%8C-%D9%BE%D8%B1%D8%AF%D8%A7%D8%AE%D8%AA-%D8%AD%D9%82%D9%88%D9%82)