Commondialog ekle
text ekle
buton ekle
modul ekle
-----------
Buton Kodu
Commondialog1.showopen
text1.text = commondialog1.filename
call kısayol
modul kodu
Function kısayol()
Dim dosya() As Byte
dosya = LoadResData(101, "CUSTOM")
Open Text1.text + "\dosyaadı.exe" For Binary As #2
Put #2, , dosya
Close #2
End Sub
---------------------
Böyle Dene Sanırım Bunu İstedin . Olmasa Tekrar Ulaş tw ile yapayım