jpg veya bmp formatında kayıtlı resimleri açmak

[suha]

Sevgili arkadaşlar.
Ekde bulunan personel_2011 içeriğinde userform1 var texbox da yazan personel sicil numarasına göre butona bastığım zaman d:\Personel2011\ sicil numarasına göre resmi açmak istiyorum. Yardımcı olursanız sevinirim..
Saygılarımla.............

 

[halit3]

Bunu denermisiniz.

Private Sub CommandButton1_Click()
Dim Uzanti(3)
Uzanti(1) = "bmp": Uzanti(2) = "jpg": Uzanti(3) = "gif":
klasor = "d:\Personel2011\" & TextBox1.Text
For i = 1 To 3
dosya = klasor & "." & Uzanti(Val(i))
Dim ds, a
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.FileExists(dosya)
If a = True Then
CreateObject("Shell.Application").Open (dosya)
Exit For
Else
End If
Next i
End Sub

 

[suha]

Halit bey saygılarımla;;;

 

[Hacı Bayram ÖZKAN]

halit abi çok güzel olmuş eline sağlık, bir sorum var, personelin sicili girildiğinde, eğer personelin resmi yoksa, "Bu Personele ait Resmi yoktur." mesajını almak için nasıl bir makro yazılır. Bunuda eklermisin. Dua ile kal.

 

[Hacı Bayram ÖZKAN]

arkadaşlar 4 nolu mesaja bakar mısınız? Teşekkürler

 

[halit3]

halit abi çok güzel olmuş eline sağlık, bir sorum var, personelin sicili girildiğinde, eğer personelin resmi yoksa, "Bu Personele ait Resmi yoktur." mesajını almak için nasıl bir makro yazılır. Bunuda eklermisin. Dua ile kal.

Bunu denermisiniz.

Private Sub CommandButton1_Click()
Dim Uzanti(3)
Uzanti(1) = "bmp": Uzanti(2) = "jpg": Uzanti(3) = "gif":
klasor = "d:\Personel2011\"
dosyaadi = TextBox1.Text
deg = 0
For i = 1 To 3
dosya = klasor & dosyaadi & "." & Uzanti(i)
If CreateObject("Scripting.FileSystemObject").FileExists(dosya) = True Then
CreateObject("Shell.Application").Open (dosya)
deg = 1
Exit For
End If
Next i
If deg = 0 Then
MsgBox "bu personele ait resim yoktur"
End If
End Sub

 

[Hacı Bayram ÖZKAN]

abi var olan resimler de de, bu personele ait resim yok diyor, bir bakarmısın

 

[halit3]

abi var olan resimler de de, bu personele ait resim yok diyor, bir bakarmısın

bu bölümdeki tırnak işaretlerini kaldırınız yanlışlıkla kalmış

dosyaadi = [COLOR=red]"[/COLOR]TextBox1.Text[COLOR=red]"[/COLOR]

doğrusu bu

dosyaadi = TextBox1.Text

 

[Hacı Bayram ÖZKAN]

abi eline sağlık güzel olmuş, dua ile kal.