- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 想把一个指定文件夹的JPG格式，都复制到照片库中，怎么会报错? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67323)
-- 发布时间：2015/4/22 11:15:00
-- 想把一个指定文件夹的JPG格式，都复制到照片库中，怎么会报错?
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
Dim apath1 As String
apath1 = dlg.selectedpath
Dim apath As String
apath = apath1 & "\\"
Dim fpath As String = ProjectPath & "处理数据\\照片库"
Dim fpath0 As String = ProjectPath & "处理数据\\照片库\\"
If apath <> fpath0 Then
FileSys.CopyFile(apath & "*.jpg" &, fpath0 & "*.jpg" &, True)
End If
此主题相关图片如下：qq截图20150422111137.jpg
想把一个指定文件夹的JPG格式，都复制到照片库中，怎么会报错?
-- 发布时间：2015/4/22 11:23:00
--
FileSys.CopyFile(apath & "*.jpg" , fpath0 & "*.jpg" , True)
-- 发布时间：2015/4/22 11:27:00
--
此主题相关图片如下：qq图片20150422112554.png
我按BIN老师换了，但在执行时报上面这个错，怎么办？
-- 发布时间：2015/4/22 11:29:00
--
错误提示已经明确告诉你了
-- 发布时间：2015/4/22 13:31:00
--
此主题相关图片如下：qq浏览器截屏未命名.jpg
还是不行，怎么办？
-- 发布时间：2015/4/22 13:36:00
--
apath 不能是E:\\\\ 你弹出一下你的路径就知道了
-- 发布时间：2015/4/22 13:55:00
--
何不整个目录复制：
http://www.foxtable.com/help/topics/0343.htm
-- 发布时间：2015/4/22 14:21:00
--
但我只要照片文件！
-- 发布时间：2015/4/22 14:26:00
--
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
Dim apath1 As String
apath1 = dlg.selectedpath
Dim fpath As String = ProjectPath & "处理数据\\照片库"
Dim fpath0 As String = ProjectPath & "处理数据\\照片库\\"
For Each File As String In FileSys.GetFiles(apath1)
Dim ifo As New FileInfo(File)
if ifo.Extension = "jpg" then
FileSys.CopyFile(File, fpath0 & ifo.Name , True)
end if
Next