Dir Maker
Make any level directories, such as: MakeDir "c:\abc\1234\aaaa\1111\6666\ggggggggg\dddddddddd\ssssssss\7676\dsdsds"
AI
Podsumowanie AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Kod źródłowy
Public Function MakeDir(Path As String) As Boolean
On Error Resume Next
Dim o_strRet As String
Dim o_intItems As Integer
Dim o_vntItem As Variant
Dim o_strItems() As String
o_strItems() = Split(Path, "\")
o_intItems = 0
For Each o_vntItem In o_strItems()
o_intItems = o_intItems + 1
If o_intItems = 1 Then
o_strRet = o_vntItem
Else
o_strRet = o_strRet & "\" & o_vntItem
MkDir o_strRet
End If
Next
MakeDir = (Err.Number = 0)
End Function
Oryginalne komentarze (3)
Odzyskane z Wayback Machine