صنع ملف ذو امتداد خاص

اخي اعتقد انه عليك كتابة هذا الكود الاتي

Sub NewFileType(ProgramPath As String, ByVal Extension As String, Description As String)
    Dim W As Object
    Dim E As String
    
    Set W = CreateObject("Wscript.shell")
    
    If Left(Extension, 1) <> "." Then
       E = "." & Extension & "\"
    Else
       E = Extension & "\"
       Extension = Mid(Extension, 2)
    End If
    
    W.regwrite "HKCR\" & E, Extension & " File"
    W.regwrite "HKCR\" & Extension & " File\", Description
    W.regwrite "HKCR\" & Extension & " File\Default Icon\", ProgramPath
    W.regwrite "HKCR\" & Extension & " File\Shell\Open\Command\", ProgramPath & " %1"
    W.regwrite "HKCR\" & Extension & " File\Shell\", "Open"
End Sub

و في البرنامج تكتب

NewFileType "C:\data\Test.exe" , "rgd" , "Rgheed Special Files"

اخي رجاء ان لا تنسانا بالدعاء و لا تنسى اخانا رغيد الطيب فهو م نعلمني هذا

جزاك الله خير عنى

وشكرا لرغيد الطيب

طيب مافيش مثال على الموضوع ده

حفظ ملف بالمتداد ده ومن ثم فتحه