主题：想把一个指定文件夹的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格式，都复制到照片库中，怎么会报错?

此主题相关图片如下：qq图片20150422112554.png

我按BIN老师换了，但在执行时报上面这个错，怎么办？

此主题相关图片如下：qq浏览器截屏未命名.jpg

还是不行，怎么办？

何不整个目录复制：

http://www.foxtable.com/help/topics/0343.htm

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)