[تنبيه - عنوان غير مناسب : ]مساعدة

السلام عليكم

ارجو من الاخوة الاعضاء بالمنتدى مساعدتى فى فهم الكود

انا كنت طلبت شرح لعمل امتداد خاص لبرنامنجى ولم ياتى الرد الى الان

ولكنى بحثت حتى وجدت هذا الكود

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
 

وارجوا المساعدة فى فهمة ممن لديه خبرة ومعرفة