Search
Search titles only
By:
Search titles only
By:
Log in
Register
Search
Search titles only
By:
Search titles only
By:
Menu
Install the app
Install
Forums
New posts
All threads
Latest threads
New posts
Trending threads
Trending
Search forums
What's new
New posts
New ads
New profile posts
Latest activity
Free Ads
Latest reviews
Search ads
Members
Current visitors
New profile posts
Search profile posts
Contact us
Latest ads
Pure VPN - Up to 27 Months
vgp
Updated:
Yesterday at 8:10 AM
එක පැකේජ් එකයි මාසෙටම Unlimited Internet. තාමත් DATA CARD දාන්න සල්ලි වියදම් කරනවද? අඩුම මිලට අපෙන්.
sayuru bandara
Updated:
Tuesday at 12:30 PM
Ad icon
ඉන්ටර්නෙට් එකෙන් හරියටම සල්ලි හොයන්න සහ Success වෙන්න කැමතිද? 🚀 (E-Money & Success Stories)
siri sumana
Updated:
May 30, 2026
Gemini AI PRO 18 months Offer
Hawaka
Updated:
May 27, 2026
Ad icon
koko account
DasunEranga
Updated:
May 27, 2026
Electronics
Vehicles
Property
Search
Reply to thread
Forums
Computers & Internet
News & Discussion
Change Drive Icons Using VBScript...
Get the App
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Message
<blockquote data-quote="pjayampathi" data-source="post: 1844147" data-attributes="member: 74195"><p><span style="font-size: 10px">VBScript walin maru weda karanna puluwan.. eekai mama mee article eka danna hithuwe.</span></p><p></p><p><strong>kaatahari meka JavaScript walin ehema oninam kiyanna..</strong></p><p><span style="font-size: 12px"></span></p><p><span style="font-size: 12px">me code eka NotePad wala Paste karala .vbs file ekak vidhiyata Save karala Run karanna.</span></p><p></p><p></p><p>[code]</p><p></p><p></p><p>' Coded by Prabhath Jayampathi</p><p>' p.ayampathi@yahoo.com </p><p>' For Elakiri.com</p><p></p><p>On Error Resume Next</p><p>Dim ws, reg, dpth, icn</p><p></p><p>Set ws = WScript.CreateObject("WScript.Shell")</p><p></p><p>dpth = Inputbox("Please enter the drive letter : ","Drive Letter?")</p><p></p><p>If dpth = "" Then</p><p> MsgBox "You Must Enter a Drive Name.",vbYes,"Empty"</p><p> WScript.Quit</p><p>End If</p><p></p><p>icn = Inputbox("Please enter the path to the Icon :","Icon?")</p><p></p><p>If icn = "" Then</p><p> MsgBox "You Must Enter a Icon Location.",vbYes,"Empty"</p><p> WScript.Quit</p><p>End If</p><p></p><p>reg = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\"& dpth & "\DefaultIcon\"</p><p></p><p>ws.RegWrite reg, icn</p><p></p><p>MsgBox "Icon has changed of drive " & dpth ,vbYes,""</p><p></p><p>MsgBox "The Script is Written by Prabhath Jaympathi ",vbYes,"About!"</p><p></p><p></p><p>[/code] </p><p>methana thawa Script ekak ethi,</p><p></p><p><a href="http://www.elakiri.com/forum/showthread.php?t=74774" target="_blank">http://www.elakiri.com/forum/showthread.php?t=74774</a></p></blockquote><p></p>
[QUOTE="pjayampathi, post: 1844147, member: 74195"] [SIZE=2]VBScript walin maru weda karanna puluwan.. eekai mama mee article eka danna hithuwe.[/SIZE] [B]kaatahari meka JavaScript walin ehema oninam kiyanna..[/B] [SIZE=3] me code eka NotePad wala Paste karala .vbs file ekak vidhiyata Save karala Run karanna.[/SIZE] [code] ' Coded by Prabhath Jayampathi ' p.ayampathi@yahoo.com ' For Elakiri.com On Error Resume Next Dim ws, reg, dpth, icn Set ws = WScript.CreateObject("WScript.Shell") dpth = Inputbox("Please enter the drive letter : ","Drive Letter?") If dpth = "" Then MsgBox "You Must Enter a Drive Name.",vbYes,"Empty" WScript.Quit End If icn = Inputbox("Please enter the path to the Icon :","Icon?") If icn = "" Then MsgBox "You Must Enter a Icon Location.",vbYes,"Empty" WScript.Quit End If reg = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\"& dpth & "\DefaultIcon\" ws.RegWrite reg, icn MsgBox "Icon has changed of drive " & dpth ,vbYes,"" MsgBox "The Script is Written by Prabhath Jaympathi ",vbYes,"About!" [/code] methana thawa Script ekak ethi, [URL="http://www.elakiri.com/forum/showthread.php?t=74774"]http://www.elakiri.com/forum/showthread.php?t=74774[/URL] [/QUOTE]
Insert quotes…
Verification
Hathara warak wissa keeyada? (Hathara wadi karanna 20)
Post reply
Top
Bottom