فراخوانی فایل ها و فولدرها

[haspic123 34]

چجوری می تونیم فولدرها و فایل های گوشی رو درون پنل بیاریم برای ساخت فایل منیجر

[مهدی ایزدی 9,203]

درود

ببینید اگه میخواهید اختصاصی بنویسید کارتون یک خورده سخته و زمان تقریبا زیادی رو میطلبه اگه میخواهید کار تمیزی ارائه بدید.

توسط کد زیر میتونید لیست فولدرهارو بگیرید :

Sub ListFolders(dir As String)
Dim list_files As List
Dim lista_folders As List
lista_folders.Initialize
    list_files=File.ListFiles(dir)
    For i= 0 To list_files.Size -1
        If File.IsDirectory(dir, list_files.Get(i))=True Then
            lista_folders.Add(list_files.Get(i))
        End If
    Next
Return lista_folders
End Sub

از طریق کد زیر هم میتونید لیست فایل هارو بگیرید :

Sub ListFiles(dir As String)
Dim list_files As List
Dim lista_folders As List
lista_folders.Initialize
    list_files=File.ListFiles(dir)
    For i= 0 To list_files.Size -1
        If File.IsDirectory(dir, list_files.Get(i))=false Then
            lista_folders.Add(list_files.Get(i))
        End If
    Next
Return lista_folders
End Sub

کدهای اصلی رو دارید

بقیش رابط کاربری و یک سری شرط و متغیر هست که کار خودتونه 

 

با آرزوی موفقیت

[haspic123 34]

من می خوام ساخت یک فایل منیجر رو یاد بگیرم

لطفا در این رابطه اگه اطلاعاتی دارید کمکم کنید سپاس

[مهدی ایزدی 9,203]

من می خوام ساخت یک فایل منیجر رو یاد بگیرم

لطفا در این رابطه اگه اطلاعاتی دارید کمکم کنید سپاس

اصول کارش دقیقا همون دو تیکه کدی هست که دادم . بقیبش سلیقه ای خودتون هست 

[devvv 168]

در در 1394/12/23, 15:35:14، haspic123 گفته است :

من می خوام ساخت یک فایل منیجر رو یاد بگیرم

لطفا در این رابطه اگه اطلاعاتی دارید کمکم کنید سپاس

کتابخانه آریا فایل آقای شاهدی رو میتونید دانلود کنید

این لینک دانلود کتابخونه : کتابخانه

این لینک دانلود سمپل : سمپل

اینم لینک تاپیک : تاپیک

امیدوارم موفق باشید....

لایک یادت نره