Question

在vb编程中，在textbox中输入一个数，点击command就能在D盘中建立一个以这个数为文件名的文件。

并将采集的数据以txt的格式放入这个文件中，希望有完整代码，求高手指点，谢谢了！！！

Answer 1

我这个代码，测试过的
在表单里放一个textbox，就默认的“Text1”好啦
在Command1里写入代码：完整如下：
Private Sub Command1_Click()

Dim i As Integer
Dim name As String
Dim router As String

name = Text1.Text
i = FreeFile
router = "D:\"

Open router & name & ".TXT" For Output As #i '创建以该数字为名字的TXT文本
Print #i, Text1.Text '这两行是将文本框里的内容也写到这个文本里
Close #i

End Sub

希望对你有帮助！

追问

Private Sub Command1_Click()
MkDir "D:\X轴"
Dim i As Integer
Dim name As String
Dim router As String
name = Text1.Text
i = FreeFile
router = "D:\X轴"
Open router & name & ".TXT" For Output As ' #i####
Print #i, Text1.Text
Close #i
如果在D盘创建一个“X轴”的文件夹，在textbox里输入数字，在X轴的文件夹下显示以该数字为文件名得TXT文件，怎么改（如上述程序）？麻烦你了，谢谢！！

追答

你写的那router = "D:\X轴"有错误，在后面加一个斜线，改成：router = "D:\X轴\"
就这样，当然这个方法，你得保证D盘原先没有“X轴”的文件夹，如果有的话，就会错误

Private Sub Command1_Click()

Dim i As Integer
Dim name As String
Dim router As String

MkDir "D:\X轴" '创建“X轴”的文件夹
name = Text1.Text
i = FreeFile
router = "D:\X轴\"

Open router & name & ".TXT" For Output As #i '创建以该数字为名字的TXT文本
Print #i, Text1.Text '这两行是将文本框里的内容也写到这个文本里
Close #i

End Sub

追问

非常感谢您，我还有最后一个问题，就是在D:\X轴下建立一个以textbox里输入的数据为文件名得文件（不是TXT）,也就是在X轴文件下再建立一个文件夹，该怎么编呢，我不太懂vb，谢谢您了！！！如下编出来的是在X轴文件下建立了一个以name为文件名得文件，而不是以Text1.Text
里输入的数字为文件名文件，拜托，非常感谢！！
name = Text1.Text
MkDir "D:\X轴\name "
i = FreeFile
router = "D:\X轴\name\"

追答

完整程序如下：（在VB中MkDir 函数只能一级一级创建文件夹）
我把判断是否已经存在同名的文件夹语句也给你加上了
Private Sub Command1_Click()

Dim i As Integer
Dim name As String
Dim router As String

If Dir("D:\X轴", vbDirectory) = "" Then ‘判断是否已经存在同名的文件夹，为空值则新建
MkDir "D:\X轴" '创建“X轴”的文件夹
Else
MsgBox "D盘已经存在以‘X轴’命名的文件夹！"
End If

name = Text1.Text
router = "D:\X轴\" & name
If Dir(router, vbDirectory) = "" Then '‘判断是否已经存在同名的文件夹，为空值则新建
MkDir router
Else
MsgBox "D盘已经存在以" & name & "命名的文件夹！"
End If
End Sub
希望对你有帮助

追问

哦 ，谢谢，那么在vb中想要把采集的数据放入设好的文件夹中，为什么存储不了？提示错误是“路径未找到”下面的程序在继你的程序之后，如下所示，我一直没找到哪出错了,呵呵 麻烦你了
Public Sub NewTextFile()
.............................
............................
.........................
' 这里面都是上面你写过的程序
Set myFile(4) = MyFso.CreateTextFile("D:\X轴\& name" & "\G-Gx-原始数据.txt")

追答

可能是你在最后一句“Set myFile(4)……”这句中，标点符号用错位置了，其中name是个字符串变量，不能在“”里，而且&符号前后都要有空格相隔开
试试改成：
Set myFile(4) = MyFso.CreateTextFile("D:\X轴\" & name & "\G-Gx-原始数据.txt")
或者改成：
Set myFile(4)= MyFso.CreateTextFile(router & "\G-Gx-原始数据.txt")
其实，我在纳闷，最后那个括号里没有 TRUE 吗？
是不是应该这样：
Set myFile(4) = MyFso.CreateTextFile("D:\X轴\" & name & "\G-Gx-原始数据.txt",True)
或者
Set myFile(4)= MyFso.CreateTextFile(router & "\G-Gx-原始数据.txt",True)
我不知道你程序是什么，你把上面的都试试吧
如果只是把数据写进新建的“G-Gx-原始数据.txt”话
你不用“Set myFile(4)”这句，直接在后面加这些：
i = FreeFile
Open router & "\G-Gx-原始数据" & ".TXT" For Output As #i '创建以该数字为名字的TXT文本
Print #i, Text1.Text '这两行是将文本框里的内容也写到这个文本里
Close #i
这样好理解，
希望对你有帮助！

Answer 2

在command中添加以下代码：

if Dir(“d:\"&textbox, vbDirectory)="" then
MkDir "d:\" & textbox
else
msgbox "D盘中已存在名为" & textbox &”的文件夹！“
End If

Answer 3

计算机二级VB类题目里面有的。