Работа со специальными символами в VBScript и XMLHTTP

Question

С помощью этого кода VB Script загрузите файл XLSX с авторизованного удаленного общего ресурса на мой клиентский сервер.

Имя файла XLSX:

TB-àdemain20180703.xlsx

Для специального символа à в имени файла TB-àdemain20180703.xlsx загрузка не удалась, поскольку на клиентском сервере файл XLSX сохраняется с таким именем:

TB-Ã demain20180703.xlsx

Как это решить?

Мой код ниже.

Set File = WScript.CreateObject("Microsoft.XMLHTTP")

File.Open "GET", "https://share.xxx.com/Report/TB-àdemain20180703.xlsx", False

File.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; Trident/4.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 1.1.4322; .NET CLR 3.5.30729; .NET CLR 3.0.30618; .NET4.0C; .NET4.0E; BCD2000; BCD2000)"
File.Send

Set BS = CreateObject("ADODB.Stream")
BS.type = 1
BS.open
BS.Write File.ResponseBody
BS.SaveToFile "D:\Report\TB-àdemain20180703.xlsx", 2

Answer 1

Попробуйте это по вашей ссылке.

Пожалуйста, замените это:

File.Open "GET", "https://share.xxx.com/Report/TB-àdemain20180703.xlsx", False

С

File.Open "GET", "https://share.xxx.com/Report/TB-%C3%A0demain20180703.xlsx", False

Надеюсь, я помог.