每日小知识~(获取文件信息)

实现功能:

1. 首先，它设定了当前文件夹的路径为当前目录。然后创建了一个用于操作文件系统的对象，并创建一个新的文本文件 “filelist.txt” 用于写入数据。

2. 接着，它获取当前文件夹内的所有文件，并将这些文件存储在一个数组中。之后调用冒泡排序函数对文件数组按照文件名进行排序。

3. 再之后，它把排序后的文件名以带编号的形式逐行写入到创建的文件中。并且在文件末尾添加了一系列的自定义文字，包括联系作者的提示、关于文件使用的声明、资源来源的说明等等。

4. 最后，清理不再使用的对象，释放资源，并输出 “文件列表已生成到 filelist.txt” 的消息。

冒泡排序函数用于对文件数组进行排序，比较相邻元素的文件名，如果顺序不对就进行交换。

实现步骤: 

1. 首先我们先在文件夹或者桌面创建一个文本文档  然后打开文档复制并粘贴下列代码

' 设置当前文件夹路径
strFolderPath = "."

' 创建一个FileSystemObject实例
Set objFSO = CreateObject("Scripting.FileSystemObject")

' 创建一个TextStream实例用于写入文件
Set objFile = objFSO.CreateTextFile("filelist.txt", True)

' 获取文件夹内所有文件
Set objFolder = objFSO.GetFolder(strFolderPath)
Dim arrFiles()
i = 0
For Each objFileInFolder In objFolder.Files
    ReDim Preserve arrFiles(i)
    Set arrFiles(i) = objFileInFolder
    i = i + 1
Next

' 手动排序文件数组
Call BubbleSort(arrFiles)

' 写入文件名到文件，每个文件名前加数字列表排序
For i = 0 To UBound(arrFiles)
    objFile.WriteLine (i + 1) & ". " & arrFiles(i).Name
Next

' 在文件末尾添加自定义文字
objFile.WriteLine ""
objFile.WriteLine "不会安装请联系作者，作者会帮助你操作"
objFile.WriteLine "此文件仅供学习使用，禁止商用"
objFile.WriteLine"如有不当请联系作者删除"
objFile.WriteLine"本站提供其他的学习资源"
objFile.WriteLine"作者QQ：2410772017"
objFile.WriteLine"此软件提供学习使用，切勿商用，还有本站所有资源仅提供学习，禁止商用，请适当利用，本软件和网站仅供学习交流，如作他用所承受的法律责任一概与作者无关"
objFile.WriteLine"如有不当，请联系作者删除，希望能把资源用到适当的地方，既方便自己，又快乐作者"
objFile.WriteLine"作者QQ：2410772017"
objFile.WriteLine"本站资料来源于互联网，仅供学习交流，商业请务必购买正版，谢谢合作！"
objFile.WriteLine"------------------------------------------------------------------------------------------------------------------------------"
objFile.WriteLine"如用于商业用途，请到官方购买正版软件，追究法律责任与本站无关，下载试用后请在24小时之内删除，谢谢配合！"

' 清理对象
Set objFile = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

' 输出完成消息
WScript.Echo "文件列表已生成到 filelist.txt"

' 冒泡排序函数
Sub BubbleSort(arr)
    Dim i, j, temp
    For i = UBound(arr) - 1 To 0 Step -1
        For j = 0 To i
            If arr(j).Name > arr(j + 1).Name Then
                Set temp = arr(j)
                Set arr(j) = arr(j + 1)
                Set arr(j + 1) = temp
             End If
         Next
     Next
End Sub

粘贴之后 按照下列步骤:

之后我们第一步选文件夹保存路径  更改后缀名为vbs(大小写都可以)

更改编码为ANSI 这样我们弹窗的文字就是中文了 而不是乱码 最后点击保存

实现功能 双击vbs文件 它会自动创建一个名为filelist.txt的文件 里面有当前文件夹文件信息

点击打开生成的filelist.txt文件  发现生成内容无误

下列对应解释代码 (基本复制上列代码 可运行) 也可对应修改:

' 设置当前文件夹路径
strFolderPath = "." 
' 将当前文件夹路径设置为当前目录

' 创建一个FileSystemObject实例
Set objFSO = CreateObject("Scripting.FileSystemObject") 
' 创建一个用于操作文件系统的对象

' 创建一个TextStream实例用于写入文件
Set objFile = objFSO.CreateTextFile("filelist.txt", True) 
' 创建一个名为"filelist.txt"的新文件，如果文件已存在则覆盖，并准备写入内容

' 获取文件夹内所有文件
Set objFolder = objFSO.GetFolder(strFolderPath)
Dim arrFiles()
i = 0
For Each objFileInFolder In objFolder.Files
    ReDim Preserve arrFiles(i)
    Set arrFiles(i) = objFileInFolder
    i = i + 1
Next
' 以上部分遍历当前文件夹中的所有文件，并将它们存储在一个数组中

' 手动排序文件数组
Call BubbleSort(arrFiles)
' 调用冒泡排序函数对文件数组进行排序

' 写入文件名到文件，每个文件名前加数字列表排序
For i = 0 To UBound(arrFiles)
    objFile.WriteLine (i + 1) & ". " & arrFiles(i).Name
Next
' 将排序后的文件名和编号写入到文件中

' 在文件末尾添加自定义文字
objFile.WriteLine ""
objFile.WriteLine "不会安装请联系作者，作者会帮助你操作"
objFile.WriteLine "此文件仅供学习使用，禁止商用"
objFile.WriteLine"如有不当请联系作者删除"
objFile.WriteLine"本站提供其他的学习资源"
objFile.WriteLine"作者QQ：2410772017"
objFile.WriteLine"此软件提供学习使用，切勿商用，还有本站所有资源仅提供学习，禁止商用，请适当利用，本软件和网站仅供学习交流，如作他用所承受的法律责任一概与作者无关"
objFile.WriteLine"如有不当，请联系作者删除，希望能把资源用到适当的地方，既方便自己，又快乐作者"
objFile.WriteLine"作者QQ：2410772017"
objFile.WriteLine"本站资料来源于互联网，仅供学习交流，商业请务必购买正版，谢谢合作！"
objFile.WriteLine"------------------------------------------------------------------------------------------------------------------------------"
objFile.WriteLine"如用于商业用途，请到官方购买正版软件，追究法律责任与本站无关，下载试用后请在24小时之内删除，谢谢配合！"
' 在文件末尾添加一些说明和提示信息

' 清理对象
Set objFile = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
' 释放不再使用的对象，释放资源

' 输出完成消息
WScript.Echo "文件列表已生成到 filelist.txt"

' 冒泡排序函数
Sub BubbleSort(arr)
    Dim i, j, temp
    For i = UBound(arr) - 1 To 0 Step -1
        For j = 0 To i
            If arr(j).Name > arr(j + 1).Name Then
                Set temp = arr(j)
                Set arr(j) = arr(j + 1)
                Set arr(j + 1) = temp
             End If
         Next
     Next
End Sub
' 这是一个冒泡排序函数，用于对文件数组按照文件名进行排序

以上内容仅供学习交流，如有违法或者侵权可以联系删除。

希望这篇文章对您有所帮助，如果您还有其他疑问，随时向我提问。