[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

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