Dosya isimlerini yazdırma

[teonet]

Merhabalar;
I:\Mp3 dizini altında mp3 lerim bulunuyor. Mesela I:\Mp3\Gülşen\gülşen - asda - 2007 şekilinde her sanatçıya ait klasör mevcut. Her albümde bir klasör içerisinde.

İstediğim buları Belirli bir düzene göre köprülü şekilde excel'e nasıl yazdırabilirim. Fromda aradım bir kaçtane buldum ama istediğim gibi değil.

Yardımlarınız için şimdiden çok teşeşkkürler

 

[uzmanamele]

merhaba

aşağıdaki linki inceleyiniz, .jpg yerine .mp3 olarak deneyiniz.
http://www.excel.web.tr/showthread.php?t=53776

 

[teonet]

inceliyorum teşekkürler

 

[teonet]

denedim ama alt klasörleri getirmiyor.
yardımın için tşk

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kodları bir düğmeye atayarak deneyiniz...

Sub muziklistele()
Dim dosya, i As Integer, yol As String
yol = "I:\Mp3\Gülşen\gülşen - asda - 2007\"
dosya = Dir(yol & "*.mp3")
i = 1
    While dosya <> ""
        Cells(i, 1) = Left(dosya, WorksheetFunction.Find(".", dosya, 2) - 1)
        dosya = Dir
        i = i + 1
    Wend
For j = 1 To [A65536].End(3).Row
    Cells(j, 1).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
    yol & Cells(j, 1).Text & ".mp3", TextToDisplay _
    :=Cells(j, 1).Text
Next
End Sub

 

[teonet]

Çok teşekkürler Sayın Ayhan ERCAN
fakat yol = "I:\Mp3" burası böyle olmalı. Sanatcı ismini ve şarkıları otomatik listeleyecek. Ben sadece ana dizini vermem gerek. Alt klasörleri ve bunlardaki dosyaları kendisi otomatik listelemesi gerekiyor.

Bu şekilde uyarlayabilir miyiz.

Yardımlarınız için çok tşkler