共5 条记录, 每页显示 10 条, 页签: [1]

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

1楼

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 )

2楼

有点蓝 发表于：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")

3楼

zhangchi96 发表于：2025/2/4 12:55:00

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

4楼

有点蓝 发表于：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

5楼

zhangchi96 发表于：2025/2/5 17:13:00

谢谢有点蓝老师！！！

共5 条记录, 每页显示 10 条, 页签: [1]