改成比如
If ftp1.Upload("E:\质量管理系统\不良照片\进货检验\不良照片\" & name, "\进货检验照片\不良照片\" & name) = True Then piv1.AddFile("\进货检验照片\不良照片\" & name)