。net 添加或获取文件关联

文件关联设置

2011-02-07 14:25:36|  分类： VB.net2008或2010 |  标签：文件关联  |举报|字号 订阅

 

 

原理：以后缀名为.txt为例

方式一:

1、在注册表HKEY_CLASSES_ROOT键下创建一个子键，子键名为.txt然后设置其默认值为Name（Name表示你自己取的名称）

2、再在注册表HKEY_CLASSES_ROOT键下创建一个子键，子键名为Name\Shell\Open\command然后设置command的默认值为关联程序路径即可。

方式二:

在注册表HKEY_CLASSES_ROOT键下创建一个子键，子键名为.txt\Shell\Open\command然后设置command的默认值为关联程序路径即可。

方式二比较简单，但方式一比较常见，这里以方式一的原理为例。以下为示例代码：（调用时直接使用File_Associate（后缀名，关联程序路径）即可）

源代码:

Public Function File_Associate(ByVal Extion As String, ByVal FilePath As String) As Boolean '关联文件，Extion格式为“.txt”，FilePath为关联的程序路径

FilePath = Trim(FilePath)

Extion = Trim(Extion)

If FilePath.Length > 4 And Extion.Length > 2 Then

If Mid(FilePath, FilePath.Length - 3, 4).ToLower = ".exe" And Extion.StartsWith(".") Then

If My.Computer.FileSystem.FileExists(FilePath) And InStr(2, Extion, ".") = 0 Then

Dim reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot

Dim reg2 As Microsoft.Win32.RegistryKey = reg.CreateSubKey(Extion)

Extion = My.Computer.FileSystem.GetFileInfo(FilePath).Name + Extion

reg2.SetValue("", Extion)

reg2.Flush()

reg2 = reg.CreateSubKey(Extion + "\Shell\Open\command")

FilePath = Chr(34) + FilePath + Chr(34) + " " + Chr(34) + "%1" + Chr(34)

reg2.SetValue("", FilePath)

reg2.Flush()

reg.Close()

Return True

End If

End If

End If

Return False

End Function

以上内容摘自：http://blog.163.com/shikang999@126/blog/static/17262489620111722025573/

通过阅读此段代码，只要读取注册表中classroot中是否有指定后缀名的节点即可确定是否有对应的文件关联。

主要代码：

if(Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(".txt")==null)

{

MessageBox("无文本的默认打开程序");

}