H5W3
当前位置:H5W3 > 问答 > 正文

VB6通过Adobe Acrobat合并PDF文件,如何按让PDF按创建时间排序。

代码如下,如何让myFiles中的PDF文件由默认排序更改为由pdf创建时间排序?

Private Sub Command1_Click()
Dim a()         As String
Dim myPath      As String
Dim myFiles     As String
Dim f           As String
Dim i           As Long
Const destFile  As String = "施工图纸.pdf"
myPath = "C:\Users\Administrator\Desktop\PDF文件"
If Right(myPath, 1) <> "\" Then myPath = myPath & "\"
ReDim a(1 To 2 ^ 14)
f = Dir(myPath & "*.pdf")
While Len(f)
If StrComp(f, destFile, 1) Then
i = i + 1
a(i) = f
End If
f = Dir()
Wend
If i Then
ReDim Preserve a(1 To i)
myFiles = Join(a, ",")
Call MergePDFs(myPath, myFiles, destFile)
Else
MsgBox "在下面的路径中没有找到PDF文件 " & vbLf & myPath, vbExclamation, "取消"
End If
End Sub

回答

f = Dir(myPath & “*.pdf”)
While Len(f)
If StrComp(f, destFile, 1) Then
i = i + 1
a(i) = f
End If
f = Dir()
Wend
之后对a数组按照时间先排序下就可以了。

未经允许不得转载:H5W3 » VB6通过Adobe Acrobat合并PDF文件,如何按让PDF按创建时间排序。

赞 (0)

评论 0

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址