کار با فایل ها؟

[rezarko]

سلام .من دو سوال در مورد کار با فایل هاداشتم .ممنون میشم راهنمایی کنید.

1_ یه برنامه ساخت که مثلاً اگر در سیستم فایل "C:\23.txt" وجود داشته باشه اون رو درون text1.text نشون بده واگرنه در یک پیغام بگه "شماره اشتباه میباشد"

2_ یک برنامه ساخت که اگر بخواهیم فایل متنی را به اسم "example" را ذخیره کنیم اما فایلی به این اسم قبلا ذخیره شده باشه به اخر اسم این فایل "2" اضافه کنه که روی هم دیگه ذخیره نشن.

[SlowCode]

دوست عزیز بهتر بود این سوال رو در قسمت اصلی می پرسیدید.
1-
If Dir("C:\23.txt")="23.txt" then
Open "C:\23.txt" For Input As #1
Input #1, StrData
Close #1
Text1.Text = StrData
Else
Msgbox "شماره اشتباه می باشد."


2- با همون تابع Dir موجود بودن فایل رو تشخیص بدید و بعد کد ذخیره کردن رو براش بنویسید.

[program2vb]

سلام عزیز این کد برای باز کردن یک فایل متنی .....

امیدوار بدردت بخوره


Dim S As String, hf As Variant
hf = FreeFile
Open "d:\vb.txt" For Input As #hf
Do While Not EOF(hf)
Line Input #hf, S
Text1.Text = Text1.Text + S + vbCrLf
Loop
Close #hf


موفق و پیروز باشی یا علی