eğer böyle bir dosya yoksa...

[takoo]

merhaba değerli arkadaşlar. verdiğim isimdeki dosyayı açtırmak istiyorum:
Documents.Open FileName:="t1.doc"
olur ya bu dosya silinmiş veya adı değiştirilmiş ise hata iletisi yerine MsgBox ile
"böyle bir dosya yok " şeklinde ileti vermek istiyorum,veyahut başka işlemlere yönlendirmek istiyorum.
ben şöyle bir şey yapmak istedim de olmadı:
dosya=Documents("t1.doc")
If dosya ="" Then.....
yardımcı olur musunuz?

 

[Haluk]

Eğer makronuz MS Word altında çalışacaksa;

Sub Test()
    If Dir("D:\Temp\T1.doc") = Empty Then
        MsgBox "Bu dosya yok ..."
        Exit Sub
    Else
        Documents.Open ("D:\Temp\T1.doc")
    End If
End Sub