测试一下你的系统...

Question

试试下边的代码,可以创建多少层目录?Private Sub Command1_Click()
    Dim fso
    Set fso = CreateObject("scripting.filesystemobject")
    
    Dim curfolder As String
    curfolder = "d:"
    
    Dim i As Long
    For i = 1 To 1000
        curfolder = curfolder & "\" & i
        Call fso.createfolder(curfolder)
    Next
    
End Sub测试VB

Answer 1

受限制的不是层数而是全路径的总长度≤256吧。