VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 建立多级目录
发表评论(0)作者:, 平台:, 阅读:12956, 日期:2000-03-12
建立多级目录 98-6-16

Sub CreateLongDir(sDrive As String, sDir As String)

Dim sBuild As String


While InStr(2, sDir, "\") > 1

sBuild = sBuild & left(sDir, InStr(2, sDir, "\") - 1)

sDir = Mid(sDir, InStr(2, sDir, "\"))

If Dir(sDrive & sBuild, 16) = "" Then

MkDir sDrive & sBuild

End If

Wend

End Sub