Alt klasör listeleme hk.

[1903emre34@gmail.com]

Merhaba,

Beyannameler bastığım zaman resim2'deki ekrana gelmektedir, benim istediğim AA LTD Şti dosyasının altında yer alan AYLIK klasör'ü içerisinde yer alan belgelerin userform üzerinde (2) numaralı ve AYLIK klasörleri içersinde yer alan Ocak-Şubat vs aylara ait klasörlerin içerisinde yer alan (3) numarada belgelerin listenmesini istiyorum.

 

[PLİNT]

Merhaba
Ek dosyayı deneyin
http://www.dosya.tc/server10/tjveq9/klasor.zip.html

 

[1903emre34@gmail.com]

Hocam, tam istediğime yakın olmuş, teşekkür ederim, sizden bir isteğim olacak;

Resimdeki gibi, aylara ait bastığım zaman (3) numarada belgeler gözükmektedir, yalnız her aya ait bastığım zaman belgeler gözükmektedir, benim istediğim hangi aya ait bastığım zaman belgelerin gözükmesi için nasıl değişiklik yapabiliriz. (Daha önceden basılan belgelerin (3) numarada olmamasını istiyorum.)

 

[PLİNT]

Listbox2 tıklandığında "listbox3" temizlensin.

Private Sub ListBox2_Click()
ListBox3.Clear
'....
'...

şu bölümüde butona ekleyelim seçim yapılmazsa hata vermesin.

[SIZE="2"]Private Sub CommandButton1_Click()
Set klasorsec = CreateObject("Shell.Application").BrowseForFolder(0, "Klasör seçiniz", 0, "c:\")
If klasorsec Is Nothing Then Exit Sub
yol = klasorsec.Items.Item.Path
TextBox1.Value = yol
ListBox1.Clear
Set nesne = CreateObject("Scripting.FileSystemObject")
Set klasor = nesne.GetFolder(yol)
 If klasor.Subfolders.Count > 0 Then
For Each alt In klasor.Subfolders
ListBox1.AddItem alt.Name
Next
End If
End Sub[/SIZE]