Private Sub Command1_Click()
Dim path As String
path = Text1.Text

 Open path For Output As #1
  Print #1, 0.123
  Close
End Sub
我编的一个给一个记事本文件写数据小程序，问下我从text1.text里面输入文件路径后，
如果没有相应的文件夹，怎么实现自动生成路径下的文件夹？
比如：f:\1\2\3\1.txt里面 文件夹1、2、3在f盘符下是没有的，怎么从VB里实现自动生成呢？

Open path For Output As #1
    If Dir(path, vbHidden + vbReadOnly + vbSystem) = "" Then    '如果不存在
        MkDir(path)    '创建文件夹
    End if
    Print #1, 0.123
Close
这是最后一个文件夹不存在的方法，如果中间的文件夹也不存在，你就查找"\" 出现的位置，逐层截取文件夹路径，然后判断，建立。
   
   

[此贴子已经被作者于2018-12-21 16:48编辑过]

Private Sub Command1_Click()
Dim path As String
path = Text1.Text
pt = Split(path, "\")
repath = pt(0)
If InStr(pt(UBound(pt)), ".txt") = 0 Then
   MsgBox "没有输入文件名"
   Exit Sub
Else
   c = UBound(pt) - 1
End If

For i = 1 To c
    repath = repath & "\" & pt(i)
    If Dir(repath, vbDirectory) = "" Then
       MsgBox repath & "不存在,已建立"
       MkDir (repath)
    End If
Next
       repath = repath & "\" & pt(UBound(pt))
       Open repath For Output As #1
       Print #1, 0.123
       Close
End Sub