CreateObject("Shell.Application").Open ile Dosya Açmak

[Ergün Güler]

Selam,

CreateObject("Shell.Application").Open "C:\Documents and Settings\ergun.guler\Belgelerim\örnek.pdf"
CreateObject("Shell.Application").Open "C:\Documents and Settings\ergun.guler\Belgelerim\Resimlerim\örnek.jpg"

Kodları ile benzer dosyaları açabiliyorum.2 şey yapmak istiyorum.
1.si:
Kırmızı ile gösterdiğim yol yok ise, yok olduğuna dair uyarı versin.

CreateObject("Shell.Application").Open "[B][COLOR="Red"]C:\Documents and Settings\ergun.guler\Belgelerim\[/COLOR][/B]örnek.pdf"

2.si:
dosya yolu var ancak, Kırmızı ile gösterdiğim dosya yok ise, yok olduğuna dair uyarı versin.

CreateObject("Shell.Application").Open "C:\Documents and Settings\ergun.guler\Belgelerim\[COLOR="red"][B]örnek.pdf[/B][/COLOR]"

Mümkün müdür?
Yardımcı olabilirseniz sevinirim.
İyi çalışmalar.

 

[Zeki Gürsoy]

Merhaba,

Aşağıdaki fonksiyonlar işinizi görür...

Sub test()
    If FolderExist("c:\windows") = True Then MsgBox " klasör mevcut"
    If FileExist("c:\windows\regedit.exe") = True Then MsgBox " dosya mevcut"
End Sub

Function FolderExist(p As String) As Boolean
    If Right$(p, 1) <> "\" Then p = p & "\"
    FolderExist = CBool(Dir(p, vbDirectory) <> "")
End Function

Function FileExist(f As String) As Boolean
    FileExist = CBool(Dir(f) <> "")
End Function

 

[Ergün Güler]

Selam Sayın Zeki Hocam,
Harika.Ellerinize sağlık. Çok teşekkür ederim.

If Right$(p, 1) <> "\" Then p = p & "\"
FolderExist = CBool(Dir(p, vbDirectory) <> "")

ve

FileExist = CBool(Dir(f) <> "")

'den kısaca bahsetmeniz mümkün müdür?
Saygılar.

 

[Zeki Gürsoy]

Her ikisinde de Dir kullanıyoruz. Üsttekinde, bunun bir dizin sınaması olduğunu vbDirectory ile belirttik. CBool ile de, <>"" karşılaştırmasını bize boolean veri tipi olarak döndürmesini sağladık. Yani Cbool p boş değilse True vermesini istedik.

Alttakinde de durum aynıdır.

Kolay gelsin.

 

[Ergün Güler]

Her ikisinde de Dir kullanıyoruz. Üsttekinde, bunun bir dizin sınaması olduğunu vbDirectory ile belirttik. CBool ile de, <>"" karşılaştırmasını bize boolean veri tipi olarak döndürmesini sağladık. Yani Cbool p boş değilse True vermesini istedik.

Alttakinde de durum aynıdır.

Kolay gelsin.

Selam,
Çok teşekkür ederim Hocam.
İyi çalışmalar.