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