App.path Lutfen yardım edin

[Servers]

Beyler app.path dosya açıcam ama denediklerim den hiç biri olmadı lutfen yardım edin

Denediklerim

Shell App.path & "Dosyaadi.exe",vbNormalFocus

App.path & "Dosyaadi.exe"

Lutfen beklıyorum

[kemalak]

  Shell App.Path & "\Dosyaadi.exe", vbNormalFocus     

   

Böyle dene   Kolay gelsin                 

[ßy_Sky]

Shell App.path & "Dosyaadi.exe",vbNormalFocus

adam zaten vermış :=)

[yas]

Shell App.path & "Dosyaadi.exe",vbNormalFocus

adam zaten vermış :=)

Adam vermiş ama eksik vermiş kemalak doğrusunu vermiş "\" karakterini yazmamış

[ßy_Sky]

Adam vermiş ama eksik vermiş kemalak doğrusunu vermiş "\" karakterini yazmamış

hayır onu demek istemedim ben denedim yanlış hata veriyor

[yas]

Private Sub Command1_Click()
Shell App.Path & "\11.exe", vbNormalFocus
End Sub

Şimdi denedim proje klasörünün içerisine "11.exe" isimli bir sadece formdan oluşan exe oluşturdum. Vb Project deki formumada bir buton ekledim ve yukarıdaki satırı yazdım butona basıldığında hata filan vermeden "11.exe" açılıyor demek ki sizin başka bir sorununuz var. İsterseniz "&" yerine "+" kullanın aynı sonucu veriyor.

Eğer hatayı bulamıyorsan isterseniz hata veren sub rutinin ilk satırına aşağıdaki eklentiyi yap belki çözüm olabilir ama bence hatanın kesin kaynağını bulmaya çalış çünkü bu yöntem proffesiyonel bir çözüm olmaz.

Private Sub .............()
On Error GoTo Hatalar
....
....
....
Hatalar:
End Sub

[yas]

Bazen boşuna yazıyormuşum gibi geliyor. Belki birilerinin gözüne çarparda işine yarar diye üşenmemeye çalışıyorum ama galiba eneyilik yapıyorum. Baksanıza soran soruyu sormuş bitarafını dönmüş gitmiş. Bence kesin sorununu çözmüştür çünkü çok basitti. Ama buraya yazma zahmetinde bile bulunmamış bizde burda klavye yıprazıyoruz galiba yanlış yapıyoruz her soru sorana cevap vererek. Bundan sonra 1 mesajı olan üyelere cevap yazmamayı prensib ediniyorum kendime.
Kolay gelsin.

[ßy_Sky]

Haklısın Ama yinede soyleyelim sadece exe de çalışıyor txt niye açılmıyor ?

[yas]

Ama soruda açılmak istenen şey "dosyaadı.exe" diye nitelendirilmiş yani var olan bir exe nin çalıştırılması istenmiş eğer yapılmak istenen txt uzantılı bir dosyayı açmaksa ufak bir eklenti gerekli, shell komutundan sonra dosyayı açacak programı açıp bir boşluk verip dosyanın bulunduğu yeri ve dosya ismini vermeliyiz notepad ile uygulamanın yanındaki txt uzantılı bir dosyayı açmak istiyorsak aşağıdaki örnek iş görür.

Shell ("notepad.exe " & App.Path & "\dosya.txt")

[ßy_Sky]

Ama soruda açılmak istenen şey "dosyaadı.exe" diye nitelendirilmiş yani var olan bir exe nin çalıştırılması istenmiş eğer yapılmak istenen txt uzantılı bir dosyayı açmaksa ufak bir eklenti gerekli, shell komutundan sonra dosyayı açacak programı açıp bir boşluk verip dosyanın bulunduğu yeri ve dosya ismini vermeliyiz notepad ile uygulamanın yanındaki txt uzantılı bir dosyayı açmak istiyorsak aşağıdaki örnek iş görür.

Teşekkur ederim İşime yaradı saol