[مبتدئ]

Easy 4ever كتب :تأكد أخي من هذا الإجراء

PHP كود :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

NewFileType((Application.ExecutablePath), ("ans") , ("C:\Users\kkkkkkkkk\Downloads\myico.ico"), ("C:\Users\kkkkkkkkk\Desktop"))

MsgBox("تم الاعداد بنجاح")

End Sub 


بحيث انك لم تقم بإدخال مسار البرنامج وضغت فقط Application.ExecutablePath اكمل المسار بإضافة علامة & ومن ثم بين علامتي تنصيص أدخل \ ومن ثم اسم البرنامج ومن ثم نقطه ومن ثم exe سيكون الكود كتالي.
لأنفرض ان اسم البرنامج هو GGG

PHP كود :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

NewFileType((Application.ExecutablePath & "\GGG.exe"), ("ans") , ("C:\Users\kkkkkkkkk\Downloads\myico.ico"), ("C:\Users\kkkkkkkkk\Desktop"))

MsgBox("تم الاعداد بنجاح")
End Sub 


جرب وعطنا خبر

اعطانى نفس الخطئ