Question

请教一个vb程序 的小问题

我要想发生一个command1-click点击事件，在F:\盘下产生几个文件夹，文件夹的名字分别由msgbox函数来输入。
请问该输入什么样的程序呢？拜托了各位达人

Answer 1

Option Explicit
Private Sub Command1_Click()
On Error Resume Next
Dim i As String
i = InputBox("请输入文件夹名！", "新建文件夹", "Hi")
If Len(i) <> 0 Then
MkDir ("F:\" & i)
MsgBox "建立文件夹" & i & "成功"
End If
End Sub

Answer 2

Dim i As Integer
Function MD(PATHFILE As String)
newname = PATHFILE
i = 1
Do
If Dir$(PATHFILE, 16) = "" Then
MkDir (PATHFILE)
MsgBox "建立文件夹" & PATHFILE & "成功"
Exit Do
Else
PATHFILE = newname & i
i = i + 1
End If
Loop
End Function

Private Sub Command1_Click()
Dim a As String
a = InputBox("文件夹名称")
MD (a)
End Sub