ايجاد فايل متني با پسوند inf.*

[MohammadGh2011]

سلام
من تو فورمم مثلا يك تكست باكس دارم و يك كامندباتن ميخوام هر چي تو تكست باكسم نوشته ميشه
وقتي دكمه رو كه زدم مثلا تو درايو :D يك فايل با پسوند inf كه داخل اون فايل متني رو كه تو تكس باكس نوشتم ذخيره بشه.
1- حالا با چه كدي ميتونم اون فايل رو ذخيره كنم؟
2- و چه طوري ميتونم اون فايل رو به صورت مخفي (hidden)ذخيره كنم؟
ممنونم

[MohammadGh2011]

سلام دوستان خودم پيدا كردم
با اين كد ميشه

Set d = CreateObject("scripting.filesystemobject")
Set d = d.createtextfile("d:\ashkan.inf", True)
d.write ("Hello ")
حالا شما ميتونيد سوال دومم رو جواب بديد يعني وقتي اون فايل ايجاد شد مخفي بشه!!!

[farboodj1375]

سلام. با این کد میتونی فایل رو به صورت فوق مخفی در بیاری که با خود ویندوز اصلا نمیشه فایلو دید.(text1 محتوای مسیر فایل هست)

مخفی سازی:
Shell "attrib +h +s " & Text1.Text


قابل مشاهده کردن فایل مخفی شده:
Shell "attrib -h -s " & Text1.Text

[MP.C-Writer]

خیلی راحت تر از اون می تونید با یه تابع api مسئله رو حل کنید. اسم تابع اینه: SetFileAttribute . به کمک این تابع، آدرس فایل و یه شماره بهش می دید تا کارش رو انجام ده. به نظرم شماره 2 واسه هیدن کردن باشه.


SetFileAttributes("E:\aks.jpg",2)

[returnx]

سلام دوستان خودم پيدا كردم
با اين كد ميشه

Set d = CreateObject("scripting.filesystemobject")
Set d = d.createtextfile("d:\ashkan.inf", True)
d.write ("Hello ")
حالا شما ميتونيد سوال دومم رو جواب بديد يعني وقتي اون فايل ايجاد شد مخفي بشه!!!
خوب چه کاریه از FSO استفاده میکنید!؟
از دستور داخلی Vb استفاده کنید:

Open "D:\salam.inf" For Output As #1
Print #1, Text1.Text
Close #1