ফোল্ডারে ফাইলের নাম সংরক্ষণের জন্য একটি কার্যকরী অ্যারে তৈরি করা

Question

আমি একটি কার্যকরী অ্যারে তৈরি করতে চাই যা পার্টিকুলার ফোল্ডারে ফাইলের সমস্ত নাম সঞ্চয় করে

এটাই আমি চেষ্টা করেছিলাম ..

Function number_of_file(i As Integer) As Variant

Dim file_object As Object
Dim files_in_folder() As Variant

Set file_object = CreateObject("scripting.filesystemobject").getfolder("D:\ls")

i = 0
For Each obj In file_object.Files
ReDim files_in_folder(i)
    files_in_folder(i) = obj.Name
    i = i + 1
Next obj

number_of_files = files_in_folder
End Function


sub test()
files_in_folder(2)
end sub

Answer 1

এই ফাইলটি নামের অ্যারে পাবেন এবং কলামে যে অ্যারের সংরক্ষণ একটি :

Sub MAIN()
   Dim FolderOfInterest As String, i As Long
   FolderOfInterest = "C:\TestFolder"
   Dim ary()
   ary = files_in_folder(FolderOfInterest)
   MsgBox "There are " & UBound(ary) & " files in folder " & FolderOfInterest
   '
   '  Now store the array in a worksheet column
   '
   i = 1
   For Each a In ary
      Cells(i, "A").Value = a
      i = i + 1
   Next a
End Sub

Public Function files_in_folder(folderS As String) As Variant
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set folder = fso.GetFolder(folderS)
   ReDim temp(1 To folder.Files.Count)

   i = 1
   For Each file In folder.Files
      temp(i) = file.Name
      i = i + 1
   Next file

   files_in_folder = temp
End Function

বিঃদ্রঃ:

ফাংশনটি স্ট্রিংগুলির একটি অ্যারে প্রদান করে (একটি ভিত্তিক) । ফাইলগুলির সংখ্যা তখন সেই অ্যারের উপরের সীমানা is