如何定义一个文件的打开方式

Question

如下路径下有一个文件（E:\ABAQUS\111\1.inp），我想用记事本的方式打开它，VB怎么编程？越简单越好，最好只用一个command按钮就能实现的那种

Answer 1

Shell "notepad.exe E:\ABAQUS\111\1.inp"

Answer 2

'提供一种新方法,也许正是LZ需要的
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPrivate Sub Command1_Click
    '其实Shell 只不过是封装了ShellExecute 这个API
    'ShellExecute Me.hwnd, "open", "http://blog.csdn.net/prsniper", vbNullString, vbNullString, 1
    'ShellExecute Me.hwnd, "open", "E:\ABAQUS\111\1.inp", vbNullString, vbNullString, 1
    ShellExecute Me.hwnd, "open", "notepad.exe", "E:\ABAQUS\111\1.inp", vbNullString, 1
End Sub

Answer 3

按你的说法 ShellExecute 也只不过是封装了进程、注册表等一系列的 API
而这些进程、注册表的 API 只不过是调用了 NT_ API ，而这些 NT_ API 只不过是
封装内核进程管理接口和文件管理接口，这些内核进程管理接口和文件管理接口
只不过是封装了 CPU 指令集。
其实这种需求用VB自带的函数就可以简单解决，没必要用到 API，真要追溯根源，也不会
只能追溯到 API 这一层，还可以追溯到很多东西。其实 VB 本身的东西能用就好，真的
到了 VB 本身不能达到开发需求的时候，再去考虑其他途径或开发工具较为合适。

Answer 4

按你的说法 ShellExecute 也只不过是封装了进程、注册表等一系列的 API
而这些进程、注册表的 API 只不过是调用了 NT_ API ，而这些 NT_ API 只不过是
封装内核进程管理接口和文件管理接口，这些内核进程管理接口和文件管理接口
只不过是封装了 CPU 指令集。
其实这种需求用VB自带的函数就可以简单解决，没必要用到 API，真要追溯根源，也不会
只能追溯到 API 这一层，还可以追溯到很多东西。其实 VB 本身的东西能用就好，真的
到了 VB 本身不能达到开发需求的时候，再去考虑其他途径或开发工具较为合适。

Answer 5

按你的说法 ShellExecute 也只不过是封装了进程、注册表等一系列的 API
而这些进程、注册表的 API 只不过是调用了 NT_ API ，而这些 NT_ API 只不过是
封装内核进程管理接口和文件管理接口，这些内核进程管理接口和文件管理接口
只不过是封装了 CPU 指令集。
其实这种需求用VB自带的函数就可以简单解决，没必要用到 API，真要追溯根源，也不会
只能追溯到 API 这一层，还可以追溯到很多东西。其实 VB 本身的东西能用就好，真的
到了 VB 本身不能达到开发需求的时候，再去考虑其他途径或开发工具较为合适。