مشکل با دستور cacls

[paranoide]

سلام به همگی
من یه برنامه نوشتم که یه فولدر رو با دستور cacls پرمیزن رو ازش گرفتم. مشکل اینجاست که زمانی که برنامه اجرا میشه هم cmd نمایش داده میشه و هم اینکه منتظر تایید میشه . اونو چیکار کنم که هم cmd نمایش داده نشه و هم yes رو داخل کدم بیارم

shell("cacls filename /t /d user")

[بهروز عباسی]

taskid = shell("C:\program files\office10\excel.exe",vbmaximise)

این نمونه بود بجای vbmaximise از vbhidden استفاده کن شاید درست ننوشته باشم چون vb دم دستم نیست اما همچین چیزی بود

[just4froum]

خوب حالا چجوری Yes رو ارسال کنه ؟

[paranoide]

مرسی از جوابتون
مشکلم با این کد حل شد

objShell.Run("%COMSPEC% /c Echo Y| cacls " _
& strHomeFolder & " /d user", 2, True)
ضمنا با این کد هم میشه که خیلی راحتره

shell("cacls filename /t /d user /e") ,vbHide
موفق باشید