Dosya Bulamama

[heft]

Merhaba,
c:\den\a.xls dosyam var bu dosya c:\kod.xls dosyasından bilgi çekiyor.

eğer kod.xls dosyası yanlışlıkla silip/adı değiştirildiğinde
a.xls yi açtığımda

açar açmaz "kodlar dosyası bulunamadı" diye bir uyarıp a.xls yi kapatsın istiyorum.
yapılabilir mi?

ilgilerinize teşekkürler şimdiden

 

[Kemal Demir]

Sn.Leventm Kodu;

Sub dosya_ara()
Dim ds, a
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.FileExists("C:\kod.xls")
If a = True Then
Application.run "İlgili Calısıcak makro ismi"
Else
MsgBox "Bu isimde bir dosya yok,Devamı Calısmıyacak"
End If
End Sub

Kendınıze Göre uyarlıya bilirsiniz.

 

[heft]

syn rakkas teşekkürler
ve sizin nezninizde leventm ye de çok teşekkür