使用VBA检查文件是否存在

Question

Sub test()thesentence = InputBox("Type the filename with full extension", "Raw Data File")Range("A1").Value = thesentenceIf Dir("thesentence") <> "" Then    MsgBox "File exists."Else    MsgBox "File doesn't exist."End IfEnd Sub在这种情况下，当我从输入框中提取文本值时，它不起作用。但是，如果"the sentence"从If中删除Dir()并将其替换为代码中的实际名称，则它可以工作。有人可以帮忙吗？

Answer 1

请注意，您的代码Dir("thesentence")应包含Dir(thesentence)。

将您的代码更改为此

Sub test()

thesentence = InputBox("Type the filename with full extension", "Raw Data File")

Range("A1").Value = thesentence

If Dir(thesentence) <> "" Then

    MsgBox "File exists."

Else

    MsgBox "File doesn't exist."

End If

End Sub

Answer 2

从@UberNubIsTrue对fileExists的更正：

Function fileExists(s_directory As String, s_fileName As String) As Boolean

  Dim obj_fso As Object, obj_dir As Object, obj_file As Object

  Dim ret As Boolean

   Set obj_fso = CreateObject("Scripting.FileSystemObject")

   Set obj_dir = obj_fso.GetFolder(s_directory)

   ret = False

   For Each obj_file In obj_dir.Files

     If obj_fso.fileExists(s_directory & "\" & s_fileName) = True Then

        ret = True

        Exit For

      End If

   Next

   Set obj_fso = Nothing

   Set obj_dir = Nothing

   fileExists = ret

 End Function

编辑：缩短版本

' Check if a file exists

Function fileExists(s_directory As String, s_fileName As String) As Boolean

    Dim obj_fso As Object

    Set obj_fso = CreateObject("Scripting.FileSystemObject")

    fileExists = obj_fso.fileExists(s_directory & "\" & s_fileName)

End Function