测试一下你的系统...
试试下边的代码,可以创建多少层目录?
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 , 基础类