VB添加文件到指定的地方???

来源：百度知道 编辑：UC知道 时间：2024/05/17 23:29:28
VB添加文件到指定的地方???

我的VB中有一个Command1,别人一按就把任意数量的TXT添加到他的C盘..

那些TXT的标题和内容可以自己在VB中写...

怎么实现啊??

各位高手...
我不要Inputbox,那些数量，标题，内容都在我的VB中写，我要的是别人一按Command1就把10个标题为“AAAA”，内容为“hjahsdhaksdhka”的TXT放进他的C盘里，可以吗？？

回答补充：按你的新要求，代码如下。
Private Sub Command1_Click()
Dim i As Long
For i = 1 To 10
Open "c:\AAAA" & i & ".txt" For Output As 1
Write #1, "hjahsdhaksdhka"
Close 1
Next
MsgBox "已完成对10个文件的创建操作。"
End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝
建一个Command1，单击就搞定了。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim n As Long, i As Long
n = InputBox("请输入要添加的文件数量：")
For i = 1 To n
Dim s As String, c As String
s = InputBox("请输入文件名，例如abc", "第" & i & "个文件")
c = InputBox("请输入要往文件" & s & ".txt里添加的内容：", "第" & i & "个文件")
Open "c:\" & s & ".txt" For Output As 1
Write #1, c
Close 1
Next
MsgBox "已完成对" & i - 1 & "个文件的创建操作。"
End Sub