ایجاد فایل notepad [بایگانی]

oYaMaa

سه شنبه 04 مهر 1391, 18:14 عصر

MohammadGh2011

سه شنبه 04 مهر 1391, 19:01 عصر

سلام دوستان...
من اطلاعات برنامم رو داخل یه فایل notepad که با فرمت ini هستش ذخیره میکنم.
چطور میتونم کاری کنم که اگه این فایل در مسیرش وجود نداشت ایجاد بشه و یکسری نوشته داخلش ذخیره بشه؟
ممنون...!
سلام عليکم
از دستور open (کاربا فايلها)استفاده کنيد.نمونه هاي زيادي در اينترنت موجود است.موفق باشيد

oYaMaa

سه شنبه 04 مهر 1391, 19:15 عصر

ممنون از جوابتون!
ولی تایپیک ایجاد کردم که همین نمونه ها رو بهم معرفی کنید!!!

MohammadGh2011

سه شنبه 04 مهر 1391, 22:28 عصر

براي ايجاد يک فايل متني از دستور زير استفاده کنيد:

Dim x As Integer
x = FreeFile
Open "c:\myfile.ini" For Output As x
Print #x, Text1.Text
Close x

در دستور بالا يک فايل با فرمت ini در درايو c شما با محتواي تکست باکس 1 ايجاد ميکنه.

موفق باشيد

oYaMaa

چهارشنبه 05 مهر 1391, 10:01 صبح

ممنون دوست عزیز!
چرا این کد برای درایو C عمل نکرد؟
چه کار کنم تا برای C هم جواب بده.

از طرفی چطور قبلش وجود این فایل رو چک کنم؟ که اگه نبود ایجاد بشه.
ممنون!

MohammadGh2011

چهارشنبه 05 مهر 1391, 11:26 صبح

سلام عليکم

چرا این کد برای درایو C عمل نکرد؟
چه کار کنم تا برای C هم جواب بده.
شما درايو C حتما نداري!!چه اروري داد؟

از طرفی چطور قبلش وجود این فایل رو چک کنم؟ که اگه نبود ایجاد بشه.
ممنون!
براي چک کرن وجود يک فايل ميتونيد از تابع Dir استفاده کنيد و يک دستور شرطي که اگر وجود نداشت اون رو با دستور قبلي يعني open درست کنه در غير اين صورت اگر وجود داشت که پيام بده و بگه

If Dir("c:/filename.txt") <> "" Then
MsgBox "File Exist!"
Else
MsgBox "File Does Not Exist!"
End If

موفق باشيد

oYaMaa

چهارشنبه 05 مهر 1391, 14:23 عصر

درایو C دارم، فکر میکنم اجازه دسترسی نمیده!
چون خودم هم داخل درایو C به زور میتونم فایل نوتپد بسازم.
اروری هم که میده run-time error 75 هستش و به خط سوم کد شما ایراد میگیره.
ولی برای درایو های دیگه مشکلی نداره و کار میکنه.
ممنون!