Question

我的文件名包含文件的整个路径，文件扩展名除外。

示例："C:\temp\FileNameWithoutExtension"。现在我想检查这个文件是否存在？我不关心文件扩展名。

当我拥有包含文件扩展名的整个文件名时，我使用以下代码来查看该文件是否存在。

Set oFSO = CreateObject("Scripting.FileSystemObject")
FileExists = oFSO.FileExists(FileName)

感谢您的帮助。

Answer 1

如果FileExists处理通配符但它没有处理它会很好。会有这样的帮助吗？

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\temp")
Set objFiles = objFolder.Files

For Each objSingleFile in objFiles
    If objSingleFile.Name Like "FileNameWithoutExtension*" Then
        ' The file name starts with FileNameWithoutExtension
        MsgBox "Are you looking for me?: " & objSingleFile.Name
    End If
Next

这是假设你正在搜索的位置，它不是recusrive，但是你可以在这里查看基础知识。这不是唯一的方法。

Answer 2

试试这个

Sub FileExist()
    Dim file As String, fileName As String
    fileName = "C:\temp\abc" & "*"
    file = Dir(fileName)

    If file = "" Then
        MsgBox "File doesn't exist"
    Else
        MsgBox "file found"
    End If
End Sub

检查是否存在没有扩展名的文件名

2 个答案: