Merhaba sistem klasörünü sorunsuz bulduruyorum ama gömülü exe yi açtıramıyorum bi el atarsanız sevinirim. Dim resbytes As Byte resbytes = LoadResData(101, "CUSTOM") Dim no As Byte no = FreeFile Open "& vbturk\asd. exe" For Binary As #no Close #no Shell App. Path & "& vbturk\asd. exe", vbNormalFocus Label5. Caption = "Client Bilgi : v1.0 - Baglandi" End Sub Şu da gömülü dosyayı çıkartmaya çalıştığım işlem : Private Sub Form_Load Dim vbturk As String 255 Dim uzn As Long 'API işlevi ile system klasörü ve karaktersel uzunluk uzn = GetSystemDirectory(vbturk, 255) '255 karakterin boş haneleri siliniyor vbturk = Left$ 'Görüntülüyoruz. MsgBox "Windows System klasörü: " & vbturk End Sub

yanlıs olmus değişkeni tırnak işareti içine alamazsın Kod: Open "& vbturk\asd. exe" For Binary As #no değil Kod: Open vbturk & " \asd. exe" For Binary As #no olcak Vb.