ادرس فایل با app.path

[blake_daniel]

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

fh=freefile
open "c:\test.txt" for input as #fh


چجوری میشه اون قسمت ادرس(قرمز رنگ)رو با app.path ادرس دهی کنیم؟
میخام وقتی که برنامه به یه سیستم دیگه منتقل شد ارور نده که این ادرس درست نیست.
امتحان کردم نشد.دوستان لطفا کمک کنید خیلی لازم دارم.

[M.T.P]

open app.path & "\test.txt" for input as #fh

[MohammadGh2011]

سلام عليکم
من اينطوري تونستم بنويسمش

Dim fh As Integer
fh = FreeFile
Open App.Path & "\test.txt" For Output As #fh
Print #fh, "m.gh"
Close #fh

کد بالا M.gh رو تو فايل test.txt داخلش مينويسه(البته بايد پروژمون رو ذخيره کنيم و داخل پروژمون يه فايل متني به نام test.txt ذخيره کنيم)
اما دوستان يه توضيح ميخواستم در باره ي اين کدها بديد البته تا حدودي خودم ميدونم چيه ميخوام شما توضيح بديد و فرق

Output As #fh با
input as #fhچيه؟ و مثال بزنيد.

با تشکر

[M.T.P]

output فایل رو برای نوشتن مطلب باز می کنه اما input برای خوندن.

[MohammadGh2011]

سلام
خوب من از output يه مثال زدم ميشه شما هم يه مثال بزنيد از Input ؟
و اين کدها فقط براي فايل هاي متني استفاده ميشه يا از فايلهاي مختلف با فرمت هاي مختلف نيز به کار ميرود؟

[M.T.P]

خوب من از output يه مثال زدم ميشه شما هم يه مثال بزنيد از Input ؟



Dim StrInput As String
Dim fh As Integer
fh = FreeFile
Open App.Path & "\test.txt" For Input As #fh
Input #fh, StrInput
Close #fh
MsgBox StrInput