ディレクトリを作成するには・・・？ (ID:83798)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 MkDirステートメントで十分と思います、 dt01 = D:\123\123 ----------作成したいホルダー Sub dir作成01(dt01) Dim dt02, dt03 dt02 = dt01 If InStr(dt02, ":\") <> 0 Then ' --------------------- 最初 dt03 = Mid(dt02, 1, InStr(dt02, ":\") + 1) dt02 = Mid(dt02, InStr(dt02, ":\") + 2, Len(dt02)) End If Do ' --------------------- 途中 If InStr(dt02, "\") = 0 Then Exit Do dt03 = dt03 & Mid(dt02, 1, InStr(dt02, "\")) dt02 = Mid(dt02, InStr(dt02, "\") + 1, Len(dt02)) Call dir作成02(dt03) Loop If dt02 <> "" Then ' --------------------- 最後 Call dir作成02(dt01) End If End Sub Sub dir作成02(dt) Dim fairu fairu = Dir(dt, 16) If fairu = "" Then ' Form_Text1.Text5 = "作成 " & dt MkDir dt Else ' Form_Text1.Text5 = " " & dt End If ' Form_Text1.Text5.Refresh End Sub