ディレクトリを作成する@VBS
指定したディレクトリの親ディレクトリを参照し、無ければ親ディレクトリを作成します。Subの中に再度Subを呼ぶ部分があって、さらにその後ディレクトリを作成します。ここがポイントですね。勉強になりました。
Sub CreateDir(Path)
'#################################################
'#指定されたパスにディレクトリが無かった場合
'#ディレクトリを作成します。
'#################################################
Dim objFS
Dim strParent
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
strParent = objFS.GetParentFolderName(Path)
'親ディレクトリが無ければディレクトリを作成
If Not objFS.FolderExists(strParent) Then
CreateDir(strParent)
End If
If Not objFS.FolderExists(Path) Then
objFS.CreateFolder(Path)
End If
Set objFS = Nothing
End Sub
Popularity: 2%
トラックバック URI : http://pnpk.net/cms/archives/308/trackback/
【関連記事】
