[bidaya]

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

تفضل التعديل

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

كود :

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

لم يفلح معي

[eiocm]

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

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

[bidaya]

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


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

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

[eiocm]

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