获取文件夹内文件名称的问题---如何去掉临时文件

耿天时

如图，我写了一段vba，功能是获取本文件夹内文件的，但是结果里面有一个文件名是本文件的临时文件，如何去除？
Private Sub CommandButton1_Click()mypath = ThisWorkbook.Path & "\"
Set fld = CreateObject("Scripting.FileSystemObject").GetFolder(mypath)
      For Each f In fld.Files
    f = f.Name
    If f <> ThisWorkbook.Name Then
    f = Mid(f, 1, Len(f) - 5)
      [L65536].End(3).Offset(1) = f
    End If
    Next   
End Sub

3190496160

判断一下文件后缀就行了吧？？？

剑指E

ykcbf1100

再加一个判断就行了。

耿天时

ykcbf1100 发表于 2024-1-18 13:12
再加一个判断就行了。

问题解决，谢谢您