papsrod和VBS脚本的编辑器

查找与一个指定文件关联在一起的程序的文件名。可用Windows注册表编辑器将文件类型与特定的应用程序关联到一起。比如，扩展名为.TXT的文本文件通常与Windows记事本（Notepad.exe）关联到一起。如在文件管理器中双击含.TXT扩展名的一个文件，会自动启动记事本，并在其中载入文本文件
' Long，大于32表示成功；31表示不存在文件类型的关联；0表示系统内存或资源不足；ERROR_FILE_NOT_FOUND表示指定的文件不存在；ERROR_PATH_NOT_FOUND表示指定的路径不存在；ERROR_BAD_FORMAT表示执行格式无效
' 参数 类型及说明
' lpFile String，指定要为其查找相关程序的一个文件名或程序名
' lpDirectory String，要使用的默认目录的完整路径
' lpResult String，指定一个字串缓冲区，用于装载可执行程序的名字。注意这个字串预先至少都要初始化成MAX_PATH个字符的长度
关联文件名 ＝ 取空白字节集 (260)
文件名 ＝ 文件全路径
返回值 ＝ FindExecutable (文件名, “”, 关联文件名)
' 调试输出 (文件名, 到文本 (关联文件名), 返回值)
.如果真 (删全部空 (到文本 (关联文件名)) ＝ “” 或 返回值 ≤ 31) ' 如果取出是空,或失败,那么就返回原来的文件名
返回 (文件全路径)
.如果真结束
返回 (到文本 (关联文件名)) ' 否则就返回取到的关联文件名。