VBScript フォルダにあるファイルをまとめて印刷するには

[VBA研究員]

oooBASICで利用している関数
MsgBox ConvertToUrl("C:\doc\test.sxw") ' supplies file:///C:/doc/test.sxw
MsgBox ConvertFromUrl("file:///C:/doc/test.sxw") ' supplies (under Windows) c:\doc\test.sxw
が、VBScriptからのリモート環境から利用するにはどうしたらいいのでしょうか。

VBSのファイルアイコンに、「ファイルのアイコンをドラッグドロップ」すると、
Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
WScript.Echo objArgs(I)
Next
のように、ファイルパスを取得します。このobjArgs(I)を、ConvertToUrl関数で変換して、objDesktop.loadComponentFromURLによって開き、
印刷のパラメータを与えることで印刷は可能なのですが、VBSのスクリプト環境でConvertToUrl関数が使えていません。
Set objSM = CreateObject("com.sun.star.ServiceManager")
Set objDesktop = objSM.CreateInstance("com.sun.star.frame.Desktop")
につづけて、どんなコードになるか、ヒントください。

[VBA研究員]

PDFに出力するコードに、「VBSによる自作関数function ConvertToUrl(ByVal sFileName)が、紹介されていますが、
oooBasicでは漢字もurl変換しているのに対し、漢字の変換はしていないにも関わらず、ファイルを取り扱っています。
これは、oooが背後で自動処理しているからエラーにならずに処理できています。

oooBasicそのものをVBScriptで制御しoooの良さを使いこなすために、oooBasic関数ConverttourlとConvertfromurlのVBSによる実行方法を
教えてくださいませ。

[alexanderjohn]

It sounds like you're working on a VBScript to print files from a folder using the ConvertToUrl function. If you're looking for a way to implement this in your script, consider using the following approach after creating the objDesktop instance:

vbscript
Copy
For I = 0 to objArgs.Count - 1
filePath = objArgs(I)
url = ConvertToUrl(filePath) ' Ensure this function is defined
Set document = objDesktop.loadComponentFromURL(url, "_blank", 0, Array())
' Add print parameters here
document.print(Array())
Next
Make sure your ConvertToUrl function is correctly defined in your environment. If you're looking for a way to challenge your coding skills, you might enjoy an "iq test free online" to sharpen your problem-solving abilities!