首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

【疑】讨厌的IE下载对话框会自动改名?解决方法

2012-01-31 
【疑】讨厌的IE下载对话框会自动改名?为什么以下链接,IE下载框总是要把文件扩展名改为.mpga?http://202.104.

【疑】讨厌的IE下载对话框会自动改名?
为什么以下链接,IE下载框总是要把文件扩展名改为.mpga?    
 
http://202.104.57.132/zlimg/mp3/iamcat.mp3    
 
用的是调出IE对话框下载:    
DoFileDownload(VBA.StrPtr(sURL))    
 
此链接正常啊,网际快车就能按原名下载的啊。    


[解决办法]
Declare Function DoFileDownload Lib "shdocvw.dll " (ByVal lpszFile As String) As Long
Function FileDownLoad(FilePath As String)
FilePath = StrConv(FilePath, vbUnicode)
DoFileDownload FilePath
End Function

Sub tttt()
FileDownLoad "http://202.104.57.132/zlimg/mp3/iamcat.mp3 "
End Sub

热点排行