如何复制网络中的图片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何复制网络中的图片

共有238人关注过本帖树形打印复制链接主题：如何复制网络中的图片

zhangchi96

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：565 积分：5114 威望：0 精华：0 注册：2012/2/11 13:27:00

如何复制网络中的图片 发帖心情

Post By：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 )

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112355 积分：572031 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：565 积分：5114 威望：0 精华：0 注册：2012/2/11 13:27:00

Post By：2025/2/4 12:55:00 [只看该作者]

如果我要加一个条件，先判断这个网络资源是存在的，请帮我写一些格式，谢谢老师！！！

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112355 积分：572031 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：565 积分：5114 威望：0 精华：0 注册：2012/2/11 13:27:00

Post By：2025/2/5 17:13:00 [只看该作者]

谢谢有点蓝老师！！！

下一主题 >> << 上一主题

主题：如何复制网络中的图片