Klasördeki dosya ismine göre arama?

[Tankut SAZLI]

Uzun zaman olmuş,haliyle unutmuşum...
Aşağıdaki kodlarla öğrencilere ait resimleri çalışma kitabındaki picture nesnesine aktarıyordum.

yol = ThisWorkbook.Path
'RESİM AKTARMA KODLARI
Range("HD7").Value = yol & "/1/0000" & ['NOTLİSTESİ'!C7] & ".jpg"
'1.SAYFA KODLARI
Worksheets("1YAPRAKÖN").Image6.PictureSizeMode = fmPictureSizeModeStretch
Worksheets("1YAPRAKÖN").Image6.Picture = LoadPicture(['NOTLİSTESİ'!HD7])

Ancak ne varki iki sorun var;
1- Öğrenci numaraları "000001" veya "00001881" şeklinde.Yukarıda da görüldüğü gibi,önceleri dört haneli numaralarla çalıştığımdan baştan dört sıfır saydırıp sonra numara ile aktarım yapıyordu. -unutmuşluktan olsa gerek- Ne var ki şimdi numaralar sadece dört haneli değil.Baştaki sıfırları yok sayıp(sayısı önemli olmaksızın) sadece numara ile aktarım için gerekli kod nedir?
2- Numarası olupta resmi olmayan öğrenciye denk geldiğinde,bundan sonraki yapması gereken hiçbir görevi(verileri yerleştirme...) yerine getirmiyor.resmi olmayan öğrenci için picture nesnesini boş bırakacak ya da "Bu öğrenciye ait resim bulunmamaktadır." gibisinden bir yazı yazdıracak kod nedir?

Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Tankut bey kodunuzu inceledim. Anladığım kadarıyla baştaki sıfırları zaten siz ekliyorsunuz. Aşağıdaki bölümden kırmızı kısmı silerseniz sorun düzelmez mi?

Range("HD7").Value = yol & "/1/[COLOR=red]0000[/COLOR]" & ['NOTLİSTESİ'!C7] & ".jpg"

Olmayan resimler içinde DIR komutunu kullanabilirsiniz. Aşağıdaki sorguyu kodunuzun uygun yerine yazınız.

If Dır(['NOTLİSTESİ'!HD7]) = "" Then