[bidaya]

(04-01-18, 12:23 AM)eiocm كتب : بعد إذن أخي أمير في تعديل كود المرفق

تفضل هذا التعديل وقد تمت تجربته لملف exe ولم تظهر مشكلة
Dim Path_File 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
   Dim FileName As String
   FileName = Path_File & "\myprog.exe"
   
   Kill FileName
   If Dir$(FileName) = "" Then
       Arry = LoadResData(102, "Custom")
       MyFile = FreeFile
       Open (FileName) For Binary Access Write As #MyFile
           Put #MyFile, , Arry
       Close #MyFile
       
   End If
   Shell FileName, vbNormalFocus
End Sub

ولو ظهرت لك مشكلة اشرحها مع وضع صورة لها

كانت مشكلة في    Kill FileName    فقمت بالغائها فشتغل تمام التمام
فهل الغائها سلبي
وشكرا