If FileSys.FileExists(path & "\" & zpxghmc & name(1))=False Then
改成
If FileSys.FileExists(path & dr("客户姓名") & "\" & zpxghmc & name(1)) = False Then
加好友 
发短信
Post By：2019/1/9 21:14:00 [只看该作者]
