魔兽世界神器大厅在哪:VB高手请帮帮小女子！！！

要打开一个文件,如果使用API,可以这样写:

'以下是声明部分

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

'下面是当按下command1时弹出打开文件的对话框

Private Sub Command1_Click()
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = Form1.hWnd
OpenFile.hInstance = App.hInstance
sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0)
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = String(257, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = "C:\"
OpenFile.lpstrTitle = ""
OpenFile.flags = 0
lReturn = GetOpenFileName(OpenFile)
If lReturn = 0 Then
MsgBox "The User pressed the Cancel Button"
Else
MsgBox "The user Chose " & Trim(OpenFile.lpstrFile)
End If
End Sub

'如果要当按下command2时运行记事本,可以这样:

Private Sub Command2_Click()
Dim x
x=Shell("notepad.exe")
End Sub

去看MSDN里的文件操作和Shell

打开一个文件:Open "文件路径"，打开方式 ,#文件号
在VB中实现点击某个按钮后，让该机的某个程序运行：
Private Sub Command1_Click()
Shell(你想打开的程序的路径)
End Sub

第一个问题：
您问得不清楚。
1、前面已经有人提议使用“顺序文件”：
Dim nfile As Integer
nfile=FreeFile
Open app.path&"\test.txt" For [Append] As #nfile
……
Close #nfile
[]中的意思是以 添加 写方式打开
Output是以覆盖写方式打开
Input是以只读方式打开 等等就不一一列举了

2、可以调用Common Dialog通用对话框控件
用这种方法也可能可以解决第二个问题，具体就不赘述了

3、API函数 上面
狂醉轻舞 - 试用期 一级
已经演示了，就不说了

第二个问题： 给个示例就明白了：
Shell "mspaint.exe", vbNormalFocus
这样就打开了画图软件，Windows中许多小软件都不需要加路径如 记事本
（Notepad.exe）

★ShellExecute函数和Shell函数：打开外部程序

ShellExecute函数
'声明
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 Long

'命令语句
Private Sub Command1_Click()
Dim lR As Long
lR = ShellExecute(Me.hWnd, "Open", sFile, "", "", vbNormalFocus)
End Sub

本函数还可以用来连接到网页：
ShellExecute 0&, vbNullString, "http://coolbasic.yeah.net", vbNullString, vbNullString, vbNormalFocus
或者这样写来发送Email：
ShellExecute me.hwnd, "open", "mailto:vbcode@vbcode.com", vbNullString, vbNullString, SW_SHOW

另外有ShellExecute的替代用法，更加简单实用，不用API，一句Shell搞定！
连接到网页：
Shell "rundll32.exe url.dll,FileProtocolHandler http://www.online.sh.cn"
打开文件：
Shell "rundll32.exe url.dll,FileProtocolHandler " & App.Path & "\SHELLTST.TXT"

Shell函数
运行一个可执行程序，并且如果该程序仍然在运行，则返回一个包含该程序的进程 ID 的整数。

Public Function Shell( _
ByVal Pathname As String, _
Optional ByVal Style As AppWinStyle = AppWinStyle.MinimizedFocus, _
Optional ByVal Wait As Boolean = False, _
Optional ByVal Timeout As Integer = -1 _
) As Integer

格式：Shell(Pathname, Style As AppWinStyle, Wait, Timeout)

参数：
△Pathname
必选项。字符串。要执行的程序名以及任何需要的参数和命令行开关。Pathname 还可以包括驱动器和目录路径或文件夹。
△Style
可选项。AppWinStyle。从 AppWinStyle 枚举中选择的值，该枚举与要在其中运行程序的窗口样式相对应。如果省略 Style，则 Shell 使用 AppWinStyle.MinimizedFocus，这将使程序以最小化启动并具有焦点。
Style 参数可以有以下设置之一：
AppWinStyle.Hide 隐藏窗口并为隐藏的窗口提供焦点。
AppWinStyle.NormalFocus 为窗口提供焦点，并以最近的大小和位置显示窗口。
AppWinStyle.MinimizedFocus 为窗口提供焦点，并以图标的形式显示窗口。
AppWinStyle.MaximizedFocus 为窗口提供焦点，并以全屏方式显示窗口。
AppWinStyle.NormalNoFocus 将窗口设置为最近的大小和位置。当前活动窗口保持焦点。
AppWinStyle.MinimizedNoFocus 以图标的形式显示窗口。当前活动窗口保持焦点。

△Wait
可选项。Boolean。指示 Shell 函数是否应等待程序完成的值。如果省略 Wait，则 Shell 使用 False。
△Timeout
可选项。Integer。Wait 为 True 时等待完成的毫秒数。如果省略 Timeout，则 Shell 使用 -1，表示没有超时，Shell 直到程序完成时才返回。因此，如果省略 Timeout 或将它设置为 -1，则 Shell 可能永远不会将控制返回给程序。

异常/错误
异常类型 错误号 条件
ArgumentException 5 Style 不在 0 到 9（包含 0 和 9）范围内。
FileNotFoundException 53 Shell 无法启动指定的程序。

备注
Shell 函数的返回值取决于 Pathname 中指定的程序在 Shell 返回时是否仍在执行。如果将 Wait 设置为 True 并且程序在超时过期前结束，Shell 返回零。如果超时过期或者省略 Wait 或将它设置为 False，则 Shell 返回程序的进程 ID。进程 ID 是标识正在运行的程序的唯一数字。

如果 Shell 函数无法启动指定的程序，则出现 System.IO.FileNotFoundException 错误。例如，当试图从使用 System.Windows.Forms 的应用程序运行 16 位程序（如 command.com）时，可能会发生这种情况。解决办法是运行将调用所需的 16 位程序的 32 位程序。如果是 command.com，则可以将运行 cmd.exe 作为另一种选择。

默认情况下，Shell 函数异步运行程序。这意味着用 Shell 函数启动的程序在 Shell 函数后面的语句执行前可能没有结束执行。如果想等待程序结束后再继续，请将 Wait 设置为 True。

整个路径和文件规范应该始终用引号引起来，如以下示例所示：

ID = Shell("""C:\Program Files\MyFile.exe"" -a -q", , True, 100000)
字符串内每对相邻的双引号 ("") 被解释为字符串中的一个双引号字符。因此，前面的示例表示 Shell 函数的下列字符串：

"C:\Program Files\MyFile.exe" -a -q
如果路径没有用引号引起来，Windows 就会在 C:\ 目录中查找名为 Program.exe 的文件，而不是在 C:\Program Files 目录中查找 MyFile.exe 文件。

安全说明 如果路径和文件规范没有用引号引起来，那么当文件名或路径节点包含空格时，就会出现安全风险。在上面的示例中，路径节点 \Program Files 包含一个空格。如果规范不在引号中，并且名为 Program.exe 的程序（例如通过非法的破坏）安装在 C:\ 中，Windows 就会执行 Program.exe 程序而不是 MyFile.exe。
安全说明 Shell 函数需要非托管代码权限，这可能会对它在部分信任情况下的执行产生影响。有关更多信息，请参见 SecurityPermission 类和代码访问权限。
示例
本示例使用 Shell 函数运行一个用户指定的应用程序。通过将 AppWinStyle.NormalFocus 指定为第二个参数，以正常大小打开应用程序并为它提供焦点。

Dim ProcID As Integer
' Run Calculator.
ProcID = Shell("C:\Windows\system32\calc.exe", AppWinStyle.NormalFocus)
' The preceding path is for Windows XP;
' The Windows 2000 path is C:\WINNT\system32\calc.exe.

另,shell函数无须声明,例:
Option Explicit

Private Sub Command1_Click()
Shell ("D:\Program Files\WinRAR\winrar.exe")
End Sub

哇！！！