Private Sub Command1_Click() Dim Path As String Path = "C:\sample.mov" CreateObject("WScript.Shell").Run Path End Sub
ではどうでしょうか。
----------------------------------------------------------------------- Excel ファイルを開く場合 ------- by 花ちゃん ---- Private Sub Command1_Click() Dim Path As String Path = "C:\test.xls" CreateObject("WScript.Shell").Run Path End Sub