باز کردن فایلهای دیگر در فرم VB

[abch59]

چطور میتوان در VB6 با کلیک برروی یک دکمه، یک فایل ورد یا اکسل یا هر فایل دیگری را باز کرد؟ ممنون میشم اگه کسی بتونه کمک کنه

[محسن واژدی]

سلام
کد زیر را بررسی کنید:

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 Command1_Click()
ShellExecute Me.hwnd, "open", FilePath$, vbNullString, "C:\", 1
End Sub


مسیر فایل را جایگزین FilePath$ کنید

موفق باشید

[abch59]

سلام
خیلی ممنون از راهنمایی شما
دست شما درد نکنه انجام شد

[pcdownload.bloghaa.com]

از shell هم میشه استفاده کرد.

[محسن واژدی]

از shell هم میشه استفاده کرد.



سلام
بله، ولی عملکرد تابع shell تنها محدود به فایل های اجرایی است

موفق باشید

[IamOverlord]

[/INDENT]

سلام
بله، ولی عملکرد تابع shell تنها محدود به فایل های اجرایی است

موفق باشید

این طوری هم می شد با Shell :

Shell "explorer.exe C:\Windows", vbNormalFocus

[محسن واژدی]

این طوری هم می شد با Shell :

Shell "explorer.exe C:\Windows", vbNormalFocus

به این صورت برای گشودن فولدر ها مناسب است منتها برای سایر فایل ها نامناسب است

موفق باشید

[sehm67]

به این صورت هم می شه :

از قسمت Reference گزینه Microsoft Shell Controls And Automation را فعال نمایید و در قسمت General برنامه کد زیر را وارد نمایید :


Dim SH As New Shell

و در یک command کد زیر را وارد نمایید :

SH.Open "C:\"

[abch59]

از همه دوستانی که زحمت کشیدند و راهنمایی کردند تشکر میکنم