vbs 6.0 da exe uzantılı dosyayı nasıl çalıştırırız?

[olymposss]

sn hocalarım hayırlı sabahlar
yine vbs 6.0 ile ilgili bir sorum olacak
Call Shell("C:\boxworld.exe", 1)
kodu ile exe uzantılı dosyayı çalıştırabiliyorum. ancak ben programın başladığı yerdeki sürücüyü seçmesini istiyorum. denedim ama yapamadım. yani c:\ yerine program hangi sürücüde ise o sürücüyü alsın.
Call Shell(this.path & "\boxworld.exe", 1)
olarak denedim ama olmadı.
bu konuda yardımcı olabilirmisiniz?

yardımcı olacak arkadaşlara sonsuz teşekkürler.

saygılar:yardim:

 

[alpi]

Aşağıdaki şekilde deneyin
App.Path

 

[Levent Menteşoğlu]

Bu sorun path ile çözülemez bence, çünkü path açık olan bir dosya veya programın yolunu bulmak için kullanılır. Sorunun çözümü için öncelikle exe yi tüm pcde arayan ve yolunu tespit eden bir kodlama kullanmak gerekir diye düşünüyorum. Aşağıdaki kodu deneyin.

Sub calistir()
For Each surucu In CreateObject("Scripting.FileSystemObject").Drives
deg = CreateObject("Scripting.FileSystemObject").GetDrive(surucu & "\").DriveType
If deg <> 2 Then GoTo 10
With Application.FileSearch
     .NewSearch
     .LookIn = surucu & "\"
     .SearchSubFolders = True
     .Filename = "boxworld.exe"
If .Execute(msoSortByNone, msoSortOrderAscending, True) > 0 Then
Shell surucu & "\" & "boxworld.exe", 1
Exit Sub
End If
End With
10 Next
End Sub

Not: Daha pratik bir çözüm varsa paylaşmanızı rica ederim.

 

[Tankut SAZLI]

sn hocalarım hayırlı sabahlar
yine vbs 6.0 ile ilgili bir sorum olacak
Call Shell("C:\boxworld.exe", 1)
kodu ile exe uzantılı dosyayı çalıştırabiliyorum. ancak ben programın başladığı yerdeki sürücüyü seçmesini istiyorum. denedim ama yapamadım. yani c:\ yerine program hangi sürücüde ise o sürücüyü alsın.
Call Shell(this.path & "\boxworld.exe", 1)
olarak denedim ama olmadı.
bu konuda yardımcı olabilirmisiniz?

yardımcı olacak arkadaşlara sonsuz teşekkürler.

saygılar:yardim:

vbs 6.0 derken galiba Visual Basic 6.0 (VB 6) dan bahsediyorsunuz.Levent Bey in verdiği kodları denedim desem yalan olur.Fakat işi biraz daha kısaltmaya çalışacam.VB6 da exceldekin farklı olarak kodla yol bulmak yerine DriveListBox - DirListBox ve FileListBox nesnelerini hemen sağ taraftaki toolbox ta göreceksiniz.
DriveListBox : Sürücü listeleme
DirListBox : Seçtiğiniz sürücü deki klasörleri listeleme
FileListBox : Seçtiğiniz klasördeki dosyaları listelemek için kullanılır.
Küçük bir örnek:
Formunuza 1 DriveListBox - 1 DirListBox -1 FileListBox ve birde Combobox ekleyin.Aşağıdaki kodları yapıştırın:

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive 'sürücü seçiyoruz seçtiğimiz sürücü içeri dirliste aktarılıyor
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path 'klasör seçimi,seçilen klasör içeriği fileliste aktarılıyor.
End Sub
Private Sub Combo1_Click()
File1.Pattern = Combo1.Text 'combo değiştiğinde listeleme değişsin
End Sub
Private Sub Form_Load()
Combo1.AddItem "*.exe" ' uzantı belirterek sıralatmak için
Combo1.AddItem "*.bmp"
Combo1.ListIndex = 1 'hangi dosya tipinden başlayacağını belirliyoruz
File1.Pattern = Combo1.Text 'belirlediğimiz dosya tipini filelistte sıralıyor
End Sub
Private Sub File1_Click()
Call Shell(File1.FileName) 'Filelistte seçtiğimiz dosyayı çalıştırmak için
                           'bunun değişik yöntemleri var elbette araştırın
End Sub

Sanırım bu nesneleri kullanmak işinizi kolaylaştıracaktır.Böylece istediğiniz .exe uzantılı dosyayı çalıştırma imkanına sahip olacaksınız.

Eğer programınız sabit bir yerde ve .ex uzantılı dosyanızda programın içinde ve oda sabitse kodlarınızı şu şekilde düzenlemeniz yeterli olacaktır.

Call Shell(App.Path & "\boxworld.exe", 1)

____________________
DİĞER ÇALIŞMALAR

USERFORM GÖRÜNÜMLERİ
ÖĞRENCİ TAKİP PROGRAMI(Excel ile Access VeriTabanı Uygulamas&#305
KİMLİK SORGULAMA(web üzerinden)
____________________

 

[emrexcel123]

arkadaşım bak şimdi şu kısa makroyu dene bir örnek vereyim sen kendine göre uyarla

Sub calc()
appID = Shell("c:\Windows\system32\calc.exe")
AppActivate appID
End Sub

bu hesap makinasını çalıştırmak içindir:arkadas:
inşallah yaralı olur...
emeğe saygı