если папка Test уже есть, то файл должен сохранятся туда. если ее нету, то пользователь может выбрать папку куда он хочет сохранить этот файл.
проблема: 1.при отсутствии папки, выводится диалоговое окно для выбора любой папки, она выбираетсч, а файл туда не сохраняется. 2. надо чтобы сразу после сохранения вызывалась функция удаления этого файла.
Как это все сделать?
Кусок кода:
strSources = "http://123.doc"
strDests = "c:\Program Files\Test\123.doc"
If filesys.folderExists("c:\Program Files\Test\") Then
Set HTTPs = WScript.CreateObject("Microsoft.XMLHTTP")
''Set FSO = CreateObject("Scripting.FileSystemObject")
HTTPs.Open "GET", strSources, False
HTTPs.send
Set Streams = CreateObject("adodb.stream")
''Const adTypeBinary = 1
''Const adSaveCreateNotExist = 1
''Const adSaveCreateOverWrite = 2
Streams.Type = adTypeBinary
Streams.Open
Streams.write HTTPs.responseBody
Streams.savetofile strDests,adSaveCreateOverWrite
set Streams = Nothing
Set HTTPs = Nothing
else
dim objDlg, objF
set objDlg=WScript.createObject("Shell.application")
set objF= objDlg.browseForFolder(&H0, "Select folder", &H10, "c:\")
if Instr (1, TypeName(objF), "Folder")>0 then
Set HTTPs = WScript.CreateObject("Microsoft.XMLHTTP")
Set FSO = CreateObject("Scripting.FileSystemObject")
HTTP.Open "GET", strSource, False
HTTPs.Open "GET", strSources, False
HTTPs.send
Set Streams = CreateObject("adodb.stream")
Const adTypeBinary = 1
Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2
Streams.Type = adTypeBinary
Streams.Open
Streams.write HTTPs.responseBody
objF = strDests
Streams.savetofile strDests,adSaveCreateOverWrite
set Streams = Nothing
Set HTTPs = Nothing
end if
set objFolder = nothing
end if