Nesi Hatalı??İstediğim yerdekini değil Belgelerimdeki dosyaları getiriyor.

[parsley2]

Dim dosya As String

Dim i As Integer
ky = "mülkiyet"

ChDir ("D:\TAPİŞ\" & ky & "\genelgeler")
dosya = Dir("*.*")
i = 1
While dosya <> ""
Cells(i, 1) = dosya
dosya = Dir
i = i + 1
Wend

 

[Orion1]

Dim dosya As String

Dim i As Integer
ky = "mülkiyet"

ChDir ("D:\TAPİŞ\" & ky & "\genelgeler")
dosya = Dir("*.*")
i = 1
While dosya <> ""
Cells(i, 1) = dosya
dosya = Dir
i = i + 1
Wend

Deneyiniz.

Dim i As Integer
ky = "mülkiyet" 

 'ChDir ("D:\TAPİŞ\" & ky & "\genelgeler")
dosya = Dir("[B][COLOR="Red"]D:\TAPİŞ\" & ky & "\genelgeler\*.*[/COLOR][/B]")
i = 1
While dosya <> ""
  Cells(i, 1) = dosya
  dosya = Dir
  i = i + 1
 Wend

 

[parsley2]

çok teşekkür ederim. Orion1

 

[Orion1]

çok teşekkür ederim. Orion1

Rica ederim.
İyi çalışmalar.