当前位置:编程学习 > VB >>

测试一下你的系统...

试试下边的代码,可以创建多少层目录?

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 --------------------编程问答-------------------- 我的是XP,最多84层. --------------------编程问答-------------------- 受限制的不是层数而是全路径的总长度≤256吧。 --------------------编程问答-------------------- --------------------编程问答-------------------- 在搞什么呀!!!
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,