Public Function PathForIVR(ByVal Path As String) As String
  'C:\Documents and Settings\All Users\Application Data\Proga\Sounds\failo.wav
  'file:///C|/Documents and Settings/All Users/Application Data/Proga\Sounds\failo.wav
  Dim str As String
  str = Path
  str = Replace(str, ":", "|")
  str = Replace(str, "\", "/")
  str = "file:///" & str
  PathForIVR = str
End Function

Выдает
file:///C|/Documents and Settings/Дима/Рабочий стол/sanctuary.wav
надо
file:///C|/Documents%20and%20Settings/%C4%E8%EC%E0/%D0%E0%E1%EE%F7%E8%E9%20%F1%F2%EE%EB/sanctuary.wav

file%3A%2F%2F%2FC%7C%2FDocuments+and+Settings%2FAll+Users%2FApplication+Data%2FProga%2FSounds%2Ffailo%2Ewav

  str = UrlEncode(str)
  PathForIVR = str
End Function

Function UrlEncode(Text)
    Dim i, char
    For i = 1 To Len(Text)
        char = Mid(Text, i, 1)
        If InStr(1, "0123456789abcdefghijklmnopqrstuvwxyz/\|.:", char, 1) = 0 Then '
            'If char = " " Then
            '    char = "+"
            'Else
                char = "%" & Hex(Asc(char))
            'End If
        End If
        UrlEncode = UrlEncode & char
    Next
End Function

PURL(PFilePath(fileStr)) 

PString PURL::TranslateString(const PString & str, TranslationType type)
{
  PString xlat = str;

  /* Characters sets are from RFC2396.
     The EBNF defines lowalpha, upalpha, digit and mark which are always
     allowed. The reserved list consisting of ";/?:@&=+$," may or may not be
     allowed depending on the syntatic element being encoded.
   */
  PString safeChars = "abcdefghijklmnopqrstuvwxyz"  // lowalpha
                      "ABCDEFGHIJKLMNOPQRSTUVWXYZ"  // upalpha
                      "0123456789"                  // digit
                      "-_.!~*'()";                  // mark
  switch (type) {
    case LoginTranslation :
      safeChars += ";&=+$,";  // Section 3.2.2
      break;

    case PathTranslation :
      safeChars += ":@&=+$,|";   // Section 3.3
      break;

    case ParameterTranslation :
      /* By strict RFC2396/3.3 this should be as for PathTranslation, but many
         URI schemes have parameters of the form key=value so we don't allow
         '=' character in the allowed set. Also, including one of "@,|" is
         incompatible with some schemes, leave those out too. */
      safeChars += ":&+$";
      break;

    case QuotedParameterTranslation :
      safeChars += "[]/:@&=+$,|";
      return str.FindSpan(safeChars) != P_MAX_INDEX ? str.ToLiteral() : str;

    default :
      break;    // Section 3.4, no reserved characters may be used
  }
  PINDEX pos = (PINDEX)-1;
  while ((pos = xlat.FindSpan(safeChars, pos+1)) != P_MAX_INDEX)
    xlat.Splice(psprintf("%%%02X", (BYTE)xlat[pos]), pos, 1);

  return xlat;
}

Public Function PathForIVR(ByVal Path As String) As String
  Dim str As String
  str = Path
  str = Replace(str, ":", "|")
  str = Replace(str, "\", "/")
  str = "file:///" & str
  str = UrlEncode(str)
  PathForIVR = str
End Function

Private Function UrlEncode(Text)
    Dim i, char
    For i = 1 To Len(Text)
        char = Mid(Text, i, 1)
        If InStr(1, "abcdefghijklmnopqrstuvwxyz0123456789-_.!~*'()[]/:@&=+$,|;\", char, 1) = 0 Then
          char = "%" & Hex(Asc(char))
        End If
        UrlEncode = UrlEncode & char
    Next
End Function

C:\Documents and Settings\Дима\Рабочий стол\приветствие_ав_()т  АА тW%е!   Ётч^и;@ $$ ка[].wav