| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何复制网络中的图片 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194899) |
| -- 作者：zhangchi96 -- 发布时间：2025/2/3 20:43:00 -- 如何复制网络中的图片 以上是复制本地一个照片文件的语句 FileSys.CopyFile(
ProjectPath & "\\学生照片\\照片总库" & "\\" & dr("身份号码")
& ".jpg" , ProjectPath & "\\学生照片\\" & dr("身份号码")
& ".jpg" , True ) 如果照片源是网络文件，比如 www.baidu.com\\学生照片\\照片总库 & "\\" & dr("身份号码") & ".jpg" ，请问复制语句如何书写 ?
是可以写成这样吗？ FileSys.CopyFile( http://www.baidu.com\\学生照片\\照片总库 & "\\" & dr("身份号码") & ".jpg" , ProjectPath & "\\学生照片\\" & dr("身份号码") & ".jpg" , True ) |
| -- 作者：有点蓝 -- 发布时间：2025/2/4 9:49:00 -- 网络资源无法直接复制，必须下载下来：http://www.foxtable.com/webhelp/topics/1402.htm Network.DownloadFile("http://www.baidu.com/学生照片/照片总库/" & dr("身份号码") & ".jpg", ProjectPath & "学生照片\\" & dr("身份号码") & ".jpg")
|
| -- 作者：zhangchi96 -- 发布时间：2025/2/4 12:55:00 -- 如果我要加一个条件，先判断这个网络资源是存在的，请帮我写一些格式，谢谢老师！！！ |
| -- 作者：有点蓝 -- 发布时间：2025/2/5 9:04:00 -- 那要换种方式下载：http://www.foxtable.com/mobilehelp/topics/0160.htm Dim hc As New HttpClient("http://www.baidu.com/学生照片/照片总库/" & dr("身份号码") & ".jpg")
If hc.GetFile(ProjectPath & "学生照片\\" & dr("身份号码") & ".jpg") Then MessageBox.show("文件下载成功","提示") Else MessageBox.show("文件下载失败","提示") End If |
| -- 作者：zhangchi96 -- 发布时间：2025/2/5 17:13:00 -- 谢谢有点蓝老师 ！！！ |