Dosya dizininden köprü oluşturma programı

[megadeth61]

Merhabalar

Forumda arama yaptım,rastlayamadım ve bu faydalı programı bilmeyenler ile paylaşmak istiyorum.

Program sayesinde,tek bir tıklama ile,yerini gösterdiğiniz bir dosya ve o dosyanın tüm içeriğini,tüm dizini,excel sayfasında tek tek köprü olarak oluşturabiliyorsunuz.

Muazzam bir zaman kazancı sağlayan bu programı indirip denemenizde fayda var diyorum...

Program .exe uzantılı olup,kurulumudan sonra otomatik olarak excel penceremizde,eklenti olarak beliriyor.

Ücretsiz bir yazılım olduğu için rapidshare linki vermemin sanırım bir sakıncası yoktur.

http://rapidshare.com/files/237323952/DirTreeSetup.zip

Saygılar

 

[Kemal Demir]

Sn.megadeth61,

Paylaşımız için öncelikle teşekkurler.Yalnız forumda aynı amaç için kullanabilceğiniz bir kod zaten mevcut.

[b]Sub Start()
Dim klasor As Object
 
Set klasor = CreateObject("Shell.Application").BrowseForFolder _
                    (0, "Lütfen bir klasor seçin !", 1)
 
Liste (klasor.Items.Item.Path)
AltListe (klasor.Items.Item.Path)
 
Set klasor = Nothing
End Sub[/b]
 
[b]Private Sub Liste(yol As String)
Dim dosya As String, i As Long
 
    dosya = Dir(yol & "\*.*")
    i = 1
    While dosya <> ""
        DoEvents
        i = i + 1
        Cells(i, 1) = yol & "\" & dosya
        dosya = Dir
       [b][u]Cells(i, 1).Select
       ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Cells(i, 1)[/b][/u]
    Wend
End Sub[/b]
 
[b]Private Sub AltListe(yol As String)
Dim fL As Object, f As Object, dosya As String, j As Long
Set fL = CreateObject("Scripting.FileSystemObject").GetFolder(yol).SubFolders
 
On Error GoTo sonraki
For Each f In fL
    dosya = Dir(f.Path & "\*.*")
 
    While dosya <> ""
        DoEvents
        j = [a65000].End(3).Row + 1
        Cells(j, 1) = yol & "\" & dosya




        dosya = Dir
    Wend
 
    AltListe (f.Path)
sonraki:
Next
 
Set fL = Nothing
End Sub[/b]

Sn.megadeth61,

Söyledikleriniz evet şuan yukarıdaki kodda ve ek'teki dosyada mevcut değil.

Ek kodlar ile sorun cozulebilir kanısındayım.(Link verme işlemi eklendi).
Dosya özellikleri için çözümü en kısa sürede paylaşıyor olacagım.

 

[megadeth61]

Sn. Kemal Demir

Ben bunu bilmiyordum.Bilgilendirdiğiniz için teşekkür ederim.

 

[megadeth61]

Sn.Kemal Demir

Eklediğiniz dosyayı inceledim.

Benim eklediğim program,bu alt dizinlere otomatik olarak köprü oluşturuyor.Dosya boyut bilgilerini vs. de gösterebiliryor.Ama sizin eklediğiniz dosya, sadece alt dizini veriyor.Acaba ben mi yanlış yapıyorum?

Saygılar sunarım