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

发布网友发布时间：2022-07-24 18:03

共1个回答

热心网友时间：2023-10-09 16:01

在程序所在文件夹创建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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com