And I think the increasing amount of RIS issues we get here is both heartening - because I believe it's a sign for an increasing movement from Endnote - and disheartening - because I think you're right that many people don't make it to the forum.
Your slashes are mixed (forward and backward) in these examples — are they also like that in your RIS file? I think FF can handle either, but they need to be used consistently.
So, how can I get rid of the redundant part of the file path name?
' RIS link fixer for windows' transforms Endnote internal-pdf:// links into file:// linksDim FileName, objDialog, boolResultDim regEx, FileContents, modFileContentsDim objShell, pdfFolder'choose RIS fileSet objDialog = CreateObject("UserAccounts.CommonDialog")objDialog.Filter = "RIS (*.ris)|*.ris|All Files (*.*)|*.*"objDialog.FilterIndex = 1boolResult = objDialog.ShowOpenIf boolResult = 0 Then WScript.QuitElse FileName = objDialog.FileNameEnd If'regexreplacementSet regEx = New RegExpregEx.Pattern = "internal-pdf://.*/"FileContents = GetFile(FileName)'choose folder containing PDFsset objShell = CreateObject("Shell.Application")set pdfFolder = objShell.BrowseForFolder(0, "Where are your PDFs?", 0)If (not pdfFolder is nothing) then ReplaceWith = "file://" + pdfFolder.self.Path modFileContents = regEx.replace(FileContents, ReplaceWith) If modFileContents <> FileContents Then WriteFile FileName, modFileContents Wscript.Echo "Finished chaning internal-pdf:// links to file:// links." Else Wscript.Echo "nope" End IfEnd Iffunction GetFile(FileName) If FileName<>"" Then Dim FS, FileStream Set FS = CreateObject("Scripting.FileSystemObject") on error resume Next Set FileStream = FS.OpenTextFile(FileName) GetFile = FileStream.ReadAll End IfEnd Functionfunction WriteFile(FileName, Contents) Dim OutStream, FS on error resume Next Set FS = CreateObject("Scripting.FileSystemObject") Set OutStream = FS.OpenTextFile(FileName, 2, True) OutStream.Write ContentsEnd Function