Adobe Photoshop Scripting giving error

For some reason, the answer button does not work on the computer, so I will write briefly from the phone: when iterating over files in a directory, you write to the iFile variable a file object belonging to the Scripting.FileSystemObject class, while the appRef.Open() function expects to receive a string value. Not an object. When you call WScript.Echo("FileName: "& iFile) you think it's a string variable, but it's not (it's just that WScript.Echo is not so critical about type conversion).

That is, to avoid an error, before calling the appRef.Open() function, you need to convert the iFile object to a string:

set docref = appRef.Open(CStr(iFile), pdfOpenOptionsRef)

I have removed the source directory. The same issue is noticed while running with Python code.

Option Explicit

Private Function getPdfPgCnt(ByVal sPath) 'Returns page count of file on passed path
Dim strTStr

With CreateObject("Adodb.Stream")
.Open
.Charset = "x-ansi"
.LoadFromFile sPath
strTStr = .ReadText(-1)
End With

With (New RegExp)
.Pattern = "Type\s*/Page[^s]"
.IgnoreCase = True
.Global = True
getPdfPgCnt = .Execute(strTStr).Count
End With

If getPdfPgCnt = 0 Then getPdfPgCnt = 1
End Function

'---------------------------------

Private Function getPdfConv(ByVal ifilename, ByVal pdfcount, ByVal iFile) 'Returns page count of file on passed path
Dim pdffolder, pdffolderpath, page,awayActiveDoc

pdffolderpath = ifilename
If Not oFso.FolderExists(pdffolderpath) Then
Set pdffolder = oFso.CreateFolder(pdffolderpath)
WScript.Echo("A new folder has been created at: " & pdffolderpath)
End If

For page=1 to pdfcount
pdfOpenOptionsRef.Page = page
if oFso.FileExists(iFile) Then
set docref = appRef.Open(oFso.GetFile(iFile),pdfOpenOptionsRef)
set awayActiveDoc = appRef.ActiveDocument
awayActiveDoc.ResizeCanvas 8.5,11
awayActiveDoc.SaveAs pdffolderpath, pdfSaveOptionsRef
awayActiveDoc.close
end if
Next
End Function

'--------------------------------
Dim oFso, iFile, sDir, appRef, pdfOpenOptionsRef, pdfSaveOptionsRef, docRef, ifilename
sDir = <<Source Directory>>
Set oFso = CreateObject("Scripting.FileSystemObject")
Set appRef = CreateObject("Photoshop.Application.170")
Set pdfOpenOptionsRef = CreateObject("Photoshop.PDFOpenOptions.170")
Set pdfSaveOptionsRef = CreateObject("Photoshop.PDFSaveOptions.170")

For Each iFile In oFso.getFolder(sDir).Files
If LCase(oFso.GetExtensionName(iFile)) = "pdf" Then
ifilename = Left(iFile, len(iFile)-4)
getPdfConv ifilename, getPdfPgCnt(iFile), iFile
End if
Next
Set oFso = Nothing
'--------------------------------

Please, post full code with all variables. 

Hi Mike...I have used the same scripting pdf and getting error only in line 39.

hello @Pramod264896284g6d 

Sorry I don't know vbscript, but your syntax doesn't look correct to me. Take a look at the photoshop-vbs-ref-2020 (page 117) from the link below.

https://www.google.com/url?sa=t&rct=j&q=&esrc=s&source=web&cd=&ved=2ahUKEwjSx-etn-T8AhUGj4kEHfjGA04QFnoECA8QAQ&url=https%3A%2F%2Fcommunity.adobe.com%2Fhavfw69955%2Fattachments%2Fhavfw69955%2Fphotoshop%2F556207%2F1%2Fphotoshop-vbs-ref-2020_unlocked.pdf&usg=AOvVaw3he5LhS4DZdsn3Miv0X-Ls

Regards,

Mike