vb如何读取记事本内容批量建文件夹?

发布网友发布时间：2023-10-16 10:50

我来回答

共3个回答

热心网友时间：2024-12-14 01:54

记事本录入 md 1 md 2 md 3 保存为任意文件名.bat 保存以后双击就会建 1 2 3三个文件追问用vb，我要问的是代码，你说的什么东西？

热心网友时间：2024-12-14 01:54

大概看了下代码，你把数据操作与界面（textbox）绑定起来是不对的

不应该依赖于任何界面元素。

建议把后面那个封装为一个方法，参数是text，前面调用后面的方法

判断每行的内容是否符合格式要求

创建文件夹之前判断路径是否合法

热心网友时间：2024-12-14 01:54

Option Explicit
Private Sub Command1_Click()
Dim strLine As String
Open App.Path & "/t.txt " For Input As #1
Do Until EOF(1)
Line Input #1, strLine
Text1.Text = Text1.Text & strLine & vbCrLf
Loop
Close #1
End Sub
Private Sub Text1_Change()
Dim name As String
Dim router As String
name = Text1.Text '把text文本的内容赋值给name
router = "D:\" & name
If Dir(router, vbDirectory) = "" Then '判断是否已经存在同名的文件夹
MkDir router
Else
MsgBox "D盘已经存在以" & name & "命名的文件夹！"
End If
End Sub
试试这个