Question

如何用VB批量创建文件夹以及更改文件名

Answer 1

在程序所在文件夹创建10个文件夹，名字分别是1到10，再在每个文件夹中创建5个子文件夹，名字分别是1到5：

For i = 1 To 10
    MkDir App.Path & "\" & i
    For j = 1 To 5
        MkDir App.Path & "\" & i & "\" & j
    Next j
Next i

把程序所在文件夹的所有txt文件改名为1.txt、2.txt、3.txt.......n.txt：

d = Dir(App.Path & "\*.txt")
n = 1
Do Until d = ""
    If d <> n & ".txt" Then Name App.Path & "\" & d As App.Path & "\" & n & ".txt"
    n = n + 1
    d = Dir
Loop