Is it possible to open file and read binary using VBScript

Question

I found this VBA function which reads PDF file for Binary to find out total page numbers in the file. Could someone please shed some light about how can we do this using VBScript. Here is the VBA code:

Function GetPageNum(PDF_File As String)
    Dim FileNum As Long
    Dim strRetVal As String
    Dim RegExp
    Set RegExp = CreateObject("VBscript.RegExp")
    RegExp.Global = True
    RegExp.Pattern = "/Type\s*/Page[^s]"
    FileNum = FreeFile
    Open PDF_File For Binary As #FileNum
        strRetVal = Space(LOF(FileNum))
        Get #FileNum, , strRetVal
    Close #FileNum
    GetPageNum = RegExp.Execute(strRetVal).Count
End Function

41686d6564 · Accepted Answer · 2018-04-07 16:46:40Z

3

You could do something like this:

Function GetPageNum(PDF_File)
    Dim strRetVal 
    Dim RegExp: Set RegExp = CreateObject("VBscript.RegExp")
    RegExp.Global = True
    RegExp.Pattern = "/Type\s*/Page[^s]"

    Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
    Dim oFile: Set oFile = oFSO.GetFile(PDF_File)

    If IsNull(oFile) Then
        'TODO: handle file-not-found, etc.
        Exit Function
    End If

    With oFile.OpenAsTextStream()
        strRetVal = .Read(oFile.Size)
        .Close
    End With

    GetPageNum = RegExp.Execute(strRetVal).Count
End Function

I just tested it and it works just fine. Here's an example of usage:

Dim pageNum
pageNum = GetPageNum("Your\PDF\FilePath.pdf")
MsgBox pageNum

Hope this helps.

answered Apr 7, 2018 at 16:46

41686d6564

19.8k13 gold badges48 silver badges84 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

red Over a year ago

Thank you Ahmed. This is great. Now I can explore more and learn about it. Thanks a lot.

Collectives™ on Stack Overflow

Is it possible to open file and read binary using VBScript

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related