Bir klasörde dosya uzantısı yoksa hata vermeden devam etmesi

[u.L.a.s]

Merhabalar

Aşağıdaki kod düzenimde bir revize gerekiyor.

Bu kodla C:\Users klasörü altında Userform'da Textboxta yazdığım değer ne ise gidip o klasör içerisindeki ErrdisableBul.prn dosyasını ErrdisableBul.pl dosyası na çeviriyor.

Sorun şu. Diyelimki Errdisablebul.prn dosyası bu klasörde yoksa yada daha önce prn uzantısı pl olarak değişitirlmişse haliyle prn uzantılı dosyayı bulamıyor ve hata veriyor. Bu hatayı vermesin istiyorum. Yani prn dosyası yoksa pl uzantılı dosya varsa kod çalışmaya devam etsin bir sonraki adıma geçebileyim.

Bilgi ve yardımlarınızı rica ederim

Sub change()
Dim eskiad As String
Dim yeniad As String
eskiad = _
"C:\Users" & "\" & UserForm2.TextBox1.Text & "\" & "ErrDisableBul.prn"
yeniad = _
"C:\Users" & "\" & UserForm2.TextBox1.Text & "\" & "ErrDisableBul.pl"
Name eskiad As yeniad
End Sub

 

[Muzaffer Ali]

hata veren satırdan önce

on error resume next

yazınız. Kodlarda herhangi bir hata ile karşılaşıldığında hatayı yok sayarak devam eder.

 

[u.L.a.s]

çözüm basitmiş çok teşekkür ederim üstadım