7,763
社区成员
发帖
与我相关
我的任务
分享有没有创建目录的算法？
假设我有一个路径：
c:\a\b\c\
加入a目录b目录和c目录都没有的！
怎样判断和创建它。
假如没有目录A则创建，在A里面没有B则创建。。。
c:\a\b\c\
加入a目录b目录和c目录都没有的！
怎样判断和创建它。
假如没有目录A则创建，在A里面没有B则创建。。。
...全文
请发表友善的回复…
发表回复
northwolves 2006-02-06
- 打赏
- 举报
Private Sub Command1_Click()
createdir "c:\a\b\c\"
End Sub
Sub createdir(ByVal mydir As String)
On Error Resume Next
Dim temp() As String, dirs() As String, i As Integer
temp = Split(mydir, "\")
ReDim dirs(1 To UBound(temp))
For i = UBound(temp) To 1 Step -1
ReDim Preserve temp(i)
dirs(i) = Join(temp, "\")
Next
For i = 1 To UBound(dirs)
If Not Dir(dirs(i)) > " " Then MkDir dirs(i)
Next
MsgBox "ok"
End Sub
createdir "c:\a\b\c\"
End Sub
Sub createdir(ByVal mydir As String)
On Error Resume Next
Dim temp() As String, dirs() As String, i As Integer
temp = Split(mydir, "\")
ReDim dirs(1 To UBound(temp))
For i = UBound(temp) To 1 Step -1
ReDim Preserve temp(i)
dirs(i) = Join(temp, "\")
Next
For i = 1 To UBound(dirs)
If Not Dir(dirs(i)) > " " Then MkDir dirs(i)
Next
MsgBox "ok"
End Sub
