Just Two Questions on PDF Files

SamDsouza · #5 05-24-2021, 09:31 PM

Quote:

Change your code as follows:
Code:
Private Sub LstfileBx_Click()
txtFolderPath.Text = LstfileBx.Text
xStrData = ""
Set RegExp = CreateObject("VBscript.RegExp")
RegExp.Global = True
RegExp.Pattern = "/Type\s*/Page[^s]"
xFileNum = FreeFile()
Open txtFolderPath.Text For Binary As #xFileNum

xStrData = Space(LOF(xFileNum))
Get #xFileNum, , xStrData
Close #xFileNum
txtNoOfPAgesPDF.Text = RegExp.Execute(xStrData).Count
End Sub

Rectified it as per your say. But you have taken the following syntaxes before
txtFolderPath.Text = LstfileBx.Text
xStr = ""
May i know Why
Thank you
SamD

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
PPT VBA Questions	davidmorse	PowerPoint	0	03-06-2018 09:35 PM
Questions	S_jt_C	Word	1	12-05-2015 04:35 PM
Converting 'comments' into text files (2 questions)	Paul Lance	Word	1	04-29-2013 06:00 PM
Few questions...needs some help!	Wolf.Stalker	Outlook	1	02-21-2012 09:15 PM
onenote offline cache files questions	mdc8989	OneNote	1	02-04-2011 11:47 AM