نمونه کد استفاده از کارت حافظه

[mohammada 22]

سلام و خسته نباشید خدمت اساتید گل خودم!

دوستان دنبال یه مثال برای ساخت پوشه و ذخیره ی فایل درون پوشه ی داخل کارت حافظه بودم که به این کد برخوردم ولی راستش خیلی سر در نیوردم و نمی دونم چجوری میشه استفاده کرد!

اگه امکان داره راهنمایی کنید بعد تبدیلش کنیم به سورس همه استفاده کنن! باز هم بسیار سپاسگذارم.. *like*

[color=#0000FF]Private Sub [/color][color=#000000]StartAStream ([/color][color=#0000FF]In[/color][color=#0000FF]As[/color][color=#008B8B]InputStream[/color][color=#000000], out [/color][color=#0000FF]As[/color][color=#008B8B]OutputStream[/color][color=#000000])
   [/color][color=#0000FF]Log[/color][color=#000000]([/color][color=#800000]"StartAStream"[/color][color=#000000])
   astream.InitializePrefix([/color][color=#0000FF]In[/color][color=#000000], [/color][color=#0000FF]True[/color][color=#000000], out, [/color][color=#800000]"astream"[/color][color=#000000])
   [/color][color=#0000FF]If[/color][color=#0000FF]File[/color][color=#000000].IsDirectory([/color][color=#800000]"/mnt/extSdCard"[/color][color=#000000], [/color][color=#800000]""[/color][color=#000000]) = [/color][color=#0000FF]True[/color][color=#0000FF]Then[/color][color=#008000]' SD Card on Galaxy Note 10.1 & Galaxy Phone
[/color][color=#0000FF]If[/color][color=#0000FF]File[/color][color=#000000].IsDirectory([/color][color=#800000]"/mnt/extSdCard"[/color][color=#000000], [/color][color=#800000]"FileTransferBT"[/color][color=#000000]) = [/color][color=#0000FF]False[/color][color=#0000FF]Then[/color][color=#000000]
           [/color][color=#0000FF]File[/color][color=#000000].MakeDir([/color][color=#800000]"/mnt/extSdCard"[/color][color=#000000], [/color][color=#800000]"FileTransferBT"[/color][color=#000000])
       [/color][color=#0000FF]End[/color][color=#0000FF]If[/color][color=#000000]
       astream.StreamFolder = [/color][color=#800000]"/mnt/extSdCard/FileTransferBT"[/color][color=#000000]
   [/color][color=#0000FF]Else[/color][color=#0000FF]If[/color][color=#0000FF]File[/color][color=#000000].IsDirectory([/color][color=#800000]"/mnt/sdcard0"[/color][color=#000000], [/color][color=#800000]""[/color][color=#000000]) = [/color][color=#0000FF]True[/color][color=#0000FF]Then[/color][color=#008000]' On-board storage Galaxy Note 10.1
[/color][color=#0000FF]If[/color][color=#0000FF]File[/color][color=#000000].IsDirectory([/color][color=#800000]"/mnt/sdcard0"[/color][color=#000000], [/color][color=#800000]"FileTransferBT"[/color][color=#000000]) = [/color][color=#0000FF]False[/color][color=#0000FF]Then[/color][color=#000000]
           [/color][color=#0000FF]File[/color][color=#000000].MakeDir([/color][color=#800000]"/mnt/sdcard0"[/color][color=#000000], [/color][color=#800000]"FileTransferBT"[/color][color=#000000])
       [/color][color=#0000FF]End[/color][color=#0000FF]If[/color][color=#000000]
       astream.StreamFolder = [/color][color=#800000]"/mnt/sdcard0/FileTransferBT"[/color][color=#000000]
   [/color][color=#0000FF]Else[/color][color=#0000FF]If[/color][color=#0000FF]File[/color][color=#000000].IsDirectory([/color][color=#800000]"/mnt/sdcard"[/color][color=#000000], [/color][color=#800000]""[/color][color=#000000]) = [/color][color=#0000FF]True[/color][color=#0000FF]Then[/color][color=#008000]' On-board storage Galaxy Phone
[/color][color=#0000FF]If[/color][color=#0000FF]File[/color][color=#000000].IsDirectory([/color][color=#800000]"/mnt/sdcard"[/color][color=#000000], [/color][color=#800000]"FileTransferBT"[/color][color=#000000]) = [/color][color=#0000FF]False[/color][color=#0000FF]Then[/color][color=#000000]
           [/color][color=#0000FF]File[/color][color=#000000].MakeDir([/color][color=#800000]"/mnt/sdcard"[/color][color=#000000], [/color][color=#800000]"FileTransferBT"[/color][color=#000000])
       [/color][color=#0000FF]End[/color][color=#0000FF]If[/color][color=#000000]
       astream.StreamFolder = [/color][color=#800000]"/mnt/sdcard/FileTransferBT"[/color][color=#000000]
   [/color][color=#0000FF]Else[/color][color=#000000]
       [/color][color=#0000FF]Msgbox[/color][color=#000000]([/color][color=#800000]"Storage space not available ..."[/color][color=#000000], [/color][color=#800000]"Unable to transfer"[/color][color=#000000])
   [/color][color=#0000FF]End[/color][color=#0000FF]If[/color][color=#000000]
[/color][color=#0000FF]End Sub[/color]

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

سلام

همونظور که میبینید دوست عزیز این یک تابع هست واسه کپی کردن که 2تا آرگومان داره یکی ورودی یعنی مبدا و یکی خروجی که مقصد هستش که از نوع InputStream و OutputStream هستش.

و میاد چک میکنه توی SD که پوشه ی مورد نظر وجود داره یا نه و اگه نداره میاد میسازتش.و اینجا از متغییر AsyncStream که مربوط به کتاابخانه RandomAccessFile هستش استفاده کرده.

[mohammada 22]

بسیار سپاسگذارم از توجهتون ...

امکان داره تا ساخت یه پوشه داخل کارت حافظه کاملش کنید؟

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

بنده الان در حال حاضر بیسیک ندارم تا کد درستی بزارم یکی از دوستان زحمتشو بکشه.

[mohammada 22]

کسی نیس کمک کنه؟!*bye*

[milad19 113]

سلام

کد برای ساخت یک فولدر در sd card

file.MakeDir(file.DirRootExternal,"namefolder")

[mohammada 22]

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

[nofeel 15]

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

private StartAStream as InAsInputStream, out AsOutputStream

میتونی این کد رو داخل global قرار بدی و end sub رو حذف کنی و ما بقی کد رو داخل sub btn1_click قرار بدی

فکر کنم کارت راه بیافته

البته من دقیق متوجه نشدم میخواید چه کاری انجام بدید

[shahab.msb 326]

سلام این کد رو خودم نوشتم که یک پوشه خاص رو میخونه و فایلهای داخل پوشه رو توی لیست ویو نمایش میده

تشکر یادتون نره

[/b]
If File.IsDirectory(File.DirRootExternal,"newshahab/") = True Then
                Dim ll As List
                ll.Initialize
                Try
                ll = File.ListFiles(File.DirRootExternal & "/newshahab/")
                For i= 0 To ll.Size-1
                ListView1.AddTwoLinesAndBitmap(ll.Get(i),"",LoadBitmap(File.DirAssets,"audio_cd.png"))

'                 Log(ll.Get(i))
                Next
                Catch
                End Try
                Else
                ToastMessageShow("پوشه newshahab در سیستم وجود ندارد",False)
                Return
End If
Else
If File.IsDirectory(File.DirInternal,"newshahab/") = True Then
Dim ll As List
                ll.Initialize
                Try
                ll = File.ListFiles(File.DirInternal & "/newshahab/")
                For i= 0 To ll.Size-1
                ListView1.AddTwoLinesAndBitmap(ll.Get(i),"",LoadBitmap(File.DirAssets,"audio_cd.png"))
'                 Log(ll.Get(i))
            Next
            Catch
                End Try
                Else
                ToastMessageShow("پوشه newshahab در سیستم وجود ندارد",False)
                Return

End If[b]