Question

我有一个脚本，我用它来添加水印到pdf并使用windows vista和xp

工作正常

使用Windows脚本我收到此错误：

80070005

这是我正在使用的脚本：

    Option Explicit

Const Watermark = "watermark.pdf"
Const Watermark2 = "AAAWatermark.pdf"

Dim objArgs, fname, tfname, fso, pdf

Set objArgs = WScript.Arguments

fname = objArgs(0)

Set fso = CreateObject("Scripting.FileSystemObject")

tfname = fso.GetTempName

Set pdf = WScript.CreateObject("pdfforge.pdf.pdf")

pdf.StampPDFFileWithPDFFile fname, tfname, Watermark, 1, 9999, false, 1, 10 

If fso.FileExists(tfname) Then
fso.DeleteFile(fname)
fso.MoveFile tfname, fname
Else
MsgBox "There was an error adding the Watermark!", vbCritical, AppTitle
End If

Set pdf = Nothing
Set fso = Nothing
Set objArgs = Nothing

有什么理想的吗？谢谢

Answer 1

虽然我对我的Francais有点粗暴，但是你似乎没有权利在错误框中提到的目录中保存临时文件，或者目录不存在？您可以右键单击该文件夹并转到le security选项卡并添加everyone对象并分配写访问权限（如果您有其他组，则可以更安全）

（编辑：原帖有法语截图，以增加上下文）

vb脚本无法在Windows 8上运行

1 个答案: