bRecursive = False sFolder = "D:\Users\gci0mxm\Desktop\Test" Set oFSO = CreateObject("Scripting.FileSystemObject") Set oWord = CreateObject("Word.Application") oWord.Visible = True Set oFolder = oFSO.GetFolder(sFolder) ConvertFolder(oFolder) oWord.Quit Sub ConvertFolder(oFldr) For Each oFile In oFldr.Files If LCase(oFSO.GetExtensionName(oFile.Name)) = "rtf" Then Set oDoc = oWord.Documents.Open(oFile.path) Str = left(oFile,instr(1,oFile,".")-1) oWord.ActiveDocument.SaveAs Str & ".pdf", 17 oDoc.Close End If Next If bRecursive Then For Each oSubfolder In oFldr.Subfolders ConvertFolder oSubfolder Next End If End Sub I have created vbs file in linux server but I can't able to run inside the linux server. Can you help me to run vbs file in linux server or any other alternate solutions for generating pdf from rtf in SAS (HMS/cloud).
... View more