VB 打開文件代碼 VB打開文件的代碼該怎么寫
使用系統(tǒng)API函數(shù)ShellExecute實現(xiàn)打開文件。執(zhí)行后會調(diào)用與要打開文件擴展名關(guān)聯(lián)的程序打開這個文件。
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 Form_click()
ShellExecute(Me.hwnd, "open", "z:est.txt", "", "", 1)
End sub
函數(shù)參數(shù)及意義：
ShellExecute(
hWnd: HWND; {指定父窗口句柄}
Operation: PChar; {指定動作, 譬如: open、runas、print、edit、explore、find[2] }
FileName: PChar; {指定要打開的文件或程序}
Parameters: PChar; {給要打開的程序指定參數(shù); 如果打開的是文件這里應(yīng)該是 nil}
Directory: PChar; {缺省目錄}
ShowCmd: Integer {打開選項}
): HINST;
ShowCmd 參數(shù)可選值:SW_HIDE = 0; {隱藏}
SW_SHOWNORMAL = 1; {用最近的大小和位置顯示, 激活}
SW_NORMAL = 1; {同 SW_SHOWNORMAL}
SW_SHOWMINIMIZED = 2; {最小化, 激活}
SW_SHOWMAXIMIZED = 3; {最大化, 激活}
SW_MAXIMIZE = 3; {同 SW_SHOWMAXIMIZED}
SW_SHOWNOACTIVATE = 4; {用最近的大小和位置顯示, 不激活}
SW_SHOW = 5; {同 SW_SHOWNORMAL}
SW_MINIMIZE = 6; {最小化, 不激活}
SW_SHOWMINNOACTIVE = 7; {同 SW_MINIMIZE}
SW_SHOWNA = 8; {同 SW_SHOWNOACTIVATE}
SW_RESTORE = 9; {同 SW_SHOWNORMAL}
SW_SHOWDEFAULT = 10; {同 SW_SHOWNORMAL}
SW_MAX = 10; {同 SW_SHOWNORMAL}
WIN8系統(tǒng)調(diào)用此函數(shù)打開文件無效。
CommonDialog1只是獲取了文件名稱，要打開文件，還是要寫代碼的。即讀取文件代碼。
Private
Sub
Command1_Click()
Shell
Chr(34)
&
"C:\Documents
and
Settings\Administrator\桌面\工程1.exe"
&
Chr(34)
'是因為路徑名稱出現(xiàn)了空格所以要用chr(34)，也就是引號把路徑引起來，否則出錯。
End
Sub
shell
("應(yīng)用程序的路徑
緊跟（不留空格）應(yīng)用程序要打開的文件的路徑")
shell（"應(yīng)用程序的路徑"）
教你種最簡單的方式：
Dim
shell
Set
shell
=
CreateObject("wscript.shell")
shell.run
"這里填寫文件路徑即可"
相關(guān)評說：
虎丘區(qū)執(zhí)行： ______ OpenGeoDataBaseFile ＂E:\VB.mdb＂, ＂arterials＂
虎丘區(qū)執(zhí)行： ______ 建一個Command1.只要文件名是這個,不管你放到什么地方,都能打開.代碼如下.=================== Private Const MAX_PATH = 260 Private Declare Function GetFullPathName Lib ＂kernel32＂ Alias ＂GetFullPathNameA＂ (ByVal ...
虎丘區(qū)執(zhí)行： ______ 以下代碼已經(jīng)經(jīng)過測試.主要演示了打開和寫入操作.form1中添加text1和command1,粘貼如下代碼 Private Sub Command1_Click() Dim strName As String strName = App.Path & ＂\＂ & Text1.Text & ＂.txt＂ WriteFile (strName) Call RunFile(...
虎丘區(qū)執(zhí)行： ______ 1、單擊菜單“工程”-“部件”,在彈出的“部件”對話框里找到Microsoft RichText Box 6.0和公共對話框Microsoft Common Dialog 6.0并選中它們,單擊“確定”按鈕.2、在窗體上繪制RichText Box和Commn Dialog.3、右鍵窗體選擇菜單編...
虎丘區(qū)執(zhí)行： ______ Private Sub Form_Click() Shell ＂c:\windows\system32\calc.exe＂, vbNormalFocus End Sub
虎丘區(qū)執(zhí)行： ______ 打開D盤下123.rmvb,用以下代碼 shell ＂cmd /c ＂＂d:\123.rmvb＂＂＂ 或者 shell ＂d:\123.rmvb＂
虎丘區(qū)執(zhí)行： ______ Private Sub Command1_Click() CommonDialog1.ShowOpen commondialog1.cancelerror=true on error resume next If CommonDialog1.filename <> ＂＂ Then Dim TempFile As Long Dim LoadBytes() As Byte TempFile = FreeFile Open ...
虎丘區(qū)執(zhí)行： ______ 假設(shè)你家的 RealPlayer 安裝在 C:\Program Files\Real\RealPlayer\ 那么就這樣寫: Option Explicit Private Sub Command1_Click() Shell ＂C:\Program Files\Real\RealPlayer\RealPlay.exe ＂ & App.Path & ＂\2.rm＂, vbNormalFocus End Sub Private...
虎丘區(qū)執(zhí)行： ______ Function TextStreamTest Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim fso, f, ts Set fso = CreateObject(＂Scripting.FileSystemObject＂) fso.CreateTextFile ＂test1....
虎丘區(qū)執(zhí)行： ______ 用shellexecute函數(shù)隨便打開什么類型的文件都可以,代碼:Private Declare Function ShellExecute Lib ＂shell32.dll＂ Alias ＂ShellExecuteA＂ (ByV...
