فراخواني فايل از هارد

[mr_zaer]

سلام دوستان
خسته نباشيد
نميدونم چرا هر چي ثبت ميکنم رو مطلب ثبت نميشه
به هر حال
يک سوال برام پيش اومد
ميخواستم بدونم چطور ميتونم در ويژوال بيسيک6 با کلي کردن بر روي دکمه مورد نظر يک فايل مورد نظر از هارد برام باز بشه
مثلا با کليک کردن روي دکمه مورد نظرم يه فايل pdf از روي هارد براي باز کنه
يا عکس يا هر چيزه ديگه

ممنون از راهنماييتون پيشاپيش

[IamOverlord]

سلام دوست عزیز!

Shell "Explorer.exe C:\File.PDF", vbNormalFocus
به جای C:\File.PDF آدرس هر فایل دیگه ای که می خوای بده و به جای vbNormalFocus هم می تونی مقدار های دیگه ای بذاری.
ضمنا یه جست و جو می کردی هم جوابت پیدا می شد.

[mr_zaer]

بسيار بسيار ممنون
ولي مطمئن باش من اول حسابي جست و جو کردم
نه تنها تو انجمن حتي با گوگل هم گشتم و جواب پيدا نکردم و براي همين اينجا سوالم رو مطرح کردم

اما ممنون که کارم رو راه انداختي
اما اگه ميشه کمکت رو کامل تر کن :D:D:D:D:D:


مشخصا فايل مورد نظر من اول پي دي اف هستش و بعد هم نصب خود نرم افزار اکروبات ريدر
يعني من تو منوهام دکمه اي گذاشتم که اگه کسي روش کليک کرد براش يه فايل پي دي اف باز بشه
چون تو اين کد از اين Explorer.exe استفاده شده با اکسپلورر باز ميشه
بايد چيکار کنم که با اکروبات ريدر باز شه ؟؟
و چون احتمالش هست کسي آکروبات ريدر نصب نداشته باشه ميخوام امکان نصب اين نرم افزار رو هم تو منوها بذارم(يعني گذاشتم)
اون هم با اکسپلورر باز ميشه
بايد چيکار کنم که خود نرم افزار شروع به نصب کنه


بازم خيلي خيلي خيلي ممنون

[butterfly8528]

سلام .



Private Declare Function ShellExecuteA Lib "shell32.dll" (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 Const SW_HIDE = 0
Private Const SW_NORMAL = 1
Private Const SW_SHOWDEFAULT = 10
Private Const SW_MINIMIZE = 3
Private Const SW_MAXIMIZE = 6
Private Const SW_SHOW = 5


private sub form_load()

ShellExecuteA hwnd, "open", "Document.doc", "", "E:\", SW_NORMAL


' ShellExecuteA hwnd, "open", "MyFile.mp3", "", App.Path & "\", SW_NORMAL

end sub



موفق باشید .

[IamOverlord]

سلام .



Private Declare Function ShellExecuteA Lib "shell32.dll" (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 Const SW_HIDE = 0
Private Const SW_NORMAL = 1
Private Const SW_SHOWDEFAULT = 10
Private Const SW_MINIMIZE = 3
Private Const SW_MAXIMIZE = 6
Private Const SW_SHOW = 5


private sub form_load()

ShellExecuteA hwnd, "open", "Document.doc", "", "E:\", SW_NORMAL


' ShellExecuteA hwnd, "open", "MyFile.mp3", "", App.Path & "\", SW_NORMAL

end sub



موفق باشید .

ممنون butterfly8528 ! :تشویق: اما منظور دوستمون تو پست بعدی این بود که چی کار کنه که اگه Adobe Acrobat نصب نبود نصب بشه تا فایل PDF با Acrobat Reader باز بشه.
تابعی که شما گذاشتید هم کار همون explorer.exe رو می کنه.

ضمنا مقادیر Const این تابع در shell برایر است با:

Shell "explorer.exe FilePath", vbHide
Shell "explorer.exe FilePath", vbMaximizedFocus
Shell "explorer.exe FilePath", vbMinimizedFocus
Shell "explorer.exe FilePath", vbMinimizedNoFocus
Shell "explorer.exe FilePath", vbNormalFocus
Shell "explorer.exe FilePath", vbNormalNoFocus

ضمنا برای نمایش فایل های PDF می شه از ActiveX که گذاشتم واسه دانلود اسفاده کنید. اما مشکلش اینه که Crack نشده:ناراحت:

اگر کسی سورسی در رابطه با نمایش فایل های PDF که دوسمتون گفته داره لطفا این جا بذاره تا استفاده کنیم.
:چشمک: