我用excel写了一段
Sub Newfolder()
Dim i&, p$
On Error Resume Next
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
MkDir ThisWorkbook.Path & "\" & Cells(i, 1)
Next
End Sub
效果是根据第一列内容，以它为文件名创建新的文件夹。而我有一个BAT需要在每个文件夹中运行一次，以创建更多树状的好多级文件夹应该如何操作

anyone help me

实际上的效果应该是在不同的文件夹运行同一个bat