Öncelikle herkese hayırlı ramazanlar.

Hazırlamış olduğum formda aktif durumdaki veri girişi ile ilgili dataları serverda yada bilgisayarda bir klasör altına kaydediyorum. Buraya kadar herhangi bir sorun yok. Bu aşamada yapmak istediğim şey;

1; buton yardımı ile ilgili klasör dizine ulaştıktan sonra bu dizin yolunu bir metin kutusuna kaydetmek.
2. Bu metin kutusunda bu klasör dizininin hyperlink olarak görünmesi,
3. Klasör yolu kaydedildikten sonra tek tıklama ile ilgili klasörün açılması,
4. Eğer metin kutusuna herhangi bir klasör dizini kaydedilmemiş ise varsayılan değerin "No" olarak görünmesi.

Bunları daha önce Taruz hocamızın vermiş olduğu bir örnekten yola çıkarak uygulamaya çalıştım fakat başarılı olamadım. Sanırım Set trz application durumunda içinden çıkamadığım bir durum var. Bu konuda bana yardımcı olabilir misiniz?

[Dim gzt As FileDialog
Dim DosyaAdi As String
Set trz = Application.FileDialog(msoFileDialogFilePicker)
With trz
.ButtonName = "Dosya Seç"
.InitialFileName = Environ("samliu-PC") & "C:\Users\samliu\Desktop\Raymould\Photos"
.InitialView = msoFileDialogViewThumbnail
.Title = "Dosya Seç..."
If .Show = True Then
For Each SeciliNesne In .SelectedItems
DosyaAdi = SeciliNesne
Next SeciliNesne
Me.Tool_2D = DosyaAdi

End If
End With]

Sayin ÜmitSamlı;

1. REFERANS *****Microsoft Office 15.0 Object Library. **** Isaretli olmali.
2. Formda Buton tiklandigi olay yordamina asagidaki 1. kodu tasiyiniz.
3. Formda DosyaListesi adinda liste kutusu olusturun.


4. DosyaListesi liste tiklama olayina asagidaki 2. kodu tasiyin.


5. Formu calistirip, Buton tusu ile Klasor penceresinden sectiginiz dosyalari, DosyaListesi kutucugunu tiklayip calistirabilirsiniz.

Onceki kodunuz referans isaretli olmadigindan calismamis olabilir.

Ornegi kendi projelerinize uygulayabilirsiniz.
  KlasorAcma_dsezgin.rar (Boyut: 21,47 KB / İndirilme: 123)

Kolay gelsin.....

Sayın dsezgin83260,

Emeğiniz için teşekkürler. Söylediklerinizi harfiyen uygulamaya çalıştım. Fakat ekli dosyadaki hata ile karşılaşıyorum. Ayrıca bir yanlışlık olmaması açısından tekrar belirtmek istiyorum. Ben klasörün içindeki bir dosyayı değil klasörün yolunu dosyalistesine kaydetmek ve direk olarak klasörü açmak istiyorum.

Saygılar,
Ümit ŞAMLI

Bir önceki mesajda koyduğum ekte hatanın nerede olduğu görünmüyor. Bu ekli resmi inceleyebilirsiniz.

(05-08-2013, 15:40)ÜmitSamlı demiş ki: Bir önceki mesajda koyduğum ekte hatanın nerede olduğu görünmüyor. Bu ekli resmi inceleyebilirsiniz.

RowSource acilan kutu kaynagi anlamina gelmekte. Sizin formdaki kutunuzun tipi Metin oldugundan kod hata vermekte. Bir onceki mesaja ornek VT ekledim. Inceleyip kendi projenize aktarabilirsiniz. Projenizin vba daki object referansinin isaretli olmasi gerekmekte !

Bir onceki hata resmi ise,referansi isartledikten sunra vba complite etmeliydiniz (vba, Debug-Compile Database). Kendi projenize kodu aktarma isleminde Tool2D tiklama olay yordamina tasimis ama kodun icindeki Dosyalistesi.RowSource olan satirlari Tool2D olarak degistirmelisiniz.

Kolay gelsin......

Haklıymışsın üstadım. dediklerini uyguladıktan sonra herhangi bir hata vermedi. Ama sanırım ben yanlış terimler kullandığım için sıkıntımı anlatamadım.

Benim rowsource a kaydederek daha sonra tıklayarak açmak istediğim klasör dizini.

Yani istiyorumki komut butonuna tıkladığımda ilgili kalsör dizini seçip açılan kutuya aşağıdaki gibi kopyalamak. sonrasında açılan kutu üzerine tıkladığımda ilgili klasörün açılması ve altında yer alan *.jpg, *.png, *.xls, vb. gibi birbirinden farklı uzantıdaki dosyaları görebilmek.
C:\Users\samliu\Desktop\Raymould

sizin vermiş olduğunuz örnek aşağıdaki dizini açılan kutuya kopyalıyor.
C:\Users\samliu\Desktop\Raymould\photo.png

emeğiniz için teşekkürler tekrar. Yazmış olduğunuz kodları anlatmak istediğim şekilde uygulayabilir miyiz?