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
එක පැකේජ් එකයි මාසෙටම Unlimited Internet. තාමත් DATA CARD දාන්න සල්ලි වියදම් කරනවද? අඩුම මිලට අපෙන්.
sayuru bandara
Updated:
Tuesday at 12:30 PM
Ad icon
ඉන්ටර්නෙට් එකෙන් හරියටම සල්ලි හොයන්න සහ Success වෙන්න කැමතිද? 🚀 (E-Money & Success Stories)
siri sumana
Updated:
Saturday at 11:44 PM
Gemini AI PRO 18 months Offer
Hawaka
Updated:
May 27, 2026
Ad icon
koko account
DasunEranga
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
Folder Customizing 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: 1842236" data-attributes="member: 74195"><p><span style="font-size: 10px"><em>VBScript kiyanne patta script language ekak… meka web ekata use karanawa wageema thawath weda walata use karanna puluwan.. kotinma kiyanawaa nam meka programming language ekak kiyannath puluwan… </em></span></p><p><span style="font-size: 10px"><em>mokada Script to EXE programs indan den thiyanawa… </em></span></p><p></p><p><span style="font-size: 12px"><strong>Man me liyapu podi script eken oyaalata Folder ekaka background Image eka , Icon eka ehema change karaganna puluwan.. </strong></span></p><p><u></u></p><p><u><span style="font-size: 12px"><strong>me script code eka Notepad walata Paste karala ( .vbs ) file ekak widhiyata Save karanna..eetapasse Run karanna.</strong></span></u></p><p></p><p>[code]</p><p></p><p>' Coded by Prabhath Jayampathi</p><p>' p.jayampathi@yahoo.com</p><p>' For Elakiri.com</p><p></p><p>on error resume next</p><p></p><p>Dim x, f, fs, flder, imge, icn</p><p>Private Const Readonly = &H1</p><p>Private Const Directory = &H10</p><p>Private Const Hidden = &H2</p><p></p><p>Set x = CreateObject("Scripting.FileSystemObject")</p><p>Set fs = CreateObject("Scripting.FileSystemObject")</p><p></p><p>flder = InputBox ("Please Enter the Path of the Folder..","Folder?")</p><p></p><p>if flder <> "" then</p><p></p><p> imge = InputBox ("Please Select a Image..","Image?")</p><p> icn = InputBox ("Please Select a Icon..","Icon?")</p><p> Set x = x.CreateTextFile(flder & "\Desktop.ini", True)</p><p> x.WriteLine ("[{BE098140-A513-11D0-A3A4-00C04FD706EC}]")</p><p> x.WriteLine ("IconArea_Image=" & imge)</p><p> x.WriteLine ("[.ShellClassInfo]")</p><p> x.WriteLine ("IconFile=" & icn)</p><p> x.WriteLine ("IconIndex=0")</p><p> x.WriteLine ("' Written by Prabhath Jayampathi")</p><p> x.WriteLine ("' p.jayampathi@yahoo.com")</p><p></p><p>else</p><p> Msgbox "You Must Select a Folder to Continue",vbYes,"Folder"</p><p>End If</p><p></p><p></p><p>Set f = fs.GetFolder(flder)</p><p>f.Attributes = Directory + Readonly</p><p></p><p>Set f = fs.GetFile(flder & "\Desktop.ini")</p><p>f.Attributes = Hidden</p><p></p><p>Msgbox "The Script is Coded by Prabhath Jayampathi",vbYes,"About"</p><p></p><p>fs.Quit</p><p>x.Quit</p><p></p><p>[/code]</p></blockquote><p></p>
[QUOTE="pjayampathi, post: 1842236, member: 74195"] [SIZE=2][I]VBScript kiyanne patta script language ekak… meka web ekata use karanawa wageema thawath weda walata use karanna puluwan.. kotinma kiyanawaa nam meka programming language ekak kiyannath puluwan… mokada Script to EXE programs indan den thiyanawa… [/I][/SIZE] [SIZE=3][B]Man me liyapu podi script eken oyaalata Folder ekaka background Image eka , Icon eka ehema change karaganna puluwan.. [/B][/SIZE] [U] [SIZE=3][B]me script code eka Notepad walata Paste karala ( .vbs ) file ekak widhiyata Save karanna..eetapasse Run karanna.[/B][/SIZE][/U] [code] ' Coded by Prabhath Jayampathi ' p.jayampathi@yahoo.com ' For Elakiri.com on error resume next Dim x, f, fs, flder, imge, icn Private Const Readonly = &H1 Private Const Directory = &H10 Private Const Hidden = &H2 Set x = CreateObject("Scripting.FileSystemObject") Set fs = CreateObject("Scripting.FileSystemObject") flder = InputBox ("Please Enter the Path of the Folder..","Folder?") if flder <> "" then imge = InputBox ("Please Select a Image..","Image?") icn = InputBox ("Please Select a Icon..","Icon?") Set x = x.CreateTextFile(flder & "\Desktop.ini", True) x.WriteLine ("[{BE098140-A513-11D0-A3A4-00C04FD706EC}]") x.WriteLine ("IconArea_Image=" & imge) x.WriteLine ("[.ShellClassInfo]") x.WriteLine ("IconFile=" & icn) x.WriteLine ("IconIndex=0") x.WriteLine ("' Written by Prabhath Jayampathi") x.WriteLine ("' p.jayampathi@yahoo.com") else Msgbox "You Must Select a Folder to Continue",vbYes,"Folder" End If Set f = fs.GetFolder(flder) f.Attributes = Directory + Readonly Set f = fs.GetFile(flder & "\Desktop.ini") f.Attributes = Hidden Msgbox "The Script is Coded by Prabhath Jayampathi",vbYes,"About" fs.Quit x.Quit [/code] [/QUOTE]
Insert quotes…
Verification
Hata thunen beduwama keeyada? (60 bedeema thuna)
Post reply
Top
Bottom
Gemini AI PRO 18 months Offer
