vbs批次建資料夾

Dim folders1(6)

folders1(0)="林平之"

folders1(1)="上官雲"

folders1(2)="丁堅"

folders1(3)="天門道人"

folders1(4)="高根明"

folders1(5)="莫花爾徹"

folders1(6)="獨孤求敗"

Dim obj

Set obj = CreateObject("Scripting.FileSystemObject")

for i = 0 to 6

 obj.CreateFolder "C:\" & folders1(i)

next

Dim obj

Set obj = CreateObject("Scripting.FileSystemObject")

obj.????Folder "C:\林平之", "C:\綠竹翁"

folders2(0)="綠竹翁"

folders2(1)="任我行"

folders2(2)="般刺密諦"

folders2(3)="唐玄宗"

folders2(4)="施戴子"

folders2(5)="史老三"

folders2(6)="王崇古"