Question

如何用VB打开当前目录下的txt

点击button 名称s5
自动打开当前目录下的txt文本 名称1.txt
要有焦点

Answer 1

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 Const SW_SHOWNORMAL As Long = 1
Private Const SW_HIDE As Long = 0

Private Sub Command1_Click()
Dim TxtPath As String
TxtPath = App.Path & "\s5.txt"
Call ShellExecute(Me.hWnd, "Open", TxtPath, vbNullString, App.Path, SW_SHOWNORMAL)
End Sub