Thanks atas bantuannya. Saya sudah mencobanya dan berhasil.
--- In [email protected], "aguspradikta"
<[EMAIL PROTECTED]> wrote:
>
> Gunakan API bawaan windows aja, contohnya seperti ini:
>
> Option Explicit
> Private Declare Function GetDesktopWindow Lib "user32" () As Long
> 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
>
> cmdDialog1.Filter = "Excel (*.xls) | *.xls"
> cmdDialog1.InitDir = "c:\"
> cmdDialog1.ShowOpen
> If cmdDialog1.FileName <> "" Then
> Dim hWndDesk As Long
> hWndDesk = GetDesktopWindow()
> ShellExecute hWndDesk, "OPEN", cmdDialog1.FileName, &O0, &O0, 0
> End If
>
> Salam,
> Agus Pradikta
>
