| |
こんばんわ、信さん。ちんといいます。
API関数をしようすると、たいていのファイルを起動できます。ので、
サンプルとして、記述します。
'先頭に宣言
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
'関数
Sub OpenFile()
'関連付いたアプリケーションで立ち上げる
Dim Fname As String
Fname = "C:\???.pdf"
Call ShellExecute(0, "open", Fname, vbNullString, vbNullString, 1)
Fname = "C:\???.doc"
Call ShellExecute(0, "open", Fname, vbNullString, vbNullString, 1)
End Sub
以上、参考までに・・・
|
|
ちん
- 11/10/23(日) 17:21 -
