درخواست کمک برای بروز یه پوشه

نقل قول:

---

نوشته شده توسط samadsam [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

زیر روال کلیک فایل فلش دستور زیر رو می نویسید


Path Folder=مسیر پوشه

---

اگه منظورتون تو VB6 بود باید بگم خیر دوست عزیز با دستور Shell نمیشه این کار رو کرد. چون نمیشه از تابع app.path که مورد نیاز دوستمون هست استفاده کرد.

کد کامل به صورت زیر است:

کد:

---

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
Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
    ShellExecute Me.hwnd, vbNullString, "", vbNullString, App.Path & "Rahnama", SW_SHOWNORMAL
End Sub

---

با تشکر از !Plus جان به خاطر زحمتی که کشیدند. اما اون فایل 2 تا مشکل داشت:

1- وقتی فایل اجرایی و پوشه در ROOT یک دایرکتوری قرار می گرفتند، برنامه با مشکل مواجه میشد.

2- فایل msvbvm60 همراه فایل زیپ نبود که باعث میشه برنامه تو هر سیستمی اجرا نشه.

(راستی اون سفارش ما چی شد امیرمحمد جان؟)

این هم فایل کامل:

کد:

---

http://filebeam.com/download2.php?a=7765dd4f9aa26d64a287ea80660093c8&b=3059ddbe115850618a33553d6e042d57

---

مرتضی جان من که نمی فهمم این دوتا مشکلی که از فایل plus عزیز گرفتید یعنی چی ؟ :31:
ولی اونی که ایشون درست کرده بودند دقیقا کاری رو می کرد که من می خواستم :31:
اینی که شما گذاشتید رو وقتی من اجرا می کنم می ره درایو d !!

از همه دوستان به خاطر زحمت هایی که کشیدند ممنونم :11:

از همه دوستان متشکرم...! :11:

این هم برنامه جدید...! مشکلش هم بر طرف شده...! :27:

کد:

---

http://www.irfreeup.com/images/0w92va59m39s3ge460m76.zip

---

این هم سورس برنامه...! :

کد:

---

    Dim strFolder$
   
    If (Right(App.Path, 1) = "\") Then

        strFolder = App.Path & "rahnama"
   
    Else
   
        strFolder = App.Path & "\rahnama"
   
    End If
   
    Call Shell("Explorer.exe /e," & strFolder, vbMaximizedFocus)

---

همین طور که می بینید...! Explorer.exe رو با آرگومان e/ فراخوانی کردیم که باعث میشه پوشه رو به صورت Folders باز کنه...! همونجوری که عکسش رو گذاشتم...!

البته میشه آرگومان های دیگه هم بهش ارسال کرد که...! (بعداً تو بخش بد افزار نویسی می گم...! :21:)...!

دیگه فکر نمی کنم مشکلی داشته باشه...! :13:

راستی... اون فایل msvbvm60 از ویندوز XP به بعد خود به خود همراه با DLL های ویندوز... موقع نصب ، نصب میشه...! (چی گفتم...! :31:)

یعنی از ویندوز XP به بعد رو همه ویندوز ها هست و نیازی به نصب شدن دوباره نداره...!
(این از سیاست های ماکروسافت ه...! اینجوری برنامه های VB هم مثل برنامه های Delphi روی همه کامپیوتر ها اجرا میشن...! :21:)...!

اگه باز هم مشکلی بود...! من در خدمتم...! :20:

موفق باشید...! :46:

Plus جان امکانش هست عین همین برنامه رو بنویسید فقط با این تفاوت که علاوه بر باز کردن اون پوشه فایل rahnama.pdf رو هم باز کنه ؟ :دی


بسیار ممنون :11:

این هم برنامه ای که می خواستید...! :

کد:

---

http://www.irfreeup.com/images/u925dhm6utrmji0gd1.zip

---

فایل PDF باید کنار برنامه باشه...! نه توی فولدر rahnama ...! اسمش هم باید rahnama.pdf باشه...! :27:

+ سورس برنامه...! :

کد:

---


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
Const SW_SHOWNORMAL = 1

Sub Main()

    Dim strFolder$, strFile$
   
    If (Right(App.Path, 1) = "\") Then

        strFolder = App.Path & "rahnama"
        strFile = App.Path & "rahnama.pdf"
   
    Else
   
        strFolder = App.Path & "\rahnama"
        strFile = App.Path & "\rahnama.pdf"
   
    End If
   
    Call Shell("Explorer.exe /e," & strFolder, vbMaximizedFocus)
    Call ShellExecute(0, vbNullString, strFile, vbNullString, "C:\", SW_SHOWNORMAL)

End Sub

---

موفق باشید...! :46: