T

Çözüldü Klasör İçindeki Dosya İsimlerine Var Yazma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
T

tahsinanarat

Normal Üye
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(35 satır)

Yukarıda Sn. Halit3 hocama ait kodlar ile D sutununda yazılı TC kimlik numaralarını hızlı bir şekilde Klasör içindeki eşleşen TC lerin P sutunu karşılığına VAR yok ise YOK yazmaktadır.

Buraya kadar herhangi bir sıkıntı yok. Ancak Ben Klasör içinde uzun olan dosya isminde eğer TC numarası geçiyor ise bu durumda da bulup var ise VAR yok ise YOK yazması için kodda nasıl bir değişiklik yapmalıyız. Yardımcı olacak arkadaşlarıma şimdiden teşekkür ediyorum.
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Merhaba,
If fs.FileExists(yol & "\" & aranan & "." & uzanti) = True Then satırını
If Dir(yol & "\*" & aranan & "*." & uzanti) <> "" Then satırıyla değiştirip deneyiniz.
 
Oyla 0 Olumsuz oyla
Sn. @ÖmerBey hocam, dediğiniz gibi yaptım, ancak bu bire bir eşleşenleri getiriyor, benim istediğim dosya isminin içinde TC numarası geçiyorsa getirsin istiyorum.
Bu şekilde olmazsa en azından ilk 11 karakteri eşleyenleri getirse de olur.
 
Oyla 0 Olumsuz oyla
Merhaba.

Sanırım mevcut kodun son tarafındaki aşağıdaki döngü pasif hale geldiğinde sonuç alınabiliyor durumda.
Ana klasörde arama yapıp sonucu VAR yazıyor, ardından alt klasörlere geçip orada bulamadığı için VAR
yazdığı değeri tekrar YOK olarak değiştiriyor gibi görüyorum.

Kırmızı satırlar pasif edilince sorun yok sanırım.
VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)

.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst