كيف يمكن انشاء ملف بأمتداد معين

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

اكتب هذا الكود

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"

حيث ان

ProgramPath اسم برنامجك ومساره

Extension الامتداد

Description وصف النوع الجديد

راجع الرابط التالي:

/index.php?showtopic=61625