FSO如何不包含当前文件thisworkbook

493861364

ThisWorkbook在当前文件里
使用FSO遍历当前文件夹及其子文件夹下的文件，
如何不包含当前文件thisworkbook

代码是百度的，测试可以运行
感谢各位老师！！



Sub ListFiles()
    Dim FileSystem As Object
    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    Dim CurrentFolder As Object
    Set CurrentFolder = FileSystem.GetFolder(ThisWorkbook.Path)
    RecursivelyListFiles CurrentFolder
End Sub

Sub RecursivelyListFiles(Folder As Object)
    Dim SubFolder As Object
    Dim File As Object
    For Each File In Folder.Files
        Debug.Print File.Path ' 输出文件路径
    Next File
    For Each SubFolder In Folder.SubFolders
        RecursivelyListFiles SubFolder ' 递归遍历子文件夹
    Next SubFolder
End Sub

ww87725244

那就判断一下文件路径是否与thisworkbook.fullname相同

493861364

ww87725244 发表于 2024-5-5 17:45
那就判断一下文件路径是否与thisworkbook.fullname相同

发帖前试过了 ，判断thisworkbook.fullname不好使

lizhipei78

If InStr(f, ThisWorkbook.Name) = 0 Then

perfect131

fso 你需要考虑 ~$thisworkbook.name

493861364

lizhipei78 发表于 2024-5-5 18:13
If InStr(f, ThisWorkbook.Name) = 0 Then

非常感谢，可以使用，祝节日快乐！

493861364

perfect131 发表于 2024-5-5 18:23
fso 你需要考虑 ~$thisworkbook.name

感谢老师回复，我也刚刚发现这个问题，我试一下，万分感谢，祝节日快乐！