منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(04-01-18, 12:48 AM)eiocm كتب : [ -> ]كان المفروض أن أدخل Kill شرط وجود الملف، لكن نسيته سهوا فعذرا

تفضل التعديل

شكرا لك
ساحاول اضافة للمثال كود حذف الملف التنفيذي عند الخروج من البرنامج
شكرا لك

لم يفلح معي

FileName تم تعريفه داخل Cammand1 ولأجل أن يعمل يجب تعريفه في الأعلى

تفضل هذا التعديل
Dim Path_File As String
Dim FileName As String

Private Sub Command1_Click()
Path_File = Environ("AppData") & "\bt\"
If Dir$(Path_File, vbDirectory) = "" Then
MkDir Path_File
DoEvents
End If
MsgBox "Done..."
Call Get_Data_Resource
End Sub

Public Sub Get_Data_Resource()
Dim Arry() As Byte
Dim MyFile As Long
FileName = Path_File & "\myprog.exe"

If Dir$(FileName) <> "" Then Kill FileName

Arry = LoadResData(102, "Custom")
MyFile = FreeFile
Open (FileName) For Binary Access Write As #MyFile
Put #MyFile, , Arry
Close #MyFile

Shell FileName, vbNormalFocus
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Dir(FileName) <> "" Then Kill (FileName)
End Sub

لكن تأكد أن الملف ليس قيد الاستخدام

(04-01-18, 01:09 AM)eiocm كتب : [ -> ]FileName تم تعريفه داخل Cammand1 ولأجل أن يعمل يجب تعريفه في الأعلى


لكن تأكد أن الملف ليس قيد الاستخدام

الف مليار تريال شكر اخي الله يرضى عليك ويهنيك

والشكر لأخي أمير
فقد سهل الموضوع بوضعه المرفق