时间戳

首页 > 解决方案 > 如何制作给出错误 800A03EC“文件已移动或删除”的 VBS 文件并忽略该错误？

vbscript - 如何制作给出错误 800A03EC“文件已移动或删除”的 VBS 文件并忽略该错误？

问题描述

我从另一个 Stack Overflow 页面复制了这个。不记得在哪里，否则我会给予信任。该脚本打开一个 XLS 文件并将其保存为 CSV 文件。但是，在服务运行之前，用户有时会移动或删除文件，以使用 XML 文件清理文件夹中的所有内容。如果发生这种情况并且文件丢失，我会收到一个错误，导致我的小自动化任务崩溃。.vbs如果只是忽略文件不存在的错误，我会喜欢它。没有弹出窗口或我的确认。我希望它只是移动到下一个 CMD 行。

VBScript 文件：

if WScript.Arguments.Count < 2 Then
Wscript.Quit
End If
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
Dim oBook
Set oBook = oExcel.Workbooks.Open(Wscript.Arguments.Item(0))
oBook.SaveAs WScript.Arguments.Item(1), 6
oBook.Close False
oExcel.Quit

这就是我从自动 CMD 运行它的方式：

XlsToCsv.vbs "location-inputfile.xls" "location-outputfile.csv"

我尝试了其他几个版本。

标签： vbscript

解决方案

感谢大家的帮助。想出了这个。让我知道你们是否都看到任何事情完全搞砸了。

Function FileExists(FilePath)
  Set fso = CreateObject("Scripting.FileSystemObject")
  If fso.FileExists(FilePath) Then
    FileExists=CBool(1)
  Else
    FileExists=CBool(0)
  End If
End Function

If FileExists(Wscript.Arguments.Item(0)) Then
    Dim oExcel
    Set oExcel = CreateObject("Excel.Application")
    Dim oBook
    Set oBook = oExcel.Workbooks.Open(Wscript.Arguments.Item(0))
    oBook.SaveAs WScript.Arguments.Item(1), 6
    oBook.Close False
    oExcel.Quit
Else
  WScript.quit
End If

推荐阅读