اجرای یک فایل

[pixel59]

سلام به دوستان

میخوام وقتی رویه یک Button کلیک میشه یک فایل EXE اجرا بشه مشکلم اینه که میخوام مسیر خواستی برای فایل EXE نداشته باشه که وقتی رویه هر سیستمی بوسیله سی دی قرار میگیره این کار انجام بشه ممنون میشم راهنماییم کنید.

فعلا کد زیر را نوشتم بگین چه تغییری باید بهش بدم؟




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim stAppName As String
stAppName = "setup.exe"
Call Shell(stAppName, 1)
End Sub
End Class

[ali_habibi1384]

با استفاده از تابع app.path مسیر جاری رو پیدا کنید و با توابع API فایل exe رو اجرا کنید. تابع اونهم خودم در تاپیک 100 سورس تابع API گذاشتم.

[mpmsoft]

می تونی از این کد استفاده کنی



Shell(App.path & "\Setup.exe")

[pixel59]

سلام و ممنون از پاسختون

اگه ممکنه راهنمایی کنید که این فایل exe باید تو چه مسیری از فایلها باشه ؟ تو همون پوشه اصلی Solutionha ؟ چون بازم با کلیک رویه Button نتونستم اجراش کنم!

[perfeshnal]

سلام

اگر از کد جناب mpmsoft استفاده کنید باید فایلی که می خواهید اجرا کنید کنار فایل exe برنامه باشه
اگر هم قراره فایلی که می خواهید اجرا کنید داخل یک پوشه باشه باید به این شکل بنویسید.

Shell(App.path & "\اسم پوشه\Setup.exe")

[pixel59]

نظرتون چیه در مورد کد زیر و اگر از GetDrivType استفاده کنم آیا درسته دستورات زیر؟



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Drive As Integer
Dim FindCDROM As String
For Drive = 65 To 90
If GetDriveType(Chr(Drive) & ":\") = DRIVE_CDROM Then
FindCDROM = Chr(Drive) & ":\" Exit For
End If
Next Drive
Call Shell(FindCDROM & "Taxi-Service-v6.4" & "\Setup.exe", 1) End Sub
End Class