文件关联设置
2011-02-07 14:25:36| 分类: VB.net2008或2010 | 标签:文件关联 |举报|字号 订阅
原理:以后缀名为.txt为例
方式一:
1、在注册表HKEY_CLASSES_ROOT键下创建一个子键,子键名为.txt然后设置其默认值为Name(Name表示你自己取的名称)
2、再在注册表HKEY_CLASSES_ROOT键下创建一个子键,子键名为NameShellOpencommand然后设置command的默认值为关联程序路径即可。
方式二:
在注册表HKEY_CLASSES_ROOT键下创建一个子键,子键名为.txtShellOpencommand然后设置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 + "ShellOpencommand")
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("无文本的默认打开程序");
}