[原创]PDFCreator自动保存及文件名带空格、后缀名丢失的解决方法（Windows 7通过）
今天安装了免费的PDF打印机软件PDFCreator，默认情况下弹出保存窗口，依照以下设定，可以自动保存：但是存在一个问题：如果存在空格，则保存后的文件名会从第一个空格后断开，.pdf 后缀名也不会被添加。
PDFCreator一个比较好的地方在于支持动作脚本，即保存前后可以执行指定的VBS文件。
依照以下步骤，即可解决之前的问题：
1. 打开记事本，复制以下代码，另存为Rename.vbs至\Scripts\RunProgramAfterSaving目录下；
————————————————————————————————————————————————
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Net = WScript.CreateObject("WScript.Network")
Set dic = WScript.CreateObject("Scripting.Dictionary")
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
————————————————————————————————————————————————
2. 勾选“保存后动作”，下拉框中选择Rename.vbs，保存。
OK了^o^
页:
[1]