رفتن به مطلب

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


محمد رشوند

ارسال های توصیه شده

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

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

Public Sub ListFilesOnly(Dir As String) As List
    Dim lstDir, lstRes As List
    lstRes.Initialize
    
    If File.Exists(Dir, "") Then

        lstDir = File.ListFiles(Dir)
      
        Dim FileName As String
      
        For i = 0 To lstDir.Size - 1
            FileName = lstDir.Get(i)
            If Not(File.IsDirectory(Dir, FileName)) Then
                lstRes.Add(FileName)
            End If
        Next
      
    End If
  
    Return lstRes

End Sub

نحوه استفاده

dim l1 as list = ListFilesOnly(Neshani Folder Mored Nazar)
Dim l1 As List
For i = 0 To l1.Size-1
	Dim str As String
	str = l1.Get(i)

'code shoma

Next

متغییر str نام فایل را به همراه ادرس بر میگرداند

برای مثال 20 فایل در یک پوشه دارید

در قسمت کد شما لیست ویو تریف میکنید و از متغییر str  برای لود کردن اسامی فایل ها استفاده میکنید :give_rose:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...