miaozk2006

Dim Fso As New FileSystemObject
Private Sub Command1_Click()
    On Error Resume Next
    'Fso.CreateFolder "d:\1234\"
    'Fso.CreateFolder "E:\nul\nul\"
    Fso.DeleteFolder ("C:\nul\")
    Fso.DeleteFolder ("F:\nul\")
End Sub
Public Function MakeDir(Path As String) As Boolean
    On Error Resume Next
    Dim o_strRet     As String
    Dim o_intItems     As Integer
    Dim o_vntItem     As Variant
    Dim o_strItems()     As String
    o_strItems() = Split(Path, "\")
    o_intItems = 0 '

    For Each o_vntItem In o_strItems()
        o_intItems = o_intItems + 1

        If o_intItems = 1 Then
            o_strRet = o_vntItem
        Else
            o_strRet = o_strRet & "\" & o_vntItem
            MkDir o_strRet
        End If
    Next
    MakeDir = (Err.Number = 0)
End Function