PDA

View Full Version : سوال: explore


agamin
پنج شنبه 27 تیر 1387, 10:14 صبح
سلام
دستور explore كردن يك فولدر چيست؟
drwatson
پنج شنبه 27 تیر 1387, 12:36 عصر
منظورتون رو درست نفهمیدم
اما یه روش برای اکسپلور کردن یه پوشه اینه
win = Environ("windir")
win = Left(win, 3)
Shell win & _
"Program Files\Internet Explorer" & _
"\iexplore.exe -e " & App.Path, vbNormalFocus

البته روشهای ساده تری باید باشه
من خودم هم دنبال یه روش میگردم که بشه یه پوشه رو باز کرد بدون اینکه اون پوشه در پنجره جدیدی باز بشه اگه دوستان بلدند بگن؟
مهران رسا
پنج شنبه 27 تیر 1387, 13:25 عصر
من خودم هم دنبال یه روش میگردم که بشه یه پوشه رو باز کرد بدون اینکه اون پوشه در پنجره جدیدی باز بشه اگه دوستان بلدند بگن؟

منظورت از اینکه پوشه در پنجره جدیدی باز نشه چیه ؟!! یعنی کجا باز بشه ؟
agamin
پنج شنبه 27 تیر 1387, 13:34 عصر
به غير از استفاده از دستور shell را ديگري نداره؟
مهران رسا
پنج شنبه 27 تیر 1387, 13:40 عصر
بستگی داره .
اگه قصد شما برای استفاده نکردن از Shell ، تمایل نداشتن به استفاده از دستورات DOS باشه می تونید از توابع API استفاده کنید ...




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



البته اگه منظورتون رو درست فهمیده باشم .
drwatson
پنج شنبه 27 تیر 1387, 19:06 عصر
منظورت از اینکه پوشه در پنجره جدیدی باز نشه چیه ؟!! یعنی کجا باز بشه ؟
منظورم اینه که وارد همون پوشه بشیم نه اینکه یه پنجره جدید باز بشه و پنجره قبلی هم باز بمونه
agamin
سه شنبه 01 مرداد 1387, 13:52 عصر
من با هيچ يك از دو راه موفق نشدم!
roomezonline
سه شنبه 01 مرداد 1387, 23:59 عصر
منظورتون رو درست نفهمیدم
اما یه روش برای اکسپلور کردن یه پوشه اینه
win = Environ("windir")
win = Left(win, 3)
Shell win & _
"Program Files\Internet Explorer" & _
"\iexplore.exe -e " & App.Path, vbNormalFocus

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



سلام
من قبلا هیمن کار رو انجام دادم
شما برای این کار اول باید هندل پنجره باز رو گرفته و او رو ببنید و با دستور explorer پنجره مورد نظر خودتون رو باز کنید
در نهایت اینطور به نظر می رسه که شما در یک محل و یک پنجره رو باز کردید
agamin
چهارشنبه 02 مرداد 1387, 17:05 عصر
ببخشيد متوجه نشدم مي شه بيشتر توضيح بدين
اگه سورس شو بزارين ممنون مي شوم.
majjjj
پنج شنبه 03 مرداد 1387, 08:13 صبح
قبلا رو ترفند های ویندوز و رجیستری یک چیزی دیده بودم که میشد کاری کرد تمام پوشه ها وزیر پوشه ها تو یک پنجره باز میشدالبته شاید من درست متوجه نشده باشم گفتم شاید به دردتون بخوره
drwatson
پنج شنبه 03 مرداد 1387, 12:48 عصر
من با هيچ يك از دو راه موفق نشدم!
شما همون کدی که در بالا دادم رو کپی کن
فقط بجای app.path مسیری رو که میخوای باز بشه قرار بده
وگرنه مسیر برنامت رو باز میکنه
drwatson
پنج شنبه 03 مرداد 1387, 19:45 عصر
سلام
من قبلا هیمن کار رو انجام دادم
شما برای این کار اول باید هندل پنجره باز رو گرفته و او رو ببنید و با دستور explorer پنجره مورد نظر خودتون رو باز کنید
در نهایت اینطور به نظر می رسه که شما در یک محل و یک پنجره رو باز کردید
دوست عزیز میشه یه نمونه کد بزارین
من با توابع closewindow و destroywindow موفق نشدم
پنجره مورد نظرم رو ببندم
نمیخوام از sendkeys هم استفاده کنم
ممنونم
drwatson
جمعه 04 مرداد 1387, 19:57 عصر
کسی نمیدونه چجوری میشه اینکارو کرد؟؟؟؟