[發問] oStream.SaveToFile ()檔名問題

msmplay

下載 (9.92 KB)

2018-2-10 01:36

請問oStream.SaveToFile ()括弧裡面要打什麼，才能讓存檔的檔名等於下載檔案的原檔名一模一樣
例如:下載的檔案名稱「123.xls」，存檔的檔名就同下載檔名「123.xls」
下載的檔案名稱「ABC.pptx」，存檔的檔名就同下載檔名「ABC.pptx」

以下為程式碼
---------------------------------------------------------------------------------------------
Sub 下載檔案()
Dim myURL As String
myURL = "http://w3.hdut.edu.tw/ezcatfiles/a001/img/img/507/EDOC_20171120.pptx"

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.Send

myURL = WinHttpReq.ResponseBody
If WinHttpReq.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write WinHttpReq.ResponseBody
    oStream.SaveToFile (ActiveWorkbook.Path & "\" & ?)
    oStream.Close
End If
End Sub
---------------------------------------------------------------------------------------------

GBKEE

回復 1# msmplay

1. Dim myURL As String, xFile As String
   
2.     myURL = "http://w3.hdut.edu.tw/ezcatfiles/a001/img/img/507/EDOC_20171120.pptx"
   
3.     xFile = Mid(myURL, InStrRev(myURL, "/") + 1)
   
4.      oStream.SaveToFile ActiveWorkbook.Path & "\" & xFile

複製代碼

ML089

Mid(myURL, InStrRev(myURL, "/") + 1, 99)

msmplay

回復 2# GBKEE


   G大再次感謝你熱心幫忙ㄟ

msmplay

回復 3# ML089


   M大非常感謝ㄛ