[原创]PDFCreator保存文件名带空格、后缀名丢失的解决方法

今天安装了免费的PDF打印机软件PDFCreator，默认情况下弹出保存窗口，依照以下设定，可以自动保存：

 

 

但是存在一个问题：如果<Title>存在空格，则保存后的文件名会从第一个空格后断开，.pdf 后缀名也不会被添加。

 

PDFCreator一个比较好的地方在于支持动作脚本，即保存前后可以执行指定的VBS文件。

 

依照以下步骤，即可解决之前的问题：

1. 打开记事本，复制以下代码，另存为Rename.wsf至<PDFCreator安装路径>\Scripts\RunProgramAfterSaving目录下；

————————————————————————————————————————————————

<?xml version="1.0" ?>
<package>
    <comment>
    PrimalCode wizard generated file.
    </comment>
    <job id="Rename">
        <reference id="Scripting.FileSystemObject" guid="{420B2830-E718-11CF-893D-00A0C9054228}" version="1.0"/>
        <reference id="MSSHELL" guid="{50A7E9B0-70EF-11D1-B75A-00A0C90564FE}" version="1.0"/>
        <reference id="MSXML" guid="{D63E0CE2-A0A2-11D0-9C02-00C04FC99C8E}" version="2.0"/>
        <reference id="MSHTML" guid="{3050F1C5-98B5-11CF-BB82-00AA00BDCE0B}" version="4.0"/>
        <object id="fso" progid="Scripting.FileSystemObject"/>
        <object id="WshShell" progid="WScript.Shell"/>
        <object id="Net" progid="WScript.Network"/>
        <object id="dic" progid="Scripting.Dictionary"/>
        <script id="publish_nc" language="VBScript">
<![CDATA[
'
' Primalscript 2007 Windows Script Wizard generated
'
Dim objArgs
Set objArgs = WScript.Arguments

 

Main()

Sub Main()

    If objArgs.Count = 0 Then
        MsgBox "This script needs a parameter!", vbExclamation, AppTitle
        WScript.Quit
    End If

    Dim fname0, fname1
    fname0 = objArgs(0)
    fname1 = fname0

    IF GetFileExt(fname0) <> "pdf" Then
        fname1 = fname1 & ".pdf"
        fso.movefile fname0, fname1
    End If

    WshShell.Run chr(34) & fname1 & chr(34),0

End Sub

Function GetFileExt(sFileName)
    Dim P
    For P = Len(sFileName) To 1 Step -1
        If InStr(".", Mid(sFileName, P, 1)) Then Exit For
    Next
    GetFileExt = Right(sFileName, Len(sFileName) - P)
End Function
]]>
        </script>
    </job>
</package>

————————————————————————————————————————————————

2. 勾选“保存后动作”，下拉框中选择Rename.wsf，保存。

OK了^o^