Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExist("C:\command.com") = True Then
       MsgBox "C:\Command.com 文件已存在"
    Else
       MsgBox "C:\Command.com 文件不存在"
    End IfSet fso = Nothing