Tạo thư mục theo đường dẫn dài bằng VBS

Call GeneratePath(“C:\document\media\video\server1\client1\user1\”)

Function GeneratePath(pFolderPath)
    GeneratePath = False
    If Not objFSO.FolderExists(pFolderPath) Then
        If GeneratePath(objFSO.GetParentFolderName(pFolderPath)) Then
            GeneratePath = True
            Call objFSO.CreateFolder(pFolderPath)
        End If
    Else
        GeneratePath = True
    End If
End Function