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

并将采集的数据以txt的格式放入这个文件中,希望有完整代码,求高手指点,谢谢了!!!... 并将采集的数据以txt的格式放入这个文件中,希望有完整代码,求高手指点,谢谢了!!! 展开
 我来答
百度网友bdd7e9f
2011-03-25 · 超过12用户采纳过TA的回答
知道答主
回答量:23
采纳率:0%
帮助的人:30.8万
展开全部
我这个代码,测试过的
在表单里放一个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
古乐木子
2011-03-25 · 超过61用户采纳过TA的回答
知道小有建树答主
回答量:130
采纳率:0%
帮助的人:81.7万
展开全部
在command中添加以下代码:

if Dir(“d:\"&textbox, vbDirectory)="" then
MkDir "d:\" & textbox
else
msgbox "D盘中已存在名为" & textbox &”的文件夹!“
End If
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2011-03-25
展开全部
计算机二级VB类题目里面有的。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式