PDA

View Full Version : سوال: ذخیره فایل txt راهنمائی کنید !



saeedzx
دوشنبه 20 مهر 1388, 11:06 صبح
سلام
من می خواستم بدونم چه فرمی میشه با اجرا کردن فایل exe برنامه یک فایل با نام al.txt کنار همون فایل ذخیره بشه

یعنی مثلاً این دستور ذخیره کردن
Open "c:\Bank.txt" For Append As #intfnum

ولی این دستور فایل رو در مسیر مشخصی خیره میکنه من میخوام هر جا فایل باشه همون جا ذخیره بشه

مثلاً این فرمی ولی این دستور زیر جواب نمیده !!!
Open "\Bank.txt" For Append As #intfnum

Tasiyan
دوشنبه 20 مهر 1388, 12:55 عصر
قبلا یه همچین پستی زده بودم :متفکر:
Private Sub Command1_Click()
Open App.Path + "\DAVOUD.txt" For Output As #1
Print #1, "åí ÇÑ ÓÇíå ÐíÑÏ ¡ ãÇ åãÇä ÓÇíå åííã"
Close #1
End Sub

shahram_g
دوشنبه 20 مهر 1388, 13:02 عصر
سلام
من می خواستم بدونم چه فرمی میشه با اجرا کردن فایل exe برنامه یک فایل با نام al.txt کنار همون فایل ذخیره بشه

یعنی مثلاً این دستور ذخیره کردن
Open "c:\Bank.txt" For Append As #intfnum

ولی این دستور فایل رو در مسیر مشخصی خیره میکنه من میخوام هر جا فایل باشه همون جا ذخیره بشه

مثلاً این فرمی ولی این دستور زیر جواب نمیده !!!
Open "\Bank.txt" For Append As #intfnum


برای این کار به شکل زیر مسیر را اصلاح کنید:

Open App.path & "\Bank.txt" For Append As #intfnum

mostafa_bahar
سه شنبه 21 مهر 1388, 20:13 عصر
هر دو جواب درسته دوست عزیز app.path آدرس فایل Exe رو بر می گردونه حالا اگر در کنارش داخل شاخه ای می خوای بریزی از api ساختن شاخه استفاده کن

DLL_DLL
سه شنبه 21 مهر 1388, 20:45 عصر
البته من یادمه بدون app.path هم میشد قدیما!

پشت فایلت / ندار ببین درست نمیشه ؟

Open "data.txt"

ironclip
سه شنبه 21 مهر 1388, 22:47 عصر
با سلام به همه

شاید این سورس به کارتون بیاد



با تشکر ...