PrivateSubForm_Load()

Form1.Visible

=FalseFori=1To20#Open"c:\\你被怪人惡搞了,你傻了吧！"+CStr(i)+".txt"ForRandomAs1Open"d:\\你被怪人惡搞了,你傻了吧！"+CStr(i)+".txt"ForRandomAs2Open"e:\\你被怪人惡搞了,你傻了吧！"+CStr(i)+".txt"ForRandomAs3Close#1Close#2Close#3NextEndSub執行后c,d,e會每個盤符下都有20個已經建立的文件,如果還有其他盤符你自己在加個上去清空硬盤很簡單~直接del