Picproje Elektronik Sitesi

PROGRAMLAMA DİLLERİ => Visual Basic => Konuyu başlatan: Servers - 01 Eylül 2010, 15:13:53

Başlık: App.path Lutfen yardım edin
Gönderen: Servers - 01 Eylül 2010, 15:13:53
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
Başlık: Ynt: App.path Lutfen yardım edin
Gönderen: kemalak - 01 Eylül 2010, 16:12:49
  Shell App.Path & "\Dosyaadi.exe", vbNormalFocus        

Böyle dene   Kolay gelsin                 
Başlık: Ynt: App.path Lutfen yardım edin
Gönderen: ßy_Sky - 03 Eylül 2010, 15:50:01
Shell App.path & "Dosyaadi.exe",vbNormalFocus

adam zaten vermış :=)
Başlık: Ynt: App.path Lutfen yardım edin
Gönderen: yas - 03 Eylül 2010, 16:39:51
Alıntı yapılan: ßy_Sky - 03 Eylül 2010, 15:50:01
Shell App.path & "Dosyaadi.exe",vbNormalFocus

adam zaten vermış :=)

Adam vermiş ama eksik vermiş kemalak doğrusunu vermiş "\" karakterini yazmamış :)
Başlık: Ynt: App.path Lutfen yardım edin
Gönderen: ßy_Sky - 05 Eylül 2010, 13:14:19
Alıntı Yap
Adam vermiş ama eksik vermiş kemalak doğrusunu vermiş "\" karakterini yazmamış

hayır onu demek istemedim ben denedim yanlış hata veriyor :)
Başlık: Ynt: App.path Lutfen yardım edin
Gönderen: yas - 06 Eylül 2010, 23:49:36
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
Başlık: Ynt: App.path Lutfen yardım edin
Gönderen: yas - 06 Eylül 2010, 23:56:54
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.
Başlık: Ynt: App.path Lutfen yardım edin
Gönderen: ßy_Sky - 14 Eylül 2010, 19:58:06
Haklısın Ama yinede soyleyelim :D sadece exe de çalışıyor txt niye açılmıyor ?
Başlık: Ynt: App.path Lutfen yardım edin
Gönderen: yas - 14 Eylül 2010, 21:26:32
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")
Başlık: Ynt: App.path Lutfen yardım edin
Gönderen: ßy_Sky - 16 Eylül 2010, 11:04:16
Alıntı YapAma 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 :)