خارج نشدن از برنامه

[xrezax]

بچه ها من با برنامم یک فایلی را از کنار برنامه به درایو d منتقل می کنم و اجرا میکنم . اما وقتی از برنامه خارج میشم و برنامه رو پاک می کنم پاک نمیشه و میگه درحال اجراست. چطور این مشکل را حل کنم؟؟؟؟

[محسن واژدی]

سلام علیکم
کد زیر را بررسی کنید:
Public Sub ExitProgram()
Dim fFrom As Form
For Each fFrom In Forms
Unload fFrom
Next
End
End Sub

موفق باشید

[xrezax]

بی فایدست. تغییری نکرد.

اینم دستوراتم


FileCopy App.Path & "\" & "1.bat", Environ("windir") & "\1.txt"
Shell Environ("windir") & "\1.txt", vbHide

[MohammadGh2011]

سلام عليکم

بی فایدست. تغییری نکرد.
شما روالي که جناب آقاي واژدي نوشتند رو فراخواني کرديد؟!
call ExitProgram



موفق باشيد

[xrezax]

همچنان بی فایدست ...

[مهرداد صفا]

با سلام
ببخشید! از بسته شدن text editor مطمئن هستید؟ تابع reset را امتحان کردید؟

[xrezax]

با سلام
ببخشید! از بسته شدن text editor مطمئن هستید؟ تابع reset را امتحان کردید؟

نه. میشه سورس بزارید

[مهرداد صفا]

روال reset فایلهای باز شده توسط برنامه را میبندد.


'in the name of god
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Sub Form_Load()
Dim handle As Long
handle = Shell(Environ("windir") & "\1.txt", vbHide)
CloseHandle handle
Reset
End Sub



امیدوارم جواب بده.

[xrezax]

اینم کار نداد ...

[MohammadGh2011]

سلام عليکم

بچه ها من با برنامم یک فایلی را از کنار برنامه به درایو d منتقل می کنم و اجرا میکنم . اما وقتی از برنامه خارج میشم و برنامه رو پاک می کنم پاک نمیشه و میگه درحال اجراست. چطور این مشکل را حل کنم؟؟؟؟
بيشتر توضيح بديد.


اینم کار نداد ...
سورستون رو ضميمه کنيد تا بررسي شود.

[xrezax]

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

FileCopy App.Path & "\" & "1.bat", Environ("windir") & "\1.txt"
Shell Environ("windir") & "\1.txt", vbHide

[محسن واژدی]

سلام
این دستورات تداخلی در خارج شدن از برنامه ایجاد نمیکنند!، ممکن است مشکل از جای دیگری از برنامه باشد
اگه برنامه را در زمان نوشتن تست میکنید یک بار آنرا کمپایل و دوباره تست کنید

صحیح دستور Shell هم بصورت زیر میتوانیم بنویسیم:

Shell "notepad " & Environ("windir") & "\1.txt", vbHide

موفق باشید

[xrezax]

من مشکل می دونم کجاست.

مشکل اینه چون از طریق برنامه یک فایلی باز می کنم می گه باید اون فایل بسته بشه که من نمی خوام بسته بشه

[بهروز عباسی]

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

FileCopy App.Path & "\" & "1.bat", Environ("windir") & "\1.txt"
Shell Environ("windir") & "\1.txt", vbHide
درود
شما از پایان یافتن عملیات کپی قبل از بستن برنامه اطمینان دارید؟

[xrezax]

آره .............

[بهروز عباسی]

من مشکل می دونم کجاست.

مشکل اینه چون از طریق برنامه یک فایلی باز می کنم می گه باید اون فایل بسته بشه که من نمی خوام بسته بشه
چرا نمی خوای بسته بشه؟
تا وقتی که هندل فایل توسط برنامه شما در حال استفاده است که نمیشه برنامه رو بست.
حالا برنامه هم بسته بشه وقتی برنامه ای نیست که کار مورد نظر شما رو روی فایل انجام بده چه فایده ای داره؟

کمی در مورد کاری که می خوای انجام بدی توضیح بده.

موفق باشید

[xrezax]

باید اجرا باشه و برنامه رو ببنده .

نمی شه یه کاری کرد برنامه یک دستور علکی دیگه ای ارسال کنه تا دستور قبلی رو رها کنه و بشه خارجش کرد ؟؟