dosya arşiv listesi

[ertuer]

Sn arkadaşlar ,
Bilgisayarımda ki örneğin zip,rar,xls dosyalarının ekxcelde bir listesini yapmak istiyorum.örneğin a1 satırına dosyayı(örneğin xls ise excel imgesi adı ) b1 satırına ise kendim dosya ile lgili açıklayıcı notlar koymak istiyorum.

Bunun için önce örneğin bilgisayarımdaki xls dosyalarını sırayla excel sayfasındaki a sütununa kendilerini sıralam gerekiyor.. Yardımlarınıza şimdiden teşekkürler ertuer

 

[Ali]

VBA içinde modülü çalıştırıp deneyin.

 

[Kemal Demir]

Sn.ertuer

Küçükk bir çalışma yollayacagım.

Form içerisinde textbox'a ilgili Dosya Yolunu yazınız ve inceleyiniz.

Umarım İstediğiniz gibi olmustur.

 

[ertuer]

Sn kemal Demir

Sn Kemal Demir ilginize teşekkür ediyorum ancak ben herhangi bir sonuç alamadım hata veriyor. Selamlar ertuer

 

[Kemal Demir]

sn.ertuer aşagıdaki gibi deneğiniz

Sub Göster()
dosya1 = [c1]
Set yol = CreateObject("Scripting.FileSystemObject").GetFolder(dosya1).Files
For Each dosya In yol
c = c + 1
Cells(c, 1).Value = dosya.Name
ad = Right(Cells(c, 1), 3)
Cells(c, 2).Value = ad & "" & "." & "Dosyası"
Next
End Sub

C1 hücresine Baktırmak istediğniz dosya yolunu giriniz

Örnek:
c1 hücresine aşagıdaki ifadeyi yazınız
c:\Program Files\