怎么获取文本里的全部内容
然后赋给一个变量
用get ＃filenum，变量
put #filenum,变量
到其他的文本里可以不？

读取文件你会吧？写入你会吧？
唯一要变的就是 文件名罢了，循环很容易得到……

记得读取一次，写入N次就好了，不要读N次写N次

你说复制更快些
我是想比如我开始把所有的内容先放在一个config1文件里，然后在一个界面里放一个text1，里面就可以输入你要生成多少个相同的文本
点击ok就可以了，下面的代码我是要放在ok这个事件里的，你看看
Dim txtFlname, strFileContent As String '文件名变量
Dim x As Integer
Open ".\config1.txt" For Binary As #1
get 不知道怎么获取config1的全部内容到一个变量比如说是strFileContent
Close #1
For x = 1 To Text1.Text
txtFlname = "config" & x + 1 & ".txt" '文件名
Open txtFlname For Output As #2
put ＃2，strFileContent
Close #2
Next x

配置 文件吗?那怎么不用 ini做呢?

不懂那个
那我在上面怎么用get去取一个文本文件里的所有内容呢

Open "C:\filename.txt" For Input As #1
strFileContent = StrConv(InputB$(LOF(1), #1), vbUnicode)
Close #1

可以了，谢谢了哈