Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: час Конвертер пути Иначе ООО не поймёт - где лист, какой путь..........
Public Function ConvertToUrl(strFile) As String 'конвертирует путь MS Windows в URL (RFC 1738) On Error GoTo ConvertToUrl_Error '---------------------------------------------------------------------------------- strFile = Replace(strFile, "\", "/") ' strFile = Replace(strFile, ":", "|") strFile = Replace(strFile, " ", "%20") strFile = "file:///" + strFile ConvertToUrl = strFile '"file:///C:/1.odt", "_blank", 0, NoArg) '("file://localhost/C:\TEMP\Ostatki.xls", "_blank", 0, Массив); '---------------------------------------------------------------------------------- On Error GoTo 0 Exit Function ConvertToUrl_Error: Call FUN_IN_TXT(FUN_Patch_File(App.Path, "Error.txt"), "Error " & Err.Number & " (" & Err.Description & ") in procedure ConvertToUrl of Module OOO_MOD") End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.