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

[محمد رشوند 1,208]

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

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

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  برای لود کردن اسامی فایل ها استفاده میکنید