Script to move files based on pages

Hi,

Thanks a lot for the sugestions, but I managed to solve it using a .vsb script. I'll share it:

'
' eg:   cscript.exe  TAX_AnnualReport_Distribute.vbs  "C:\SCRIPTS\"
'-----------------------------------------------------------------------------------------------------------------------------

'-----------------------------------------------------------------------------------------------------------------------------
'Define variables
'-----------------------------------------------------------------------------------------------------------------------------
Dim objFSO
Dim objFolder
Dim objFil
Dim xlAp
Dim objStream, strData

' Hent path til root for
if WScript.Arguments.Count>0 THEN
FilePathRoot = WScript.Arguments(0)
Else
FilePathRoot = "D:\Filepath here"
END IF

' SET RELATIVE PATHS
FolderFrom="\"
FolderToOne="\OnePage\"
FolderToMany="\MultiplePages\"

' Relativ path & root
FilePathFrom  = FilePathRoot & FolderFrom
FilePathToOne  = FilePathRoot & FolderToOne
FilePathToMany  = FilePathRoot & FolderToMany

'-----------------------------------------------------------------------------------------------------------------------------
'Instances and creation of files
'-----------------------------------------------------------------------------------------------------------------------------
'Folder og filer
Set objFSO = CreateObject("scripting.filesystemobject")
Set objFolder = objFSO.getfolder(FilePathFrom)

Set objStream = CreateObject("Adodb.Stream")
objStream.Charset = "x-ansi"
objStream.open

Const ForReading = 1, ForWriting = 2
Set re = New RegExp
re.Pattern = "Type\s*/Page[^s]"
re.Global = True
re.IgnoreCase = True

'-----------------------------------------------------------------------------------------------------------------------------
' Control file format and move file to another destination
'-----------------------------------------------------------------------------------------------------------------------------
'a = 1
'DO WHILE A < 5
'a = a + 1
For Each objFil In objFolder.Files
  NbPages = 0
  If InStr(objFil.Type, "Acrobat")  > 0 Then  
  
   a = 0
   do while a < 5000
   a = a+1
   Loop
  
   'Set objFilex = objFSO.OpenTextFile(FilePathFrom&objfil.name, ForReading)
   objStream.LoadFromFile(FilePathFrom&objfil.name)
   strSearchString = objStream.ReadText(-1)
   objStream.flush
  
  
   'Search file for defined pattern
   Set colMatches = re.Execute(strSearchString)
   If colMatches.Count = 0 Then       
    NbPages = 0
   else
    NbPages = colMatches.Count
   End If
  
   ' If one page is identified
   if (NbPages = 1) then
    oldpath = objFSO.BuildPath(FilePathFrom, objfil.name)
    newpath = objFSO.BuildPath(FilePathToOne, objfil.name)
    if objFSO.FileExists(newpath) then
     objFSO.DeleteFile newpath
    end if
    objFil.Move(FilePathToOne)
   else
   ' More than one page or unidentified
    oldpath = objFSO.BuildPath(FilePathFrom, objfil.name)
    newpath = objFSO.BuildPath(FilePathToMany, objfil.name)
    if objFSO.FileExists(newpath) then
     objFSO.DeleteFile newpath
    end if
    objFil.Move(FilePathToMany)
   
   end if

  End If

Next

'loop

As mentioned, your solution (an Acrobat script or plugin) is not a good one, due to technical and legal reasons.

If you're interested I could develop for you a stand-alone tool (for a small fee) that will do it, without relying on Acrobat at all, and you could use it on a server if you wanted to. Feel free to contact me privately (try6767 at gmail.com) to discuss it further.

I suggest you rethink your solution.

While Acrobat can be licensed and run on a server. If you want this sorting process to be automated, I strongly recommend against using Acrobat be the engine behind the process; it just wasn't built for that kind of thing. However, even the most brain-dead PDF library tool can detect the number of pages in a file and since you only want to get information from the PDF and then move the file and you are not changing the PDF, any of these tools will work.

In general, if you want to work with PDF on a server, don't use a desktop application. Subscribe to, buy or write a real server app.

What kind of script do you use? Acrobat Javascript scripts can't move files.

The SDK is just a way to automate Acrobat – so all the same licensing restrictions apply.