Челы, я возможно глупость скажу, но а если через вот так ?
- Код: Выделить всё
Dim WSH,RetVal
Set WSH = CreateObject("WScript.Shell")
Retval = WSH.Exec("subst F: сетевой путь").StdOut.ReadAll
RetVal = DosToWin(RetVal)
msgbox RetVal
Set WSH = Nothing
Function DosToWin(s)
Dim i,k,ss
ss=""
For i=1 To Len(s) ' Цикл по всем символам в строке
k = Asc(Mid(s,i,1)) ' Определяем ANSI-код i-го символа
' Изменяем код k на код соответствующего символа в
' Windows-кодировке
If (128 <= k) And (k <= 175) Then
k=k+64
ElseIf (224 <= k) And (k <= 239) Then
k=k+16
ElseIf k = 240 Then
k=168
ElseIf k = 241 Then
k=184
End If
ss=ss+Chr(k) ' Возвращаем преобразованную строку
Next
DosToWin=ss
End Function
P.S Виноват, если не в тему.
За скрипт перекодировки спасибо
Ruslan Demidow