高手帮忙,怎么使一个文件格式与一个程序关联起来
高手帮忙,怎么使一个文件格式与一个程序关联起来,当点击这类文件时可以用程序打开,并且vb程序中怎么编写,才能读写这类文件
[解决办法]
先修改注册表,之后你的文件相当于程序的一个参数,此时在程序中调用此参数:vba.command即可,至于怎么打开文件并读取就不用说了吧。
给个简单的示例:
Option ExplicitPrivate Sub Command1_Click()Dim exepath, iconpathexepath = App.Path & "\" & App.EXEName & ".exe %1" '当前程序的路径iconpath = App.Path & "\" & App.EXEName & ".exe"Dim w As ObjectSet w = CreateObject("wscript.shell")w.regwrite "HKEY_CLASSES_ROOT\.eag\", "eagfile", "REG_SZ" '关联.eAg文件w.regwrite "HKEY_CLASSES_ROOT\eagfile\shell\open\command\", exepath, "REG_SZ"w.regwrite "HKEY_CLASSES_ROOT\eagfile\DefaultIcon\", iconpath, "REG_SZ" 'Set w = NothingEnd SubPrivate Sub Form_Load() MsgBox VBA.CommandEnd Sub