Sanırım tıkandığında ilişkili uygulama ile açılması hariç şöyle bir şey istediniz.
Tıklama olayındaki shell komutundaki argument olayını çözememekle beraber, şu komut bat, exe, cmd, com dosyalarını çalıştırıyor.
Kod:
Private Sub yol_Click()
Dim calistir
calistir = Shell(yol, 1)
End Sub
ancak bura şöyle bir durum oluşuyor: Dosyalar çalıştırılabilir olursa çalışıyor, ama uzantılar için shell'in nasıl bir argument kullandığını bilmediğimden ona uygun komutu yazamadım. Sanırım dosyalara tıklandığında çalışması için bir modül vardı, o kullanılırsa problem aşılabilir. Şu an için registerdeki dosya ilişkilerine bakarak uzantıya göre asıl programı da açacak bir yol arıyorum.
Siz bir çözüm bulduysanız buraya yazın da boşuna aramayayım. Konuya dönüş de yapmamışsınız.
Sayın mehmetdemiral cevabınız ve ilginiz için teşekkürler, bilgisayara uzak kaldığım için cevap veremedim. Örneğinizi inceledim, yol ekleniyor ama açmak için tıklandığında açmıyor, bununla ilgili çözümün ise nasıl olduğunu doğrusu bilmiyorum,
Yardımlarınızla sorun çözülürse sevinirim, olmazsa yapacak birşey yok.
İlginiz için tekrar teşekkürler.
Tıklama konusunda çıkmaza düştüğümü yukarıda yazmıştım. "Denize düşen shell'e sarılır" misali ben de shell komutunu kullanmak istedim ama yukarda anlattığım problem yüzünden tam bir çözüm olamadı. Bütün uzantıların tıklatıldığında çalıştırılabilmesini sağlayan bir modül olduğunu duymuştum. Bu konuyu bilen ustalardan yardım bekliyorum.
mehmet hocamın belirttiği modül eklenmiş hali aşağıdadır.