Добрый вечер...
Сегодня обнаружил для себя такой неприятный момент, как
на машинах с Win <10 выдает один результат
а на машинах c Win=10
где N может быть различным. Кто-нибудь сталкивался с этим?
Далее с помощью вот этой нехитрой функции
которая "тысячу лет" работала без проблем пытаюсь скачать файл в одну из подпапок Environ$("temp") и получаю
Err.Description = "Write to file failed"
Err.Number = 3004
и это только с машинами на которых стоит Windows 10????
Сегодня обнаружил для себя такой неприятный момент, как
| Код |
|---|
Environ$("temp")
|
| Код |
|---|
C:\Users\UserName\AppData\Local\Temp |
| Код |
|---|
C:\Users\UserName\AppData\Local\Temp\N |
Далее с помощью вот этой нехитрой функции
| Код |
|---|
Public Function Downloading(ByVal URL As String, ByVal LocalPath As String) As Boolean
Dim ADOStream_responseBody As Variant
Dim XMLHTTP_statusText As Variant
On Error Resume Next
If AppState.FSO.FileExists(LocalPath) Then AppState.FSO.DeleteFile LocalPath, True
If AppState.FSO.FileExists(LocalPath) Then Downloading = True: Exit Function
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", Replace(URL, "\", "/"), "False"
.Send
If .Status = 200 Then ADOStream_responseBody = .responseBody
XMLHTTP_statusText = .statusText
Downloading = (.Status = 200)
End With
If Downloading Then
With CreateObject("ADODB.Stream")
.Type = 1
.Open
.Write ADOStream_responseBody
.SaveToFile LocalPath, 2
.Close
End With
Else
' MsgBox "Can not download file" & Chr(13) & URL & Chr(13) & XMLHTTP_statusText & "!", vbApplicationModal + vbExclamation + vbOKOnly, "Cargill"
Downloading = False
End If
' Downloading = IIf(CBool(Downloading), LocalPath, vbNullString)
End Function |
Err.Description = "Write to file failed"
Err.Number = 3004
и это только с машинами на которых стоит Windows 10????
