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

[amirking76 15]

سلام

من تازه واردم ولی به زبان های برنامه نویسی کامپیوتر اشنا هستم

میخام یک فایل تکس رو کپی کنم

بلدم کپی کنم ولی بلد نیستم ادرس مسیری که فایل اونجا میره رو بدم

میخام به این مسیر بره ادرس این مسیر چی میشه

حافظه ی موبال/android/obb

[مجید آرتا 5,875]

با StringBuilder  هم میشه به اخر یک متن متن دیگه هم اضافه کنید.

[پژمان نیکروان 6,055]

File.Copy(File.DirAssets,"x.png",File.DirRootExternal&"/android/obb","x.png")

عکس x.png از پوشه فایل برنامه کپی میشه به اون محلی در حافظه گوشی که خودتون گفتین.

[amirking76 15]

با این کد توتو تونستم فایل مورد نظرمو کپی کنم

	File.Copy(File.DirAssets,"2.txt",File.DirRootExternal&"/android/obb","2.txt")

حالا میخام

توی همین فایل متن بنویسم

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

از این کد استفاده کردم اما جواب نداد

    File.WriteString(File.DirRootExternal&"/android/obb/","2.txt",EditText1.Text)

[amirking76 15]

یعنی کد کار کرد و متن را داخل تکس جدید گذاشت اما متن را جایگزین کرد

میخام متن قبلی بمونه  و متن جدید به خط پایین بره

[پژمان نیکروان 6,055]

وقتی کپی انجام میشه با این کد:

File.Copy(File.DirAssets,"2.txt",File.DirRootExternal&"/android/obb","2.txt")

به این صورت هم عملیات سیو رو انجام بدید:

File.WriteString(File.DirRootExternal&"/android/obb","2.txt",edittext1.text)

غیر ممکنه جواب نده

[پژمان نیکروان 6,055]

یعنی کد کار کرد و متن را داخل تکس جدید گذاشت اما متن را جایگزین کرد

میخام متن قبلی بمونه  و متن جدید به خط پایین بره

خب مشخصه جایگزین میکنه.

برای اینکه بره به خط بعد باید اول اون فایل رو بخونید بعد یه خط فاصله اش بدید با متن جدید:

Dim matn As String
matn=File.ReadString(File.DirRootExternal&"/android/obb","2.txt")
Dim str As String
str=matn&CRLF&edittext1.text
File.WriteString(File.DirRootExternal&"/android/obb","2.txt",str)