PDA

View Full Version : انتخاب آیکن برای پوشه ایجاد کرده ؟؟؟



kooroush
چهارشنبه 19 اسفند 1388, 17:17 عصر
سلام .
می خواستم بدونم چه طور می شه یک پوشه با دستور ایجاد کرد و بعد شکل آیکن پوشه رو تغییر داد .
من برای ایجاد پوشه ازfso استفاده می کنم .



Dim fso As New FileSystemObject
If fso.FolderExists("c:\Program Files") = False Then
MkDir ("c:\Program Files")
End If



حالا چی کار کنم ، گشتم نبود ... نگرد نیست ؟؟؟
:گریه:

saeedvir
چهارشنبه 19 اسفند 1388, 18:39 عصر
یه فایل با نام

Desktop.ini

باید داخل پوشه درست کنی و متن زیر را با دستور open درونش قرار بدی :


[.ShellClassInfo]
IconFile=%SystemRoot%\system32\SHELL32.dll
IconIndex=27
بعضی موارد که از فایل هایی با پسوند ico استفاده می کنی باید IconIndex را برابر 0 قرار بدی
این دستور فایل آیکنی که در داخل خود پوشه هست را روی پوشه قرار میده


[.ShellClassInfo]
IconFile=a.ico
IconIndex=0