標題: [發問] oStream.SaveToFile ()檔名問題 [打印本頁]

---

作者: msmplay    時間: 2018-2-10 01:36     標題: oStream.SaveToFile ()檔名問題

[attach]28357[/attach]

請問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    時間: 2018-2-11 08:34

回復 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    時間: 2018-2-11 08:43

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

---

作者: msmplay    時間: 2018-2-11 09:08

回復 2# GBKEE


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

---

作者: msmplay    時間: 2018-2-11 09:09

回復 3# ML089


   M大非常感謝ㄛ

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)