[Omar Mekkawy]

سلام عليكم أخي

بعد إذن أخوي ( الشاكي لله )
وجدت لك طلبك بأحد مواضيع المنتدى القديم للأخ (أنس محمود)

كود :

Sub NewFileType(ByRef ProgramPath As String, ByVal Extension As String _
    , ByRef FileIcon As String, ByRef Description As String)
        Dim W As Object
        Dim E As String
        W = CreateObject("Wscript.shell")
        If VB.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\DefaultIcon\", FileIcon)
        W.regwrite("HKCR\" & Extension & " File\Shell\Open\Command\", ProgramPath & " %1")
        W.regwrite("HKCR\" & Extension & " File\Shell\", "Open")
    End Sub

وهذا المثال بالكامل عبارة عن مفكرة متكاملة بخصائص روعة رفعتها لك
01244283237.rar - 52.20 KB

يعطيك العافية