VB 编写硬盘破坏工具

15193643451

VB 编写硬盘破坏工具

     看名字  说的很吓人的 其实这个代码 很简单   但是

威力 很大

可以在指定的盘符里快速创建多个空白数字文件夹，比较简单，代码如下：   '一个command控件。一个textbox,一个combobox控件 Private Sub Command1_Click()
On Error GoTo over  
  Dim i As Integer   
  For i = 1 To Val(Text1.Text)  
      MkDir (Combo1.Text & i)   
      Next i      
    MsgBox "已经在 " & Combo1.Text & " 盘创建了" & Val(Text1.Text) & _"个空白数字文件夹，请打开检查！", vbInformation, "结果报告"
over:     
     Exit Sub
End Sub  
Private Sub Form_Load()
Combo1.AddItem "C:\"  
  Combo1.AddItem "D:\"
     Combo1.AddItem "E:\"  
     Combo1.AddItem "F:\"   
     Combo1.AddItem "G:\"      
   Combo1.ListIndex = 0
End Sub

seazer

我到底该不该花2块钱去网吧尝试一下呢？这样是不是损人不利己还亏钱呢？我到底该怎么办？求指点迷津啊！

24K灬纯帅

不敢试 ，，，  

黑龍

来个图呗！

ww1113330

代码收藏了，以后。。。。。嘿嘿
感谢楼主分享

yeelnn

这个是真的？是原创吗??    你怎么验证  他的  正确性？

manbajie

这个很邪恶啊

gdyabc

这个没有用的，Win系统中正常情况下有许多后台运行的程序都在反复读写硬盘。