Question

VB 创建文件 可设置其大小为变量

目的：通过在text1里输入一个变量数字，在桌面生成一个文件为1.txt，大小为text1里输入的一个变量数字，需要这个数值是可以在前台输入的。
以下代码中无法调用" & Text1 & "，调试出错，请教有没有其他方法

Private Sub Command5_Click()
Open "C:\Documents and Settings\All Users\桌面\" & Text5 & "" For Random As #1
Put #1, 1024, Text1.Text
Close #1
End Sub
高手，不过我发现如果生成1G的文件，速度好慢啊，
请问有没有几秒就能生成很大的文件的办法，那种不用写入内存的

Answer 1

Private Sub Command5_Click()
dim fl as long,s as string,fn as string
fl=val(Text1.Text)
s=string(fl," ")
fn="C:\Documents and Settings\All Users\桌面\" & Text5.text
if dir(fn)<>"" then kill fn
Open fn For binary As #1
Put #1,,s
Close #1
End Sub

Answer 2

无法调用？