最近大半年刷了160多天的题，每次刷的时候都要新建一个VS文件，所以文件内存太大了，又舍不得删，就用ai整了一个脚本，可将当前路径下的所有文件里的.cpp和.h文件储存到相应名字的txt文件里，若文件夹下还有文件则会将其保存在对应的文件夹下，并最终将所有文件保存在一个文件夹里。（中文会乱码，可能是保存格式的问题，懒得改。注意此脚本统计的是当前路径下的所有文件里的cpp和.h所以最好不要有环境什么的.可能还有少许bug）以下是效果图

代码为

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(".")

' Create a new folder in the current directory to store the txt files
outputRootFolder = fso.BuildPath(folder.Path, "txt_files")
If Not fso.FolderExists(outputRootFolder) Then
    fso.CreateFolder(outputRootFolder)
End If

ProcessFolder folder

Sub ProcessFolder(folder)
    For Each subFolder In folder.SubFolders
        ProcessFolder subFolder
    Next

    For Each file In folder.Files
        If LCase(fso.GetExtensionName(file)) = "cpp" Or LCase(fso.GetExtensionName(file)) = "h" Then
            SaveFileContentToTxt file, folder
        End If
    Next
End Sub

Sub SaveFileContentToTxt(file, folder)
    Dim inputFile, outputFile, fileContent, outputFolder, outputFileName, parentFolderName
    Set inputFile = fso.OpenTextFile(file, 1)
    
    ' Check if the file is empty
    If inputFile.AtEndOfStream Then
        inputFile.Close
        Exit Sub
    End If
    
    fileContent = inputFile.ReadAll
    inputFile.Close

    parentFolderName = fso.GetBaseName(folder.Path)
    outputFolder = fso.BuildPath(outputRootFolder, parentFolderName & "txt")

    If Not fso.FolderExists(outputFolder) Then
        fso.CreateFolder(outputFolder)
    End If

    outputFileName = fso.BuildPath(outputFolder, fso.GetBaseName(file) & ".txt")
    Set outputFile = fso.CreateTextFile(outputFileName, True)
    outputFile.Write fileContent
    outputFile.Close
End Sub
将其复制进一个新建的txt文件，在将后缀名改为.vbs再双击即可