Klasördeki belgelerin isimlerini listelemek

[1903emre34@gmail.com]

Merhaba,


Dosyaları getir bastığımız zaman, klasör içersindeki pdf- veya word dosyaların isimleri getirecek şekilde nasıl kod oluşturabiliriz


http://s5.dosya.tc/server4/a76nhj/Yeni_klasor__3_.zip.html

 

[askm]

Sub DosyaListele()
     
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim ws As Worksheet
     
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set ws = Worksheets.Add
     
     'Get the folder object associated with the directory
    Set objFolder = objFSO.GetFolder(ThisWorkbook.Path & "\Ocak 2017\")
    ws.Cells(1, 1).Value = objFolder.Name
     
     'Loop through the Files collection
    For Each objFile In objFolder.Files
        If Split(objFile, ".")(1) = "docx" Then
            ws.Cells(ws.UsedRange.Rows.Count + 1, 1).Value = objFile.Name
        End If
    Next
     
     'Clean up!
    Set objFolder = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing
     
End Sub

 

[Asri]

Alternatif;

Sub listele()
  Range("A:A").ClearContents
  
  yol = ThisWorkbook.Path
  dosya = Dir(yol & "\Ocak 2017\*.doc?")
  
  sat = 0
  Do While dosya <> ""
    sat = sat + 1
    Cells(sat, "A").Value = dosya
    dosya = Dir
  Loop

  dosya = Dir(yol & "\Ocak 2017\*.pdf")
  Do While dosya <> ""
    sat = sat + 1
    Cells(sat, "A").Value = dosya
    dosya = Dir
  Loop

End Sub