Printable View
دوستان خسته نباشید
من تابعی رو می خواستم که بتونم با اون هر فایلی با هر پسوندی رو باز کنم
همونطور که می دونید تابع Shell فقط برای بازکردن فایل های EXE یا بعضی از فایل های مخصوص است و فایل هایی نظیر txt را نمی تواند اجرا کند
من تابعی نیاز دارم که بتونم با اون هر فایلی رو با هر پسوندی را براحتی باز کنم
بازکردن منظورم اجرا کردن در سیستم عامل ویندوز هستاااا
متشکرم
سلام.
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
با سلام و تشکر خدمت شما مدیر محترم
میشه لطف کنید و یک مثال بزنید
با تشکر
سلام
اصلا نیازی به توابع api نیست:
مثلا اگه میخواید یه فایل txt راباز کنید:
shell "notepad.exe c:\test.txt"
اینجوری فایل در نوتپد به نمایش در میاد
اگه برنامه در winroot نیست مثلا winrar باید این کارو کنید:
shell "c:\program files\winrar\winrar.exe c:\test.rar"
به همین راحتی!
دوستان عزیز از لطف های شما خیلی متشکرم
اما منظور من این است که مثلا یک فایل txt یا هر فایل با هر پسوندی رو براحتی بتونم اجرا کنم بدین صورت که مثلا من کد زیر رو داشته باشم
Dim A as String
A=app.path+\1\1.exe
با علامت "" البته ها
یعنی مکان فایل مورد نظر رو با استفاده از متغیر بدست بیارم
چون مکان فایل مورد نظر ثابت نیست
با تشکر
سلام!
گزینه Microsoft Shell Controls And Automation رو توی References تیک بزن.
بعد برای کد بنویس:
به جای مسیر میتونی همون متغیر رو بدی:کد:Dim Sh As Shell
Sh.Open "مسیر یا فایل مورد نظر"
به همین سادگی! :11:کد:Sh.Open a
بازم منو شرمنده کردی ها
ازتون خیلی متشکرم جناب Smafias
shell(Address,vbNormalFocus)
'Saadola@Live.com
برای اجرای فایل در دات نت
آدرس برنامه همراه با پسوند System.Process.Start
':8:Saadola@LIve.com
سلام.
من می خواستم تو فرمی که ساختم یک دکمه بذارم تا با کلیک بر روی اون یک فایل با نام Hello.jpg در /:e ساخته بشه .
مثل MAGIC PS كه با كليك روي ىكمه أخر يك فايل با چیز هایی که می خوایم می سازه .
لطفا کد این دکمه رو بدید. ممنون(سریع )