Klasördeki dosya isimlerini listelemek

[nokmen]

Merhabalar,

Excel'in çok içinde olmayan ama excelde kullanmak için ihtiyacım olan bir konuda sorum olacaktı.

İçinde 131 adet dosya olan bir klasör var ve ben bu dosya isimlerini excelde listelemek istiyorum.

Dosya isimlerini tek tek kopyala-yapıştır yapmak çok uzun bir iş olacak. Bunun daha kısa bir yolunu bilen var mı acaba?

Yardımcı olacak arkadaşa şimdiden teşekkür ediyorum.

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub dosyalar()
Dim STR As Long, YL As String, DSY As String
STR = 1
YL = "[COLOR="Red"]F:\zzzz\[/COLOR]"
DSY = Dir(YL, vbNormal)
Do While DSY <> ""
With WorksheetFunction
If (GetAttr(YL & DSY) And vbNormal) = vbNormal Then
Cells(STR, "A") = Replace(DSY, Right(DSY, Len(DSY) - _
.Find("*", .Substitute(DSY, ".", "*", Len(DSY) - Len( _
.Substitute(DSY, ".", "")))) + 1), "")
STR = STR + 1
End If: End With
DSY = Dir
Loop
End Sub

Kırmızı bölüme yol bilgisi yazmayı unutmayın.

 

[nokmen]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub dosyalar()
Dim STR As Long, YL As String, DSY As String
STR = 1
YL = "[COLOR="Red"]F:\zzzz\[/COLOR]"
DSY = Dir(YL, vbNormal)
Do While DSY <> ""
With WorksheetFunction
If (GetAttr(YL & DSY) And vbNormal) = vbNormal Then
Cells(STR, "A") = Replace(DSY, Right(DSY, Len(DSY) - _
.Find("*", .Substitute(DSY, ".", "*", Len(DSY) - Len( _
.Substitute(DSY, ".", "")))) + 1), "")
STR = STR + 1
End If: End With
DSY = Dir
Loop
End Sub

Kırmızı bölüme yol bilgisi yazmayı unutmayın.

Beni büyük bir yükten kurtardınız. Kuru bir teşekkür bence yetersiz kalıyor (Keşke sitede puanlama gibi birşey olsa) ama yapacak da birşey yok, çok teşekkür ederiz .

OKUYANA NOT : Üstteki makro, (makro içine yazılan) bir klasör içindeki dosya isimlerini A sütununa listeler.

 

[asi_kral]

Beni büyük bir yükten kurtardınız. Kuru bir teşekkür bence yetersiz kalıyor (Keşke sitede puanlama gibi birşey olsa) ama yapacak da birşey yok, çok teşekkür ederiz .

OKUYANA NOT : Üstteki makro, (makro içine yazılan) bir klasör içindeki dosya isimlerini A sütununa listeler.

Kolay Gelsin.

 

[Ali Faruk]

Benimde çok ihtiyacım olan bir durumdu. Yardımınız için teşekkürler

 

[ridvanucok]

Merhaba,

Aşağıdaki sorgu daha kısadır. Masaüstünde bir klasör oluşturarak, oluşturulan klasör adını kırmızı ile belirttiğim alanla değiştirerek kullanabilirsiniz.

Sub Dosya_İsimleri()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Users\A48780\Desktop\RIDVAN")
Set dc = f.Files
For Each Dosya In dc
c = c + 1
Cells(c, 1) = Dosya.Name
Next
End Sub

 

[Ali Faruk]

Merhaba,

Aşağıdaki sorgu daha kısadır. Masaüstünde bir klasör oluşturarak, oluşturulan klasör adını kırmızı ile belirttiğim alanla değiştirerek kullanabilirsiniz.

Çok teşekkür ederim. Bir şey merak ettim hem klasör hem dosya isimlerini listeleme olabiliyor mu?

 

[alicimri]

Yanlışlıkla yapıştırıldığından silindi.