VB文件夹建立问题 - 编程论坛

suzhanpeng2018-12-21 16:37

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编辑过]

icecool2018-12-21 17:31

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