ساخت پوشه و کپی محتویات درون آن

[dostmobile 329]

س دوستان

برنامه ای دارم که توش 12 تا آهنگه و میخوام یه پوشه در مموری ساخته بشه و این دوازده تا اونجا کپی بشه

ممنون

[haspic123 34]

یه کدی میشه توی این مایه ها :

[b]File.MakeDir(File.DirRootExternal,"dostmobile")[/B][B]If File.ExternalWritable = True Then[/B]
[B] Dim Path As String = File.DirRootExternal&"dostmobile"[/B]
[B] File.Copy(File.DirAssets,"1.mp3",Path,"1.mp3")[/B]
[B] End If[/b]

این دسترسی رو هم اضافه کن به مانیفست :

AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)

تو رو خدا این کد مخصوص مموری کارت چحوریه هر کدی رو برای مموری کارت بهش میدم حالت خواندن داره اما نوشتن نه

دسترسی نوشتن در کارت حافظه هم بهش دادن

[dostmobile 329]

این توی مموری میسازه

چجور یه پوشه خاص بسازم؟

مثلا یه پوشه بسازم به نام dostmobile و اونارو توش کپی کنم؟

File.Copy(File.DirAssets,"Esme file",File.DirRootExternal,"esme file")

ادرس مموری رو چجور بنویسم

[ali2 115]

یعنی میخوای به عنوان رینگتون انتخاب بشن؟؟؟

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

یه کدی میشه توی این مایه ها :

File.MakeDir(File.DirRootExternal,"dostmobile")[/b][b]If File.ExternalWritable = True Then[/b]
[b] Dim Path As String = File.DirRootExternal&"dostmobile"[/b]
[b] File.Copy(File.DirAssets,"1.mp3",Path,"1.mp3")[/b]
[b] End If

این دسترسی رو هم اضافه کن به مانیفست :

AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)

[مصطفی حقیقی 176]

File.Copy(File.DirAssets,"Esme file",File.DirRootExternal,"esme file");

[dostmobile 329]

مجید جان مننم همین Path رو نمیدونم چجور بنویسم

مرسی پوشه هم ساخت

یادم نیست چجور بود

یه چیزی تو این مایه ها بود

mt:\\\sdcard\dostmobile\

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

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

خب ایناهاش دیگه

[b] Dim Path As String = File.DirRootExternal&"\dostmobile"[/b]

تا DirRotExternal میشه SdCard و به بعدش پوشه ای که خودت ساختی رو میاره دیگه

[dostmobile 329]

پوشه رو میسازه اما کپی نمیکنه

    Activity.LoadLayout("Layout1")
File.MakeDir(File.DirRootExternal,"dostmobile")
If File.ExternalWritable = True Then
Dim Path As String = File.DirRootExternal&"dostmobile"
File.Copy(File.DirAssets,"1.mp3",Path,"1.mp3")
 File.Copy(File.DirAssets,"2.mp3",Path,"2.mp3")
  File.Copy(File.DirAssets,"3.mp3",Path,"3.mp3")
End If
End Sub

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

[left][color=#0000BB][font=monospace]Dim Path [/font][/color][color=#007700][font=monospace]As [/font][/color][color=#0000BB][font=monospace]String [/font][/color][color=#007700][font=monospace]= [/font][/color][color=#0000BB][font=monospace]File[/font][/color][color=#007700][font=monospace].[/font][/color][color=#0000BB][font=monospace]DirRootExternal[/font][/color][color=#007700][font=monospace]&[/font][/color][color=#DD0000][font=monospace]"dostmobile"[/font][/color][/left]

تغییر بده به :

[left][color=#0000BB][font=monospace]Dim Path [/font][/color][color=#007700][font=monospace]As [/font][/color][color=#0000BB][font=monospace]String [/font][/color][color=#007700][font=monospace]= [/font][/color][color=#0000BB][font=monospace]File[/font][/color][color=#007700][font=monospace].[/font][/color][color=#0000BB][font=monospace]DirRootExternal[/font][/color][color=#007700][font=monospace]&[/font][/color][color=#DD0000][font=monospace]"\dostmobile"[/font][/color][/left]

[dostmobile 329]

داداش کدتو اشتب نوشتی

Dim Path As String = File.DirRootExternal&"\dostmobile"

باید

Dim Path As String = File.DirRootExternal&"/dostmobile"

میزاشتی

بازم ممنون و تشکر