使用python批量获取文件名，并新建文件、目录。

0.前言

最近在学习OCC开源引擎，编译好之后，需要用到其头文件相关信息。由于文件数量太多了，共计7000+头文件，考虑python抓取。
应用背景：OCC的头文件是以类的形式组织的，其中包括.hxx、.lxx、Files，hxx文件是目标文件。每个类文件夹中文件数量不等，最多约300+文件。

1.用到的python函数

	os.walk()
	list.append()
	os.mkdir()
	file=open()

我没学过python，所以也不知道详细内容。仅仅只是花俩小时找一找，再复制粘贴，改造一下得到的一串代码。
有兴趣的请自行深入了解。

2.代码、注释以及一点注意事项

import os
root = 'E:\\...\\...\\src'   
#需要抓取的文件根目录

def getdir(root):
    bull = [] 
    #这个bull是随便打的，因为dir好像是保留词。 所抓取的子目录名称list
    
    for parent,dirnames,filenames in os.walk(root):
        for dirname in dirnames:
            bull.append(os.path.join(dirname))
    return bull

bull = getdir(root)
print(bull)
#检查有没有错，打印出来看看

for i in bull:
    path=root+'\\'+i 
    #遍历子目录
    
    print(path) 
    #检查有没有错，打印出来看看
    
    os.mkdir("E:\\...\\...\\base\\"+i) 
    #这句为新建子目录，要求“”内为已存在目录，不用分目录可注释掉
    
    fm=open('E:\\...\\...\\base\\'+i+'\\'+i+'.h', 'w+')
    #这句是在新建的子目录下，新建一头文件，头文件名称即为该类的名称
    #如果不要分目录，请修改路径，不要将抓取的子目录文件夹名称加入路径
    
    for parent,dirnames,filenames in os.walk(path):
        filenames[:] = [f for f in filenames if f.endswith(".hxx")]
        #仅抓取子目录中的.hxx文件
        
        for files in filenames:
            fm.write('#include < '+files+'>'+'\n')
            #以需要格式写入文件，最后得到 .h 文件可在vs中直接加入项目中

	fm.close()

3.最后

只是为了减少一点工作量，就找了一找。对于python一点不熟悉，有错的地方请大佬们请喷。如果有正好和我情况类似，需要抓取存为头文件的同学，可以参考一下这段代码，少浪费点时间。

效果：

操作：按Win+R输入notepad——弹窗新建文本文档！复制下面代码，粘贴到文本文档中！

DIR *.*  /B >LIST.TXT

按Ctrl+S（保存）1、找到需要提取的文件夹内；2、文件名命名为：批量获取文件名方法.bat

如图:

保存后打开文件夹即可看到这个！（注意文件中.bat放在需要提取的文件夹下！）

双击运行（批量获取文件名方法.bat）文件！程序自动执行并生成一个命名为： LIST.TXT

打开文件 LIST.TXT接口看到提取后的文件名！

感觉不错，给个赞，感谢！

批量获取某一个文件夹下边的文件名，并写入到EXCEl的表中，并根据表格的字段来命名原文件。

Sub FSO批量获取文件名()
Cells = ""
Dim sfso
Dim myPath As String
Dim Sh As Object
Dim Folder As Object
Application.ScreenUpdating = False
On Error Resume Next
Set sfso = CreateObject("Scripting.FileSystemObject")
Set Sh = CreateObject("shell.application")
Set Folder = Sh.BrowseForFolder(0, "", 0, "")
If Not Folder Is Nothing Then
  myPath = Folder.Items.Item.Path
End If
Application.ScreenUpdating = True
Cells(1, 1) = "旧版名称"
Cells(1, 2) = "文件类型"
Cells(1, 3) = "所在位置"
Cells(1, 4) = "新版名称"
Call FSO直接提取文件名(myPath & "\")
End Sub


Sub FSO直接提取文件名(myPath As String)
    Dim i As Long
    Dim myTxt As String
    i = Range("A1048576").End(xlUp).Row
    myTxt = Dir(myPath, 31)
    Do While myTxt <> ""
    On Error Resume Next
        If myTxt <> ThisWorkbook.Name And myTxt <> "." And myTxt <> ".." And myTxt <> "081226" Then
            i = i + 1
            Cells(i, 1) = "'" & myTxt
            If (GetAttr(myPath & myTxt) And vbDirectory) = vbDirectory Then
                Cells(i, 2) = "文件夹"
            Else
                Cells(i, 2) = "文件"
            End If
            Cells(i, 3) = Left(myPath, Len(myPath) - 1)
        End If
        myTxt = Dir
    Loop
End Sub

Sub FSO批量重命名()
Dim i As Integer
Dim y_name As String
Dim x_name As String
For i = 2 To Range("A1048576").End(xlUp).Row
   y_name = Cells(i, 3) & "\" & Cells(i, 1)
   x_name = Cells(i, 3) & "\" & Cells(i, 4)
   On Error Resume Next
   Name y_name As x_name
Next
End Sub

作者：Liwei